50 POKE53280,6:POKE53281,6:PRINT"[147]"
100 REM COLOR RESTORE
110 FOR I=52992 TO 53042:READ D:POKE I,D:C=C+D:NEXT
120 IF C<>6705 THEN PRINT "ERROR IN DATA STATEMENTS":END
130 INPUT "BORDER COLOR (0-15)";B
140 POKE 53280,B
150 INPUT "BACKGROUND COLOR (0-15)";B
160 POKE 53281,B
170 INPUT "CURSOR COLOR (0-15)";B
180 POKE 646,B
190 SYS 52992
200 DATA 173,134,2,141,160,207,173,33,208,141,162,207,173,32,208
210 DATA 141,161,207,162,29,160,207,142,0,3,140,1,3,96,172
220 DATA 160,207,140,134,2,172,161,207,140,32,208,172,162,207,140
230 DATA 33,208,76,139,227,0