8 lines
152 B
Text
8 lines
152 B
Text
10 cls
|
|
20 for r = 0 to 15
|
|
30 for c = 1 to 6
|
|
40 a = 16+r+c*16
|
|
50 print right$(" "+str$(a),4)": " chr$(a)tab (10*c);
|
|
60 next c
|
|
70 print
|
|
80 next r
|