start tok64 d64-tWQZhS
10 i=49243
20 READa:IFa=-1THEN50
30 POKEi,a:i=i+1
40 t=t+a:GOTO20
50 IFt<>20549THENPRINT"{down}checksum error:20549",t:er=1
60 IFi>49409THENPRINT"{down}too many data values":er=1
70 IFi<49409THENPRINT"{down}not enough data values":er=1
80 IFer=1THENEND
90 PRINT"{down*2}to delete lines enter sys49243,l1-l2":END
100 DATA32,191,192,165,95,166,96
110 DATA133,251,134,252,32,19,166
120 DATA165,95,166,96,144,10,160
130 DATA1,177,95,240,4,170,136
140 DATA177,95,133,122,134,123,165
150 DATA251,56,229,122,170,165,252
160 DATA229,123,168,176,30,138,24
170 DATA101,45,133,45,152,101,46
180 DATA133,46,160,0,177,122,145
190 DATA251,200,208,249,230,123,230
200 DATA252,165,46,197,252,176,239
210 DATA32,51,165,165,34,166,35
220 DATA24,105,2,133,45,144,1
230 DATA232,134,46,32,89,166,76
240 DATA116,164,32,253,174,32,121
250 DATA0,144,22,240,14,201,171
260 DATA208,10,169,1,133,95,169
270 DATA8,133,96,208,21,76,8
280 DATA175,234,234,234,32,107,169
290 DATA32,19,166,32,121,0,240
300 DATA12,201,171,208,235,32,115
310 DATA0,32,107,169,208,227,165
320 DATA20,5,21,208,6,169,255
330 DATA133,20,133,21,96,-1
stop tok64
(bastext 1.0)