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)