Tally Genicom 6600 Example for Different LCP Character Sizes, Example 3

LCP Character Set US-ASCII LCP Chara cter Set German
265
Example for Different LCP Character Sizes
Example 2
REM Example 2 for unsecured printing
OPEN "lpt1:" FOR RANDOM AS #1
WIDTH #1, 255
PRINT #1, CHR$(27); "[?11~";
PRINT #1, CHR$(27); "PSCO"; CHR$(27); "\";
PRINT #1, CHR$(16); "5"; CHR$(25);
PRINT #1, "Example for ";
PRINT #1, CHR$(15); "LCP"; CHR$(15);" unsecured mode";
PRINT #1, CHR$(10); CHR$(13);
END
Example 3
REM Example 3 for secured printing
OPEN "lpt1:" FOR RANDOM AS #1
WIDTH #1, 255
PRINT #1, CHR$(27); "[?11~";
PRINT #1, CHR$(27); "PSC1"; CHR$(27); "\";
PRINT #1, CHR$(16); "5"; CHR$(25);
PRINT #1, "Example for ";
PRINT #1, CHR$(15); "LCP"; CHR$(15);
PRINT #1, " secured"; CHR$(10); "mode";
PRINT #1, STRING$(5, 10);
END