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
Various Examples 47