10 DATA133,4,134,3,169,128,133,0
20 DATA169,187,133,1,160,0,24,165
30 DATA4,145,0,166,3,202,208,253
40 DATA152,105,40,168,144,241,169,0
50 DATA101,1,133,1,201,192,144,231
60 DATA96,120,78,223,2,169,64,44
70 DATA13,3,240,251,169,17,162,1
80 DATA32,0,8,169,18,162,18,32
90 DATA0,8,0,0,173,223,2,201
100 DATA211,208,8,238,6,3,208,3
110 DATA238,7,3,201,198,208,11,174
120 DATA6,3,208,3,206,7,3,206
130 DATA6,3,201,209,208,196,88,96
200 FORI=#800TO#867
210 READA
215 S=S+A
220 POKEI,A
230 NEXT
240 IFS<>10819THENPRINT"ERROR IN DATAS":END
1000 DOKE#306,19966
1010 CALL#829