A-85
20h - FFh Printable Characters Example
OPEN "COM1:9600,n,8,1" FOR OUTPUT AS #1
PRINT #1, CHR$(27); "*";
PRINT #1, "Print a trademark ";CHR$(153);
PRINT #1, "Print a copyright ";CHR$(169);
PRINT #1, "Print a Register ";CHR$(174);
PRINT #1, "Print a Degree ";CHR$(176);
FORI=32TO127
PRINT #1, CHR$(I);
NEXT I
PRINT #1, CHR$(12);
Example 9: 20h - FFh Printable Characters
ESC * Reset to Defaults Example
OPEN "COM1:9600,N,8,1" FOR OUTPUT AS #1
PRINT #1, CHR$(27); "*";
PRINT #1, "The printer is reset twice"; CHR$(10);
PRINT #1, CHR$(12);
PRINT #1, CHR$(27); "@"
Example 10: ESC * Reset to Defaults
ESC @ Reset to Power-up Condition Example
OPEN "COM1:9600,N,8,1" FOR OUTPUT AS #1
PRINT #1, CHR$(27); "*";
PRINT #1, "The printer is reset twice"; CHR$(10);
PRINT #1, CHR$(12);
PRINT #1, CHR$(27); "@"
Example 11: ESC @ Reset to Power-up Condition
ESC B Set Dot Tab Example
OPEN "COM1:9600,N,8,1" FOR OUTPUT AS #1
PRINT #1, CHR$(27); "*";
PRINT #1, CHR$(27); "B"; CHR$(10);
PRINT #1, CHR$(27); "D"; CHR$(12);
FORI=1TO100
PRINT #1, CHR$(23);
PRINT #1, CHR$(95);
NEXT I
PRINT #1, CHR$(12);
Example 12: ESC B Set Dot Tab
