start tok64 d64-358HjV 10 x=0 20 FORi=52992TO53240:READa:POKEi,a:x=x+a:NEXT 30 IFx<>22867THENPRINT"fel i datasatserna":END 40 PRINT"{clear}starta med:{down*3}sys 52992{home}" 50 DATA 120,169,64,141,20,3,169,207 60 DATA 141,21,3,88,162,63,189,178 70 DATA 207,157,192,2,202,16,247,169 80 DATA 100,141,14,208,141,15,208,169 90 DATA 1,141,46,208,169,128,141,21 100 DATA 208,173,24,208,41,240,74,74 110 DATA 24,105,3,133,252,169,255,133 120 DATA 251,160,0,169,11,145,251,96 130 DATA 173,0,220,160,0,162,0,74 140 DATA 176,3,206,15,208,74,176,3 150 DATA 238,15,208,74,176,3,206,14 160 DATA 208,74,176,3,238,14,208,173 170 DATA 15,208,201,49,208,3,238,15 180 DATA 208,173,15,208,201,247,208,3 190 DATA 206,15,208,173,16,208,41,128 200 DATA 208,28,173,14,208,201,23,208 210 DATA 3,238,14,208,173,14,208,201 220 DATA 0,208,36,173,16,208,9,128 230 DATA 141,16,208,76,175,207,173,14 240 DATA 208,201,84,208,3,206,14,208 250 DATA 173,14,208,201,255,208,8,173 260 DATA 16,208,41,127,141,16,208,76 270 DATA 49,234,240,0,0,224,0,0 280 DATA 144,0,0,8,0,0,0,0 290 DATA 0,0,0,0,0,0,0,0 300 DATA 0,0,0,0,0,0,0,0 310 DATA 0,0,0,0,0,0,0,0 320 DATA 0,0,0,0,0,0,0,0 330 DATA 0,0,0,0,0,0,0,0 340 DATA 0,0,0,0,0,0,0,0 350 DATA 0,0,0,0,0,0,0,0 360 DATA 0 stop tok64 (bastext 1.0)