Specifications

6-65
100 OPEN "COM1:9600,N,8,1" FOR OUTPUT AS #1
110 PRINT #1,CHR$(&H13);"A";
120 PRINT #1,CHR$(&H13);"V";
130 PRINT #1,STRING$(52,CHR$(&H88));
140 FOR I=1 TO 52 : PRINT #1,CHR$(I); : NEXT I
150 PRINT #1,CHR$(&H13);"+";
160 PRINT #1,"RULED LINE OR"
170 PRINT #1,CHR$(&H12);"#1";
180 PRINT #1,"RULED LINE XOR"
190 PRINT #1,CHR$(&H13);"(";
200 FOR I=0 TO 200
210 X=INT(SQR(40000!-I^2)):X1=415-X:X2=415+X
220 PRINT #1,"C";
230 PRINT #1,"L";CHR$(X1 MOD 256);CHR$(X1\256);CHR$(160);CHR$(1);
240 PRINT #1,"D";CHR$(X2 MOD 256);CHR$(X2\256);
250 PRINT #1,"P";
260 NEXT I
270 PRINT #1,"ACF";CHR$(&HFF);CHR$(&HFF);
280 PRINT #1,"BCL";CHR$(0);CHR$(0);CHR$(3);CHR$(0);
290 PRINT #1,"L";CHR$(60);CHR$(3);CHR$(63);CHR$(3);
300 PRINT #1,"D";CHR$(94);CHR$(0);
310 PRINT #1,"D";CHR$(158);CHR$(0);"-)"
320 PRINT #1,CHR$(&H13);"(+APPPPB)";
330 PRINT #1," RULEDLINEPRINT"
340 PRINT #1,CHR$(&H13);"(APPB)";
350 PRINT #1,CHR$(&HE);"ABCDEFGHIJ"
360 PRINT #1,CHR$(&H13);"(APPPP-)";
365 CLOSE #1
370 END
Figure 6-19 Program Sample 10
Figure 6-20 Print Sample 10