start tok64 d64-pUJgvQ
0 DIMb$(99),c$(99):INPUT"tal>";a$:m=(LEFT$(a$,1)="-"):a$=MID$(a$,ABS(m)+1)
1 IFa$=""THENEND:DATAett,tv],tre,fyra,fem,sex,sju,]tta,nio,tio,elva,tolv
2 PRINT"ogiltigt tal":IFLEN(a$)>15THENRUN:DATAtretton,fjorton,femton,sexton
3 FORi=1TOLEN(a$):x$=MID$(a$,i,1):IFx$="."THENRUN:DATAsjutton,arton,nitton
4 IFx$<"0"ORx$>"9"THENPRINTa$" [r inget tal":RUN:DATAtjugo,trettio,fyrtio
5 NEXT:FORi=1TO19:READb$(i):NEXT:FORi=20TO90STEP10:READb$(i):FORj=1TO9
6 b$(i+j)=b$(i)+b$(j):NEXT:NEXT:DATAfemtio,sextio,sjuttio,]ttio,nittio,en
7 FORi=2TO99:c$(i)=b$(i):NEXT:READc$(1):PRINT"{up}{space*12}{up}
8 s=LEN(a$):IFs<15THENa$="0"+a$:GOTO8:DATAbiljoner,miljarder,miljoner,tusen
9 PRINTMID$("minus ",(m+1)*7+1);:FORi=1TO12STEP3:READx$:q=VAL(MID$(a$,i,3))
10 IFi>7THENGOSUB16:IFqORwTHENPRINTb$(q)x$;
11 IFi<8THENGOSUB16:IFqORwTHENz=-1:PRINTc$(q)" "x$" ";:IFq+w=1THENPRINT"{delete*3} ";
12 NEXT:q=VAL(MID$(a$,13,1))*100:GOSUB16:q=VAL(RIGHT$(a$,2))
13 IFq=.ANDz=.THENPRINT"noll
14 IFqTHENPRINTb$(q)
15 PRINT:RUN
16 w=INT(q/100):IFwTHENPRINTb$(w)"hundra";:z=-1:q=q-w*100:w=2
17 RETURN
stop tok64
(bastext 1.0)