
REM show characters from different sets


NEW

10 S=48928
20 INPUT "SET 0-15";L
30 L=L AND15
50 FOR V=0TO 7
60 Y=V+9
70 FOR X=0TO31
80 K=32*V+X
90 C=K AND 255
100 B=1+16*L
110 A=15*16
120 POKES+1,C
130 POKES+2,B
140 POKES+3,A
150 POKES+6,Y
160 POKES+7,X
170 POKES+8,1
200 NEXTX:NEXTV
210 A$=INKEY$
220 A$=INKEY$: IF A$="" THEN 220
