Volume.bas .bas  9€ ‡نى ب9€    <Cپژ<C‚               TEXTSmBa            `@A    d@A  H S  Main B/ •  0¸ ”h 0   ”hءX؛ B* B* •  0¸ ”| 1 B* 1و' Volume.bas
? CAT(87);
INPUT "Known Number: ";a
? "1 - Cubic Millimeters"
? "2 - Cubic Centimeters"
? "3 - Cubic Meters"
? "4 - Liters"
? "5 - Cubic Inches"
? "6 - Cubic Feet"
? "7 - Fluid Ounces"
? "8 - Pints"
? "9 - Quarts   0 - Gallons"
INPUT "From, To: ";b,c
IF b = 1 AND c = 4 THEN
d=a*.000001
ELIF b = 1 AND c = 5
d=a*.0000000353
ELIF b = 2 AND c = 4
d=a*.001
ELIF b = 2 AND c = 5
d=a*.061
ELIF b = 2 AND c = 6
d=a*.0000353
ELIF b = 2 AND c = 7
d=a*.0338
ELIF b = 3 AND c = 4
d=a*1000
ELIF b = 3 AND c = 5
d=a*61023
ELIF b = 3 AND c = 6
d=a*35.315
ELIF b = 3 AND c = 0
d=a*264.17
ELIF b = 4 AND c = 2
d=a*1000
ELIF b = 4 AND c = 3
d=a*.001
ELIF b = 4 AND c = 5
d=a*61.02
ELIF b = 4 AND c = 6
d=a*.0353
ELIF b = 4 AND c = 0
d=a*.2641
ELIF b = 5 AND c = 2
d=a*16.387
ELIF b = 5 AND c = 3
d=a*.00001639
ELIF b = 5 AND c = 4
d=a*.01639
ELIF b = 5 AND c = 6
d=a*.0005787
ELIF b = 5 AND c = 0
d=a*.004329
ELIF b = 6 AND c = 2
d=a*28316.85
ELIF b = 6 AND c = 3
d=a*.02382
ELIF b = 6 AND c = 4
d=a*28.317
ELIF b = 6 AND c = 5
d=a*1728
ELIF b = 6 AND c = 0
d=a*7.4805
ELIF b = 7 AND c = 4
d=a*.0296
ELIF b = 7 AND c = 5
d=a*1.8047
ELIF b = 7 AND c = 8
d=a*.0625
ELIF b = 7 AND c = 9
d=a*.3125
ELIF b = 8 AND c = 4
d=a*.4732
ELIF b = 8 AND c = 5
d=a*28.875
ELIF b = 8 AND c = 0
d=a*.125
ELIF b = 9 AND c = 4
d=a*.9464
ELIF b = 9 AND c = 5
d=a*57.75
ELIF b = 9 AND c = 7
d=a*32
ELIF b = 9 AND c = 8
d=a*2
ELIF b = 0 AND c = 4
d=a*3.7854
ELIF b = 0 AND c = 5
d=a*231
ELIF b = 0 AND c = 6
d=a*.13368
ELIF b = 0 AND c = 7
d=a*128
FI
? d

 ? d

 