Speed.bas x÷€ |÷€ Š„÷€ ˆ÷€    <Lµý<L¶/               TEXTSmBa            `@í0   d@í0  H S  Main ý8 P* -6 Or -   OrÁXº ý4 ý4 P* -6 O† .+Š ý4 .+R' Speed.bas
? CAT(87); "Known Number: "
INPUT a
? "1 - Kilometers per Hour"
? "2 - Meters per Second"
? "3 - Miles per Hour"
? "4 - Feet per Second"
? "5 - Feet per Minute"
? "6 - Knot"
? "7 - Mach"
? "8 - Light"
Input "From, To: ";b,c
IF b=1 AND c=2
d=a*.2778
ELIF b=1 AND c=3
d=a*.6214
ELIF b=1 AND c=5
d=a*54.68
ELIF b=1 AND c=6
d=a*.5399
ELIF b=1 AND c=7
d=a*.000838
ELIF b=1 AND c=8
d=a*.000000000927
ELIF b=2 AND c=1
d=a*3.6
ELIF b=2 AND c=3
d=a*2.237
ELIF b=2 AND c=4
d=a*3.281
ELIF b=2 AND c=6
d=a*1.944
ELIF b=2 AND c=7
d=a*.00302
ELIF b=2 AND c=8
d=a*.000000003336
ELIF b=3 AND c=1
d=a*1.609
ELIF b=3 AND c=2
d=a*.44704
ELIF b=3 AND c=4
d=a*1.4667
ELIF b=3 AND c=6
d=a*.86898
ELIF b=3 AND c=7
d=a*.00135
ELIF b=3 AND c=8
d=a*.000000001491
ELIF b=4 AND c=2
d=a*.3048
ELIF b=4 AND c=3
d=a*.6818
ELIF b=4 AND c=6
d=a*.5925
ELIF b=5 AND c=1
d=a*.0183
ELIF b=5 AND c=2
d=a*.00508
ELIF b=5 AND c=3
d=a*.01136
ELIF b=5 AND c=7
d=a*.0000153
ELIF b=6 AND c=1
d=a*1.852
ELIF b=6 AND c=3
d=a*1.151
ELIF b=6 AND c=7
d=a*.00155
ELIF b=7 AND c=1
d=a*1193.256
ELIF b=7 AND c=3
d=a*741.455
ELIF b=7 AND c=4
d=a*1087.47
ELIF b=7 AND c=8
d=a*.000001106
ELIF b=8 AND c=1
d=a*1079253000
ELIF b=8 AND c=3
d=a*670616600
ELIF b=8 AND c=7
d=a*904460.4
FI
? d

 