13 lines
281 B
Plaintext
13 lines
281 B
Plaintext
100 PRINT CHR$(147);:REM CLEAR SCREEN
|
|
110 PRINT CHR$(14);:REM CHARACTER SET 2
|
|
120 PRINT "COMMODORE 64 - BASIC V2"
|
|
130 PRINT "CHARACTER SET 2"
|
|
140 PRINT
|
|
150 FOR R=0 TO 15
|
|
160 FOR C=0 TO 5
|
|
170 A=32+R+C*16
|
|
180 PRINT RIGHT$(" "+STR$(A),4);":";CHR$(A);
|
|
190 NEXT C
|
|
200 PRINT
|
|
210 NEXT R
|