Specifications

6-68
100 OPEN "COM1:9600,N,8,1" FOR OUTPUT AS #1
110 SCD=&H41:ECD=&H45
120 PRINT #1,CHR$(&H12);"P";CHR$(SCD);CHR$(ECD);CHR$(16);CHR$(8); 'A~E
130 FOR I=0 TO ECD-SCD
140 RESTORE 280 : N=16 : GOSUB 250
150 NEXT I
160 FOR I=0 TO 1
170 PRINT #1,CHR$(&H12);"O";CHR$(I);
180 FOR J=0 TO 1
190 PRINT #1,CHR$(&H1B);"W";CHR$(J);
200 PRINT #1,CHR$(&H1B);"w";CHR$(J);
210 PRINT #1,"ABCDEFGHIJ"
220 NEXT J : NEXT I
230 CLOSE #1
240 END
250 FOR J=0 TO N-1
260 READ D$ : PRINT #1,CHR$(VAL("&h"+D$));
270 NEXT J : RETURN
280 '8
16 Font
290 DATA 80,80,C0,C0,E0,E0,F0,F0,F8,F8,FC,FC,FE,FE,FF,FF
Figure 6-21 Program Sample 11
Figure 6-22 Print Sample 11