11 lines
230 B
Text
11 lines
230 B
Text
10 DEFINT I,J: DEFSTR S: DIM S(2)
|
|
20 S(0)="* "
|
|
30 S(1)="Spc"
|
|
40 S(2)="Del"
|
|
50 FOR I=32 TO 47
|
|
60 FOR J=I TO 127 STEP 16
|
|
70 MID$(S(0),1,1) = CHR$(J)
|
|
80 PRINT USING "###: \ \ ";J;S(-(J=32)-2*(J=127));
|
|
90 NEXT J
|
|
100 PRINT
|
|
110 NEXT I
|