Seiko Group TM-L60 - Manual (Page 64)

g g Sample 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
200 PRINT #l, CHR$( I);
210 NEXT I
220 ’
230 PRINT #l, CHR$(27); “t”; CHR$( 1);
240 ’
250 FOR I 240 TO 255
260 PRINT # 1, CHR$( I);
270 NEXT I
280 PRINT #l, CHR$(91); CHR$(92); CHR$(93); CHR$(94); CHR$( 10);
290 PRINT #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