start tok64 d64-Vg4xux
1 REM  ** sortutmaningen dmz 2-1990 **
2 REM
3 REM  ** forbattrad version:klarar **
4 REM  **  aven tal innehallande .  **
5 REM
100 DIMl$(18,2),l(18,2),e(18,2):DATA,,in,ft,',miles,mile,gl,gallon,gl,gallons
110 DATAmm,1e-3,1,1,1,cm,.01,,,14,dm,.1,,,16,m,1,6,6,32,in,.0254,3,3,14,ft
120 DATA.3048,6,6,16,yd,.9144,12,28,32,km,1e3,24,48,,1,miles,1609.3,24,nm,1852
130 DATA24,.1,10,100,16.093,1,1,ha,1e4,8,sq miles,25899,56,.01,100,1e4,100,2.5899
140 DATA6,ml,1e-6,6,cl,1e-5,12,dl,1e-4,,l,1e-3,16,pt,5683e-7,24,us gl,3785e-6,16
150 DATAuk gl,4546e-6,16,1e-6,10,10,10,1e3:FORi=1TO11:READa$:NEXT:FORi=0TO7
160 READa$,b:FORp=0TO2:l(i,p)=b^(p+1):l$(i,p)=a$+MID$(" 23",p+1,p):READe(i,p)
170 NEXT:NEXT:l$(7,2)="":FORq=0TO2:READs:FORr=0TOs:READl$(i,q),l(i,q),e(i,q)
180 i=i+1:NEXT:FORp=0TO4:READf(p,q):NEXT:NEXT:READz$:DATAfelaktig inmatning
190 RESTORE:READa$,s$,c$:b$=CHR$(34):INPUT"mata in ett v[rde";a$:IFa$=""THENEND
200 FORi=1TO5:b=LEN(b$):IFRIGHT$(a$,b)=b$THENa$=LEFT$(a$,LEN(a$)-b)+c$
210 READc$,b$:NEXT:FORw=1TOLEN(a$):q=ASC(MID$(a$,w))
220 IFq=32ORq<58ANDq>47ORq=46THENNEXT
230 FORq=0TO2:FORi=0TO18:t=VAL(a$)*l(i,q):IFw=1ORw>LEN(a$)THENPRINTz$:GOTO190
240 IFMID$(a$,w)<>l$(i,q)THENNEXT:NEXT:PRINTz$":ok[nd enhet":GOTO190
250 s=t:PRINTa$" motsvarar:":FORz=0TO4:s=s/f(z,q):IFs=>1THENNEXT
260 FORi=0TO18:IFe(i,q)AND2^zTHENPRINTSTR$(t/l(i,q))+" "+l$(i,q)+",";
270 NEXT:PRINT"{delete}":GOTO190
stop tok64
(bastext 1.0)