start tok64 d64-93yXeu
10 i=828:t=0
20 READ a
30 IF a=-1 THEN 70
40 POKE i,a
50 t=t+a
60 i=i+1:GOTO20
70 IF t<>8665THEN PRINT"{down}data error":END
80 SYS(828):END
100 DATA120,169,73,141,143,2,169
110 DATA3,141,144,2,88,96,8
120 DATA72,138,72,152,72,165,197
130 DATA205,138,3,240,43,141,138
140 DATA3,169,15,141,24,212,169
150 DATA0,141,5,212,169,5,141
160 DATA6,212,169,34,141,1,212
170 DATA169,75,141,0,212,169,32
180 DATA141,4,212,169,33,141,4
190 DATA212,169,32,141,4,212,104
200 DATA168,104,170,104,40,76,72
210 DATA235,64,-1
stop tok64
(bastext 1.0)