100 REM COLOR MOVER
110 SA=51320:REM START ADDRESS
120 CK=0
130 FOR M=0 TO 127:READD
140 POKE SA+M,D
150 CK=CK+D:NEXT
160 IF CK<>15890 THEN PRINT"DATA ERROR!":END
170 PRINT"COLOR MOVER INSTALLED":PRINT SA "TO" SA+127:PRINT
180 PRINT"TO STORE COLORS:":PRINT"SYS" SA ",SECTION # (0-15)":PRINT
190 PRINT"TO RETRIEVE COLORS:":PRINT"SYS" SA+4 ",SECTION # (0-15)"
2000 DATA160,255,208,2,160,0,132,195
2010 DATA32,241,183,224,16,176,64,138
2020 DATA10,24,105,224,176,57,170,232
2030 DATA240,53,162,0,133,37,134,34
2040 DATA134,36,162,254,164,195,240,42
2050 DATA200,169,216,133,35,177,34,10
2060 DATA10,10,10,133,195,230,35,177
2070 DATA34,41,15,5,195,198,35,145
2080 DATA36,200,208,233,232,240,55,230
2090 DATA37,230,35,230,35,208,222,76
2100 DATA72,178,120,165,1,72,41,253
2110 DATA133,1,169,217,133,35,177,36
2120 DATA145,34,74,74,74,74,198,35
2130 DATA145,34,230,35,200,208,239,232
2140 DATA240,8,230,37,230,35,230,35
2150 DATA208,228,104,133,1,88,96,0