Length.bas TûÊ                    <?Oa<?\>       	        TEXTSmBa            `@è    d@è paH S  Main B9 •  /—& ”h 0   ”hÁXº B* B* •  /—& ”| 0±ˆ B* 0±P' LengthAreaVolume.bas
? CAT(87);
INPUT "Known Number: ";a
? "1 - Millimeters"
? "2 - Centimeters"
? "3 - Meters"
? "4 - Kilometers"
? "5 - Inches"
? "6 - Feet"
? "7 - Yards"
? "8 - Miles"
INPUT "From, To: ";b,c
IF b = 1 AND c = 5 THEN
d=a*.0393
ELIF b = 1 AND c = 6
d=a*.00328
ELIF b = 1 AND c = 7
d=a*.00109
ELIF b = 2 AND c = 5
d=a*.3937
ELIF b = 2 AND c = 6
d=a*.0328
ELIF b = 2 AND c = 7
d=a*.0109
ELIF b = 3 AND c = 5
d=a*39.37
ELIF b = 3 AND c = 6
d=a*3.281
ELIF b = 3 AND c = 7
d=a*1.094
ELIF b = 3 AND c = 8
d=a*.000621
ELIF b = 4 AND c = 6
d=a*3278.9
ELIF b = 4 AND c = 7
d=a*1093
ELIF b = 4 AND c = 8
d=a*.621
ELIF b = 5 AND c = 1
d=a*25.4 
ELIF b = 5 AND c = 2 
d=a*2.54
ELIF b = 5 AND c = 3 
d=a*.0254
ELIF b = 5 AND c = 4
d=a*.0000254
ELIF b = 5 AND c = 6
d=a*.083
ELIF b = 5 AND c = 7
d=a*.0278
ELIF b = 6 AND c = 1 
d=a*304.8
ELIF b = 6 AND c = 2
d=a*30.48 
ELIF b = 6 AND c = 3
d=a*.3048 
ELIF b = 6 AND c = 4
d=a*.0003048
ELIF b = 6 AND c = 5
d=a*12
ELIF b = 6 AND c = 7
d=a*.333
ELIF b = 6 AND c = 8
d=a*.000189
ELIF b = 7 AND c = 1 
d=a*.914
ELIF b = 7 AND c = 2
d=a*91.74 
ELIF b = 7 AND c = 3
d=a*.914
ELIF b = 7 AND c = 4
d=a*1093.6
ELIF b = 7 AND c = 5
d=a*36
ELIF b = 7 AND c = 6
d=a*3
ELIF b = 7 AND c = 8
d=a*.000568
ELIF b = 8 AND c = 3 
d=a*1609.3
ELIF b = 8 AND c = 4
d=a*1.609
ELIF b = 8 AND c = 6
d=a*5280
ELIF b = 8 AND c = 7
d=a*1760
FI
? d
  = 8 AND c = 7
d=a*1760
FI
? d
 