Area.bas                           <?_X<?_               TEXTSmBa            `@k   d@k  H S  Main B- •  /Z~ ”h /   ”hÁXº B* B* •  /Z~ ”| 0tà B* 0t¨' Area.bas
? CAT(87);
INPUT "Known Number: ";a
? "1 - Square Millimeters"
? "2 - Square Centimeters"
? "3 - Square Meters"
? "4 - Square Kilometers"
? "5 - Square Inches"
? "6 - Square Feet"
? "7 - Square Yards"
? "8 - Square Miles"
? "9 - Acres"
INPUT "From, To: ";b,c
IF b = 1 AND c = 5 THEN
d=a*.00155
ELIF b = 1 AND c = 6
d=a*.0000108
ELIF b = 2 AND c = 5
d=a*.155
ELIF b = 2 AND c = 6
d=a*.00108
ELIF b = 2 AND c = 7
d=a*.000119
ELIF b = 3 AND c = 5
d=a*1550
ELIF b = 3 AND c = 6
d=a*10.764
ELIF b = 3 AND c = 7
d=a*1.196
ELIF b = 3 AND c = 8
d=a*.000000386
ELIF b = 3 AND c = 9
d=a*.000247
ELIF b = 4 AND c = 6
d=a*10763910
ELIF b = 4 AND c = 7
d=a*1195990
ELIF b = 4 AND c = 8
d=a*.386
ELIF b = 4 AND c = 9
d=a*247.1
ELIF b = 5 AND c = 1
d=a*645.16 
ELIF b = 5 AND c = 2 
d=a*6.4516
ELIF b = 5 AND c = 3 
d=a*.000645
ELIF b = 5 AND c = 6
d=a*.00694
ELIF b = 5 AND c = 7
d=a*.00077
ELIF b = 6 AND c = 1 
d=a*92903
ELIF b = 6 AND c = 2
d=a*929 
ELIF b = 6 AND c = 3
d=a*.0929 
ELIF b = 6 AND c = 4
d=a*.0000000929
ELIF b = 6 AND c = 5
d=a*144
ELIF b = 6 AND c = 7
d=a*.111
ELIF b = 6 AND c = 8
d=a*.00000003587
ELIF b = 7 AND c = 2
d=a*8361 
ELIF b = 7 AND c = 3
d=a*.8361
ELIF b = 7 AND c = 4
d=a*.000000836
ELIF b = 7 AND c = 5
d=a*1296
ELIF b = 7 AND c = 6
d=a*9
ELIF b = 7 AND c = 8
d=a*.0000003228
ELIF b = 8 AND c = 3 
d=a*2589988
ELIF b = 8 AND c = 4
d=a*2.589988
ELIF b = 8 AND c = 6
d=a*27878400
ELIF b = 8 AND c = 7
d=a*3097600
ELIF b = 8 AND c = 9
d=a*639.997
ELIF b = 9 AND c = 3
d=a*4046.8
ELIF b = 9 AND c = 4
d=a*.00404
ELIF b = 9 AND c = 7
d=a*4839.96
ELIF b = 9 AND c = 8
d=a*.00156
FI
? d
 