Specifications

6-41
100 OPEN "COM1:9600,N,8,1" FOR OUTPUT AS #1
110 PRINT #1,CHR$(&H12);"F0"; '16 dots font
120 PRINT #1,CHR$(&H1B);"&";CHR$(0);"DD"; 'D
130 RESTORE 460 : N=16 : GOSUB 430
140 PRINT #1,CHR$(&H12);"F1"; '24 dots font
150 PRINT #1,CHR$(&H1B);"&";CHR$(0);"oo"; 'o
160 RESTORE 480 : N=48 : GOSUB 430
170 PRINT #1,CHR$(&H1B);"%1"; 'Down Load Select
180 PRINT #1,CHR$(&H12);"F0";"16 dots Down Load Select"
190 PRINT #1,CHR$(&H12);"F1";"24 dots Down Load Select"
200 PRINT #1,CHR$(&HE);"DoubleWidth by SO"
210 PRINT #1,"Normal print"
220 PRINT #1,"Normal";
230 PRINT #1,CHR$(&H1B);"-1";"+UnderLine";
240 PRINT #1,CHR$(&H1B);"W1";"+DoubleWidth";
250 PRINT #1,CHR$(&H1B);"w1";"+DoubleHeight";
260 PRINT #1,CHR$(&H1B);"E";"+Emphasize";
270 PRINT #1,CHR$(&H1B);"-0";"-UnderLine";
280 PRINT #1,CHR$(&H1B);"W0";"-DoubleWidth";
290 PRINT #1,CHR$(&H1B);"w0";"-DoubleHeight";
300 PRINT #1,CHR$(&H1B);"F";"-Emphasize";
310 PRINT #1,CHR$(&H1B);"!";CHR$(&HB8);"+CollectivelySet";
320 PRINT #1,CHR$(&H1B);"!";CHR$(&H00);"-CollectivelyClear"
330 PRINT #1,CHR$(&H12);"Y2";"Rotation Left"
340 PRINT #1,CHR$(&H12);"Y1";"Rotation Right"
350 PRINT #1,CHR$(&H12);"Y0";"Rotation Off";CHR$(&H0D);CHR$(&H0D);
360 PRINT #1,"Character space"
370 FOR I=0 TO 25
380 PRINT #1,CHR$(&H1B);" ";CHR$(I);
390 PRINT #1,CHR$(&H41+I);
400 NEXT I : PRINT #1,CHR$(&H0D);
410 CLOSE #1
420 END
430 FOR I=0 TO N-1
440 READ D$ : PRINT #1,CHR$(VAL("&h"+D$));
450 NEXT I : RETURN
460 '16x8 Font
470 DATA 80,80,C0,C0,E0,E0,F0,F0,F8,F8,FC,FC,FE,FE,FF,FF
480 '24x12 Font
490 DATA 80,80,80,C0,C0,C0,E0,E0,E0,F0,F0,F0,F8,F8,F8,FC
500 DATA FC,FC,FE,FE,FE,FF,FF,FF,00,00,00,00,00,00,00,00
510 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
Figure 6-9 Program Sample 5