Specifications

6-51
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