LQ-1600K打印机检测程序

Author: 沈阳甄正国 Date: 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