标题LQ——1600K打印机检测程序
栏目软件操作与技巧
作者沈阳 甄正国
发布1992-06-05
10 WIDTH "lpt1:"，255
20 LPRINT "1 2 3 4 5 6 7 8 9 10 11 12"；
30 LPRINT "13 14 15 16 17 18 19 20 21 22 23 24"
40 FOR J=7 TO 0 STEP-1
50 LPRINT CHR$(27) "*" CHR$(33) CHR$(18) CHR$(0);
60 FOR I=1 TO 18:LPRINT CHR$(2^J) CHR$(0) CHR$(0);:NEXT I
70 LPRINT " ";:NEXT J
80 FOR J=7 TO 0 STEP-1
90 LPRINT CHR$(27) "*" CHR$(33) CHR$(18) CHR$(0)；
100 FOR I=1 TO 18:LPRINT CHR$(0) CHR$(2^J) CHR$(0);:NEXT I
110 LPRINT " ";:NEXT J
120 FOR J=7 TO 0 STEP-1
130 LPRINT CHR$(27) "*" CHR$(33) CHR$(18) CHR$(0);
140 FOR I=1 TO 18:LPRINT CHR$(0) CHR$(0) CHR$(2^J);:NEXT I
150 LPRINT " ";:NEXT J