start tok64 d64-gHiQRN 10 i=49409:t=0 20 READa:IFa=-1THEN50 30 POKEi,a:i=i+1 40 t=t+a:GOTO20 50 IFt<>10002THENPRINT"{down*2}fel i datasatser:"10002,t:END 60 PRINT"{down*2}anv[nd sys49409 f{pound}r att s[tta p]" 70 PRINT"{down*2}anv[nd sys49479 f{pound}r att st[nga av" 80 PRINT"{down*2}":END 100 DATA 120,169,14,141,8,3,169 110 DATA 193,141,9,3,88,96,165 120 DATA 157,240,3,76,228,167,165 130 DATA 57,201,0,208,9,165,58 140 DATA 201,0,208,3,76,228,167 150 DATA 165,57,141,24,193,165,58 160 DATA 141,30,193,169,91,32,210 170 DATA 255,166,57,165,58,32,205 180 DATA 189,169,93,32,210,255,169 190 DATA 32,32,210,255,76,228,167 200 DATA 120,169,228,141,8,3,169 210 DATA 167,141,9,3,88,96,-1 stop tok64 (bastext 1.0)