start tok64 d64-C7Pb3e
0 REM svenska soft #1 /87
80 FORi=49152TO49279:READa:POKEi,a
90 ck=ck+a:NEXT
110 IFck<>12338THENPRINT"data fel!":STOP
120 :
130 PRINT"{clear}data ok!"
140 PRINT:PRINT
150 PRINT"sys(49152) for att fa data om program{space*3}";
160 PRINT"{cm t*10}"
170 PRINT:END
180 :
190 DATA169,1,160,0,162,1,32,192,255,169,78,160,192,32,30,171,32,116,192,234
200 DATA234,234,234,169,88,160,192,32,30,171,174,61,3,173,62,3,32,205,189,169
210 DATA97,160,192,32,30,171,174,63,3,173,64,3,32,205,189,169,105,160,192,32
220 DATA30,171,173,63,3,237,61,3,170,173,64,3,237,62,3,76,205,189,147,13,13
230 DATA78,65,86,78,32,58,0,13,83,84,65,82,84,32,58,0,13,83,76,85,84,32,58
240 DATA0,13,76,65,69,78,71,68,69,32,58,0,169,0,141,88,3,169,65,160,3,76,30
250 DATA171
stop tok64
(bastext 1.0)