Tally Genicom 6600 - Manual (Page 264)

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. 1B 50 4C 53 30 31 1B 5C
dec. 27 80 76 83 48 49 27 92
German Character Set
ASCII ESC "P" "L" "S" "0" "2" ESC "\"
hex. 1B 50 4C 53 30 32 1B 5C
dec. 27 80 76 83 48 50 27 92
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