6-52
100 OPEN "COM1:9600,N,8,1" FOR OUTPUT AS #1
110 GJ$=CHR$(&H77)+CHR$(&H21)
120 PRINT #1,CHR$(&H12);"F0";
'16 dots font
130 PRINT #1,CHR$(&H1C);"2";GJ$;
'7721H
140 RESTORE 570 : N=32 : GOSUB 540
150 PRINT #1,CHR$(&H12);"F1";
'24 dots font
160 PRINT #1,CHR$(&H1C);"2";GJ$;
'7721H
170 RESTORE 600 : N=72 : GOSUB 540
180 FOR I=&H30 TO &H33
'2330~2333
190 K$=K$+CHR$(&H23)+CHR$(I)
200 NEXT I
210 FOR I=&H41 TO &H44
'2341~2444
220 K$=K$+CHR$(&H23)+CHR$(I)
230 NEXT I
240 FOR I=&H21 TO &H23
'3021~3024
250 K$=K$+CHR$(&H30)+CHR$(I)
260 NEXT I : K$=K$+GJ$
270 PRINT #1,CHR$(&H1C);"&";
280 FOR J=0 TO 1
290 PRINT #1,CHR$(&H12);"F";CHR$(J);
300 FOR I=0 TO 1
310 PRINT #1,CHR$(&H1C);"W";CHR$(I);
320 PRINT #1,CHR$(&H1C);"r";CHR$(I);K$
330 NEXT I : NEXT J
340 PRINT #1,CHR$(&H1C);"W0";
350 PRINT #1,CHR$(&H1C);"J";
360 FOR I=2 TO 0 STEP -1
370 PRINT #1,CHR$(&H1C);"-";CHR$(I);K$
380 NEXT I
390 PRINT #1,CHR$(&H1C);"K";
400 FOR I=2 TO 0 STEP -1
410 PRINT #1,CHR$(&H1C);"-";CHR$(I);K$
420 NEXT I
430 FOR I=2 TO 0 STEP -1
440 PRINT #1,CHR$(&H12);"Y";CHR$(I);K$
'Rotation
450 NEXT I
460 PRINT #1,CHR$(&H1C);"!";CHR$(&HBD);K$
470 PRINT #1,CHR$(&H1C);"!";CHR$(&H0);K$
480 FOR I=0 TO 18
490 PRINT #1,CHR$(&H1C);"S";CHR$(I);CHR$(I); 'Kanji
space
500 PRINT #1,CHR$(&H30);CHR$(&H21+I);
510 NEXT I : PRINT #1,CHR$(&H0D);CHR$(&H1C);".";
520 CLOSE #1
530 END
540 FOR I=0 TO N-1
550 READ D$ : PRINT #1,CHR$(VAL("&h"+D$));
560 NEXT I : RETURN
570 '16x16 Font
580 DATA 80,80,C0,C0,E0,E0,F0,F0,F8,F8,FC,FC,FE,FE,FF,FF
590 DATA 80,80,C0,C0,E0,E0,F0,F0,F8,F8,FC,FC,FE,FE,FF,FF
600 '24x24 Font
610 DATA 80,80,80,C0,C0,C0,E0,E0,E0,F0,F0,F0,F8,F8,F8,FC
620 DATA FC,FC,FE,FE,FE,FF,FF,FF,80,80,80,C0,C0,C0,E0,E0
630 DATA E0,F0,F0,F0,F8,F8,F8,FC,FC,FC,FE,FE,FE,FF,FF,FF
640 DATA 80,80,80,C0,C0,C0,E0,E0,E0,F0,F0,F0,F8,F8,F8,FC
650 DATA FC,FC,FE,FE,FE,FF,FF,FF
Figure 6-11 Program Sample 6
Summary of Contents for DPU-S445 SERIES
Page 1: ...DPU S445 SERIES THERMAL PRINTER TECHNICAL REFERENCE U00110811309 ...
Page 90: ...6 43 Figure 6 10 Print Sample 5 ...
Page 100: ...6 53 Figure 6 12 Print Sample 6 ...
Page 126: ...6 79 Figure 6 24 Print Sample 12 ...
Page 128: ...6 81 Figure 6 26 Print Sample 13 ...
Page 130: ...6 83 Figure 6 28 Print Sample 14 ...