Tally Genicom 6600 LCP Character Set US-ASCII LCP Character Set German, US-ASCII Character Set

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

10LPRINT "Example for different LCP character sizes"

20LPRINT CHR$(27); "[?11~";

30LPRINT CHR$(27); "PSC0"; CHR$(27); "\";

40REM set character size to 3

50LPRINT CHR$(16); "3"; CHR$(25);

60LPRINT CHR$(15); "3"; CHR$(15);

70REM set character size to 4

80LPRINT CHR$(16); "4"; CHR$(25);

90LPRINT CHR$(15); "4"; CHR$(15);

100REM set character size to 5

110LPRINT CHR$(16); "5"; CHR$(25);

120LPRINT CHR$(15); "5"; CHR$(15);

130REM set character size to 6

140LPRINT CHR$(16); "6"; CHR$(25);

150LPRINT CHR$(15); "6"; CHR$(15);

160LPRINT CHR$(27); "[?10~"

170END

264