start tok64 d64-0bajkd
10 i=49152:t=0
20 READa:IFa=-1THEN50
30 POKEi,a:t=t+a
40 i=i+1:GOTO20
50 IFt<>37131THENPRINT"checksum. error "37131,t:END
60 IFi<>49431THENPRINT"fel i datasatserna":END
70 PRINT"{clear}{down*4}{right*2}spara program med auto-run skriv:"
80 PRINT"{down}{right*2}sys(49152)"CHR$(34)"filnamn"CHR$(34)":save":END
100 DATA165,43,141,23,193,165,44
110 DATA141,24,193,169,165,133,43
120 DATA141,2,3,169,2,133,44
130 DATA141,3,3,165,45,141,25
140 DATA193,165,46,141,26,193,169
150 DATA3,133,46,169,4,133,45
160 DATA162,86,189,192,192,157,165
170 DATA2,202,16,247,169,8,133
180 DATA252,169,0,133,251,160,1
190 DATA177,251,73,255,145,251,200
200 DATA208,247,230,252,165,252,201
210 DATA160,208,239,32,212,225,169
220 DATA3,133,185,32,89,225,173
230 DATA23,193,133,43,173,24,193
240 DATA133,44,173,25,193,133,45
250 DATA173,26,193,133,46,169,135
260 DATA141,50,3,169,192,141,51
270 DATA3,169,131,141,2,3,169
280 DATA164,141,3,3,169,0,133
290 DATA157,96,169,237,141,50,3
300 DATA169,245,141,51,3,169,1
310 DATA170,168,32,186,255,169,1
320 DATA162,121,160,192,32,189,255
330 DATA32,89,225,169,0,133,251
340 DATA169,8,133,252,160,1,177
350 DATA251,73,255,145,251,200,208
360 DATA247,230,252,165,252,201,160
370 DATA208,239,96,169,131,141,2
380 DATA3,169,164,141,3,3,169
390 DATA0,133,157,32,213,255,169
400 DATA1,170,168,32,186,255,169
410 DATA1,162,166,160,2,32,189
420 DATA255,169,0,32,213,255,134
430 DATA45,134,47,134,49,132,46
440 DATA132,48,132,50,160,0,132
450 DATA251,169,8,133,252,200,169
460 DATA255,81,251,145,251,200,208
470 DATA247,230,252,165,252,201,160
480 DATA208,239,169,0,32,94,166
490 DATA32,142,166,76,174,167,-1
stop tok64
(bastext 1.0)