gSample Program onto thermal paper
100 OPEN “COMl : N81 NN” AS #1
110 PRINT #l , CHR$(27); “@ ";
120 PRINT #1, “ABCDEF”; CHR$( 10);
130 PRINT #l, CHR$(27); “!"; CHR$( 1); 140 PRINT #l, “ABCDEF”; CHR$( 10); 150 PRINT #l, CHRS(27), “!“; CHR$(48);
160 PRINT #l, “ABCDEFGHIJK”; CHR$( 10); 170 PRINT #l, CHR$(27); “!“; CHR$(0);
180 PRINT #l, “ABCDEFGHIJK”; CHR$( 10);
190 FOR I = 240 TO 255
200PRINT #l, CHR$( I);
210NEXT I
220’
230PRINT #l, CHR$(27); “t”; CHR$( 1);
240’
250FOR I 240 TO 255
260PRINT # 1, CHR$( I);
270NEXT I
280PRINT #l, CHR$(91); CHR$(92); CHR$(93); CHR$(94); CHR$( 10);
290PRINT #l, CHR$(27); “R”; CHR$( 1);
300 PRINT #l, CHR$(91); CHR$(92); CHR$(93); CHR$(94); CHR$( 10); 310 PRINT #l, CHR$(27); “@“;
320 PRINT #l, CHR$(29); “H”; CHR$(2);
330 PRINT #l, CHR$(27); “$“; CHR$(40); CHRS(0);
340 PRINT #l, CHR$(29); “k”; CHR$(2); “01234567890 1”; CHR$(0); 350 PRINT #l, CHR$(27); “p”; CHR$(0); CHR$( 10); CHR$( 100); 360 PRINT #1, CHR$(27); “u”; CHR$(0);
370 PRINT A$ = INPUT$( 1, #l)
380 If A$ = CHR$(0) THEN PRINT “DRW: L”
380 If A$ = CHR$( 1) THEN PRINT “DRW: H” 400 CLOSE #l
58
