6-24
100 OPEN "COM1:9600,N,8,1" FOR OUTPUT AS #1
110 PRINT #1,CHR$(&H1B);"0";
120 PRINT #1,"ESC+0 ----- 1/8 inch line space"
130 PRINT #1,CHR$(&H1B);"2";
140 PRINT #1,"ESC+2 ----- 1/6 inch line space"
150 FOR I=0 TO 96 STEP 24
160 PRINT #1,CHR$(&H1B);"3";CHR$(I);
170 PRINT #1,"ESC+3+n -----";I;"dot-line line space"
180 NEXT I
190 PRINT #1,"---------------------------------------"
200 CLOSE #1
210 END
Figure 6-3 Program Sample 2
Figure 6-4 Print Sample 2
Commentaires sur ces manuels