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
        
 
 