10 REM ** COLORRUPTOR **
20 FORA=53088TO53247:READI:POKEA,I:NEXT
30 SYS53088
40 PRINT"[147]COLORRUPTOR IS NOW IN PLACE."
50 PRINT:PRINT"BACK ARROW KEY HALTS PROGRAM EXECUTION.":PRINT
60 PRINT"FUNCTION KEYS: 1. CHANGE BORDER COLOR"
70 PRINT"               3. CHANGE SCREEN COLOR"
80 PRINT"               5. CHANGE TEXT COLOR"
90 PRINT"               7. RESUME PROGRAM":PRINT:NEW
100 DATA120,173,40,3,141,248,207,173
110 DATA41,3,141,249,207,173,250,207
120 DATA141,40,3,173,251,207,141,41
130 DATA3,88,96,165,145,201,253,208
140 DATA116,120,169,0,133,198,32,159
150 DATA255,32,228,255,201,0,240,246
160 DATA201,133,240,15,201,134,240,23
170 DATA201,135,240,31,201,136,240,84
180 DATA76,130,207,173,32,208,24,105
190 DATA1,141,32,208,76,130,207,173
200 DATA33,208,24,105,1,141,33,208
210 DATA76,130,207,165,243,141,252,207
220 DATA165,244,141,253,207,169,0,133
230 DATA243,169,216,133,244,173,134,2
240 DATA24,105,1,141,134,2,162,4
250 DATA160,0,145,243,136,208,251,202
260 DATA240,5,230,244,76,216,207,173
270 DATA252,207,133,243,173,253,207,133
280 DATA244,76,130,207,88,108,248,207
290 DATA237,246,123,207,2,0,255,255