Specifications

6-56
100 OPEN "COM1:9600,N,8,1" FOR OUTPUT AS #1
110 D=408:N=D
120 PRINT #1,"8 dots Single-density
130 PRINT #1,CHR$(&H1B);"*";CHR$(0);CHR$(D MOD 256);CHR$(D\256);
140 GOSUB 260
150 N=D : PRINT #1,"8 dots Double-density
160 PRINT #1,CHR$(&H1B);"*";CHR$(1);CHR$(D MOD 256);CHR$(D\256);
170 GOSUB 260
180 N=D*3 : PRINT #1,"24 dots Single-density
190 PRINT #1,CHR$(&H1B);"*";CHR$(32);CHR$(D MOD 256);CHR$(D\256);
200 GOSUB 260
210 N=D*3 : PRINT #1,"24 dots Double-density
220 PRINT #1,CHR$(&H1B);"*";CHR$(33);CHR$(D MOD 256);CHR$(D\256);
230 GOSUB 260
240 CLOSE #1
250 END
260 FOR I=1 TO N/12
270 PRINT #1,CHR$(&H33);CHR$(&H33);CHR$(&H33);
280 PRINT #1,CHR$(&H33);CHR$(&H33);CHR$(&H33);
290 PRINT #1,CHR$(&HCC);CHR$(&HCC);CHR$(&HCC);
300 PRINT #1,CHR$(&HCC);CHR$(&HCC);CHR$(&HCC);
310 NEXT I:PRINT #1,CHR$(&HD);
320 RETURN
Figure 6-13 Program Sample 7
Figure 6-14 Print Sample 7