0 CLR
100 PRINT "[147]":DIM C$(15):FOR I=0 TO 15:READ C$(I):NEXT:GOSUB 240
110 PRINT"F1/F7 BACKGROUND  [RETURN] TEXT"
120 DATA BLK,WHT,RED,CYN,PUR,GRN,BLU,YEL
130 DATA ORG,BRN,LRED,DGRY,MGRY,LGRN,LBLU,LGRY
140 POKE 251,PEEK(253):POKE 252,PEEK(254)
150 PRINT "":FOR I=0 TO 15:IF (PEEK(253) AND 15)=I THEN PRINT"";
160 PRINT C$(I)"[146]",
170 IF (PEEK(254) AND 15)=I THEN PRINT "";
180 PRINT C$(I)"[146]":NEXT
190 GET A$:IF A$="" THEN 190
200 IF A$="[133]" THEN POKE 253,(PEEK(253)+1) AND 15
210 IF A$="[136]" THEN POKE 254,(PEEK(254)+1) AND 15
220 IF A$=CHR$(13) THEN POKE 646,(PEEK(646)+1) AND 15
230 GOTO 140
240 SA=679:FOR I=0TO 73:READ D:POKE SA+I,D:NEXT
250 A=SA+36:POKESA+30,A/256:POKE SA+25,A-PEEK(SA+30)*256:SYS SA:RETURN
260 DATA 120,173,26,208,9,1,141,26,208
270 DATA 173,17,208,41,127,141,17,208
280 DATA 169,0,141,18,208,133,2,169,203
290 DATA 141,20,3,169,2,141,21,3,88,96
300 DATA 173,25,208,41,1,208,3,76,49
310 DATA 234,166,2,181,251,141,32,208
320 DATA 181,253,141,33,208,138,73,1
330 DATA 133,2,173,25,208,9,1,141,25
340 DATA 208,76,129,234