Specifications

6-98
100 OPEN "COM1:9600,N,8,1" FOR OUTPUT AS #1
110 FOR I=0 TO 1
120 PRINT #1,CHR$(&H12);"F";CHR$(I);
130 IF I=0 THEN PRINT #1,"16"; ELSE PRINT #1,"24";
140 PRINT #1," DOT FONT"
150 FOR J=&H41 TO &H5A
160 PRINT #1,CHR$(J);
170 NEXT J:PRINT #1,CHR$(&H0D);
180 PRINT #1,CHR$(&H1C);"&";
190 FOR J=&H21 TO &H30
200 PRINT #1,CHR$(&H30);CHR$(J);
210 NEXT J:PRINT #1,CHR$(&H0D);
220 PRINT #1,CHR$(&H1C);"r";CHR$(0);
230 FOR J=&H30 TO &H39
240 PRINT #1,CHR$(&H23);CHR$(J);
250 NEXT J:PRINT #1,CHR$(&H0D);
260 PRINT #1,CHR$(&H0D);CHR$(&H1C);".";
270 NEXT I:PRINT #1,CHR$(&H0D);
280 CLOSE #1
290 END
Figure 6-35 Program Sample 18
Figure 6-36 Print Sample 18