100 REM VIDEO MOVER
110 SA=51456:REM START ADDRESS
120 CK=0
130 FOR M=0 TO 203:READD
140 POKE SA+M,D
150 CK=CK+D:NEXT
160 IF CK<>28129 THEN PRINT"DATA ERROR!":END
170 PRINT"VIDEO MOVER INSTALLED":PRINT SA "TO" SA+203:PRINT
180 PRINT"TO STORE VIDEO:"
190 PRINT"SYS" SA ",SECTION # (0-4), SCREEN ORG":PRINT
200 PRINT"TO RETRIEVE VIDEO:"
210 PRINT"SYS" SA+4 ",SECTION # (0-4), SCREEN ORG"
3000 DATA160,255,208,2,160,0,132,195
3010 DATA32,241,183,224,5,176,17,169
3020 DATA224,202,48,7,24,105,6,176
3030 DATA7,208,246,168,105,5,144,3
3040 DATA76,72,178,132,21,173,136,2
3050 DATA133,175,169,0,133,174,133,20
3060 DATA32,241,183,138,240,23,173,0
3070 DATA221,106,106,106,73,255,41,192
3080 DATA133,196,173,24,208,106,106,41
3090 DATA60,5,196,133,175,120,165,1
3100 DATA72,41,253,133,1,162,0,164
3110 DATA195,240,57,200,177,174,145,20
3120 DATA200,208,249,230,21,230,175,232
3130 DATA224,4,144,240,169,216,133,175
3140 DATA177,174,10,10,10,10,133,195
3150 DATA230,175,177,174,41,15,5,195
3160 DATA198,175,145,20,200,208,233,232
3170 DATA224,6,240,58,230,21,230,175
3180 DATA230,175,208,220,177,20,145,174
3190 DATA200,208,249,230,21,230,175,232
3200 DATA224,4,144,240,169,217,133,175
3210 DATA177,20,145,174,74,74,74,74
3220 DATA198,175,145,174,230,175,200,208
3230 DATA239,232,224,6,240,8,230,21
3240 DATA230,175,230,175,208,226,104,133
3250 DATA1,88,96,0