5 x=0:rem raster scroller by neil raine 1987
10 i=49152:rem typed in by white flame, september 2004
20 reada:ifa=256 and x=125370 then print"all done":end
30 poke53280,a:if a=256 thenprint"incorrect data"
35 x=x+a
40 pokei,a:i=i+1:goto20
50 data 173,22,208,41,248,41,247,9
60 data 16,141,118,195,32,199,192,96
70 data 173,25,208,24,106,144,86,169
80 data 255,141,25,208,173,116,195,141
90 data 18,208,173,130,195,141,32,208
100 data 173,24,208,41,15,9,16,141
110 data 24,208,173,24,208,41,240,24
120 data 109,129,195,141,24,208,169,200
130 data 141,22,208,32,230,192,238,136
140 data 195,173,136,195,205,120,195,208
150 data 242,169,0,141,136,195,141,31
160 data 208,169,127,45,17,208,141,17
170 data 208,120,169,112,141,20,3,169
180 data 192,141,21,3,88,76,49,234
190 data 173,25,208,24,106,144,246,169
200 data 255,141,25,208,173,117,195,141
210 data 18,208,173,132,195,141,34,208
220 data 173,133,195,141,35,208,173,131
230 data 195,141,32,208,173,24,208,41
240 data 15,9,240,141,24,208,173,118
250 data 195,141,22,208,173,24,208,41
260 data 240,24,109,128,195,141,24,208
270 data 169,127,45,17,208,141,17,208
280 data 120,169,16,141,20,3,169,192
290 data 141,21,3,88,76,49,234,173
300 data 14,220,41,254,141,14,220,120
310 data 169,16,141,20,3,169,192,141
320 data 21,3,88,169,255,141,25,208
330 data 169,1,141,26,208,96,140,135
340 data 195,173,134,195,201,1,240,11
350 data 173,134,195,201,2,240,8,172
360 data 135,195,96,32,29,194,96,32
370 data 24,193,96,173,17,208,41,239
380 data 141,17,208,169,0,173,21,208
390 data 141,127,195,169,0,141,21,208
400 data 173,21,208,141,124,195,173,118
410 data 195,201,208,240,67,173,118,195
420 data 201,215,240,76,173,118,195,201
430 data 209,240,53,173,118,195,201,210
440 data 240,46,173,118,195,201,211,240
450 data 39,173,118,195,201,212,240,32
460 data 173,118,195,201,213,240,25,173
470 data 118,195,201,214,240,18,238,32
480 data 208,173,17,208,9,16,141,17
490 data 208,173,127,195,141,21,208,96
500 data 238,118,195,173,124,195,141,21
510 data 208,96,169,4,141,120,195,96
520 data 173,118,195,41,248,41,247,141
530 data 118,195,160,239,185,255,59,153
540 data 0,60,185,223,61,153,224,61
550 data 185,239,60,153,240,60,136,192
560 data 0,208,233,206,121,195,206,122
570 data 195,165,1,41,254,133,1,172
580 data 121,195,185,0,160,141,0,60
590 data 185,255,160,141,40,60,185,254
600 data 161,141,80,60,185,253,162,141
610 data 120,60,185,252,163,141,160,60
620 data 185,251,164,141,200,60,185,250
630 data 165,141,240,60,185,249,166,141
640 data 24,61,185,248,167,141,64,61
650 data 185,247,168,141,104,61,185,246
660 data 169,141,144,61,185,245,170,141
670 data 184,61,185,244,171,141,224,61
680 data 185,243,172,141,8,62,185,242
690 data 173,141,48,62,185,241,174,141
700 data 88,62,185,240,175,141,128,62
710 data 185,239,176,141,168,62,165,1
720 data 9,1,133,1,96,173,118,195
730 data 201,209,240,50,173,118,195,201
740 data 208,240,47,173,118,195,201,210
750 data 240,36,173,118,195,201,211,240
760 data 29,173,118,195,201,212,240,22
770 data 173,118,195,201,213,240,15,173
780 data 118,195,201,214,240,8,173,118
790 data 195,201,215,240,1,96,206,118
800 data 195,96,160,0,185,1,60,153
810 data 0,60,185,241,60,153,240,60
820 data 185,225,61,153,224,61,200,192
830 data 240,208,233,173,118,195,41,248
840 data 24,105,7,141,118,195,238,122
850 data 195,238,121,195,165,1,41,254
860 data 133,1,172,122,195,185,0,160
870 data 141,39,60,185,255,160,141,79
880 data 60,185,254,161,141,119,60,185
890 data 253,162,141,159,60,185,252,163
900 data 141,199,60,185,251,164,141,239
910 data 60,185,250,165,141,23,61,185
920 data 249,166,141,63,61,185,248,167
930 data 141,103,61,185,247,168,141,143
940 data 61,185,246,169,141,183,61,185
950 data 245,170,141,223,61,185,244,171
960 data 141,7,62,185,243,172,141,47
970 data 62,185,242,173,141,87,62,185
980 data 241,174,141,127,62,185,240,175
990 data 141,167,62,185,239,176,141,207
1000 data 62,165,1,9,1,133,1,96
1010 data 173,134,195,141,137,195,169,0
1020 data 141,134,195,141,125,195,169,0
1030 data 133,2,169,60,133,3,160,0
1040 data 24,173,126,195,145,2,200,208
1050 data 248,230,3,238,125,195,173,125
1060 data 195,201,3,208,233,173,137,195
1070 data 141,134,195,96,173,134,195,141
1080 data 138,195,120,173,120,195,141,141
1090 data 195,173,116,195,141,139,195,173
1100 data 117,195,141,140,195,169,0,141
1110 data 116,195,141,134,195,169,30,141
1120 data 117,195,96,173,139,195,141,116
1130 data 195,173,140,195,141,117,195,173
1140 data 141,195,141,120,195,173,138,195
1150 data 141,134,195,96,49,193,0,0
1160 data 1,0,39,0,0,0,32,0
1170 data 4,6,0,11,11,12,2,0
1180 data 0,0,0,0,0,0,0,256