264
Chapter 11 Data Formats of Barcode Types
Example
REM Example Character Densities
OPEN "lpt1:" FOR RANDOM AS #1
WIDTH #1, 255
PRINT #1, CHR$(27); "[?11~";
PRINT #1, CHR$(16); "4"; CHR$(25);
PRINT #1, CHR$(27); "[6w"; :REM 15CPI
PRINT #1, CHR$(15); "LCP ";CHR$(15);
PRINT #1, CHR$(27); "[5w"; :REM 12CPI
PRINT #1, CHR$(15); "LCP ";CHR$(15);
PRINT #1, CHR$(27); "[4w"; :REM 10CPI
PRINT #1, CHR$(15); "LCP ";CHR$(15);
PRINT #1, STRING$ (5, 10);
END
LCP Character Set US-ASCII LCP Character Set German
Data Structure
US-ASCII Character Set
ASCII ESC "P" "L" "S" "0" "1" ESC "\"
hex.1B504C5330311B5C
dec.2780768348492792
German Character Set
ASCII ESC "P" "L" "S" "0" "2" ESC "\"
hex.1B504C5330321B5C
dec.2780768348502792
Example 1
10 LPRINT "Example for different LCP character sizes"
20 LPRINT CHR$(27); "[?11~";
30 LPRINT CHR$(27); "PSC0"; CHR$(27); "\";
40 REM set character size to 3
50 LPRINT CHR$(16); "3"; CHR$(25);
60 LPRINT CHR$(15); "3"; CHR$(15);
70 REM set character size to 4
80 LPRINT CHR$(16); "4"; CHR$(25);
90 LPRINT CHR$(15); "4"; CHR$(15);
100 REM set character size to 5
110 LPRINT CHR$(16); "5"; CHR$(25);
120 LPRINT CHR$(15); "5"; CHR$(15);
130 REM set character size to 6
140 LPRINT CHR$(16); "6"; CHR$(25);
150 LPRINT CHR$(15); "6"; CHR$(15);
160 LPRINT CHR$(27); "[?10~"
170 END