start tok64 d64-gsSzAz
0 PRINT:PRINT"{down}skriv rad att fikonisera(% avkodar)":INPUT">";i$:IFi$=""THENEND
1 READv$:IFLEFT$(i$,1)="%"THENq=1
2 FORk=q+1TOLEN(i$):IFMID$(i$,k,1)=" "THENr=r+1:k=k+1
3 w$(r)=w$(r)+MID$(i$,k,1):NEXT:FORk=.TOr:h$=w$(k):p=LEN(h$):IFqTHEN6
4 FORg=1TOp:s=g:GOSUB10:IFsTHEN9
5 PRINT"fi"RIGHT$(h$,p-g)LEFT$(h$,g)"kon ";:g=p:GOTO9
6 PRINT:IFLEFT$(h$,2)="fi"ANDRIGHT$(h$,3)="kon"THEN8
7 PRINT"ordet "h$" [r inte fikonspr]k":RUN
8 FORs=p-4TO2STEP-1:PRINTMID$(h$,s+1,p-s-3)MID$(h$,3,s-2)" ";:GOSUB10
9 NEXT:NEXT:RUN
10 FORm=1TO9:IFMID$(h$,s,1)=MID$(v$,m,1)THENm=9:s=.
11 NEXT:RETURN:DATAaeioy][{pound}
9999 REM dmz #11/1990
stop tok64
(bastext 1.0)