start tok64 d64-Ff9jng
0 PRINT"{clear}{white}svenska felkoder":POKE53280,6:POKE53281,6
1 PRINT"{light blue}flyttar rom till ram. ";
10 FORi=49152TO49185:READa:POKEi,a:NEXT:SYS49152
20 DATA169,160,133,252,169,224,133,254,169,,133,251,133,253,160,
30 DATA177,251,145,251,177,253,145,253,136,208,245,230,252,230,254,208,237,96
41 PRINT"klart..":PRINT"f{pound}rsvenskar. ";
50 a=41374:p=41768
60 FORi=1TO29:READa$:h=INT(a/256):l=a-(h*256):POKEp,l:POKEp+1,h:p=p+2
70 FORj=1TOLEN(a$):b=ASC(MID$(a$,j,1))
80 POKEa,b:a=a+1:NEXT:NEXT
100 a=41833:READa$:FORj=1TO7:b=ASC(MID$(a$,j,1)):POKEa,b:a=a+1:NEXT
110 a=41841:READa$:FORj=1TO4:b=ASC(MID$(a$,j,1)):POKEa,b:a=a+1:NEXT
120 a=41859:READa$:FORj=1TO5:b=ASC(MID$(a$,j,1)):POKEa,b:a=a+1:NEXT
125 a=44284:READa$:FORj=1TO14:b=ASC(MID$(a$,j,1)):POKEa,b:a=a+1:NEXT
130 a=44300:READa$:FORj=1TO16:b=ASC(MID$(a$,j,1)):POKEa,b:a=a+1:NEXT
135 PRINT"klar.."
140 REM**60-80**
150 DATA"f{pound}r m]nga fileR","fil {pound}ppeN","fil ej {pound}ppeN","fil ej funneN"
160 DATA"enhet ej funneN","ej infiL","ej utfiL","filnamn fattaS"
170 DATA"felaktigt devicenummeR","next utan foR","syntaX","return utan gosuB"
180 DATA"slut p] datA","felaktig kvantiteT","f{pound}r h{pound}gt taL","slut p] minnE"
190 DATA"rad ej funneN","utanf{pound}r dimomr]dE","redan dimensioneraT"
200 DATA"division med nolL","ej direkT","str[ng/variabeL","str[ng f{pound}r l]nG"
210 DATA"fildatA","utr[kning f{pound}r kompleX","kan ej forts[ttA"
220 DATA"odefinerad funktioN","verifY","loaD
230 REM**100**
240 DATA" -fel. "
250 REM**110**
260 DATA"rad:"
270 REM**120**
280 DATA"stopp"
290 REM**125**
300 DATA"f{pound}r m]nga svar"
310 REM**130**
320 DATA"?siffror, tack! "
330 POKE1,54
stop tok64
(bastext 1.0)