REM show foreground background colors

NEW

10 S=48928
50 FOR V=0TO 15
55 Y=V+9
60 FOR X=0TO31
70 C=35
80 K=32*V+X
90 B=11*16:IF K AND 256 THEN B=B+1
100 A=255 AND K
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
