10CLS
PRINT"                CONVERSION CALCULATOR"
PRINT""
PRINT"                (c) Hugh J. Campbell"
MC=MENU(1,1,6,0,0,7,"CONVERT","1. LENGTH","2. AREA","3. VOLUME","4. TRIG","5. MISC","6. QUIT")
on(mc%256)+1goto 1000,2000,3000,4000,5000,6000
1000CLS
MC=MENU(1,1,6,0,0,8,"LENGTH  (Type 7 for MAIN MENU)","1. IN/CM","2. CM/IN","3. FT/METERS","4. METERS/FT","5. MILES/KM","6. KM/MILES","7. MAIN MENU")
CLS
on(mc%256)+1goto 1100,1200,1300,1400,1500,1600,1700
1100INPUT"Enter Inches: ";A
CLS
PRINT A" Inches = "A*2.540" Centimeters"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 1000
GOTO 6000
1200INPUT"Enter Centimeters: ";A
CLS
PRINT A" Centimeters = "A*.3937" Inches"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 1000
GOTO 6000
1300INPUT"Enter Feet: ";A
CLS
PRINT A" Feet = "A*.3048" Meters"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 1000
GOTO 6000
1400INPUT"Enter Meters: ";A
CLS
PRINT A" Meters = "A*3.281" Feet"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 1000
GOTO 6000
1500INPUT"Enter Miles: ";A
CLS
PRINT A" Miles = "A*1.609" Kilometers"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 1000
GOTO 6000
1600INPUT"Enter Kilometers: ";A
CLS
PRINT A" Kilometers = "A*.6214" Miles"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 1000
GOTO 6000
1700GOTO 10
2000CLS
MC=MENU(1,1,6,0,0,8,"AREA    (Type 7 for MAIN MENU)","1. SF/ACRES","2. ACRES/SF","3. SQ MILES/ACRES","4. ACRES/SQ MILES","5. SQ METERS/ACRES","6. ACRES/SQ METERS","7. MAIN MENU")
CLS
on(mc%256)+1goto 2100,2200,2300,2400,2500,2600,2700
2100INPUT"Enter Sq. Feet: ";A
CLS
PRINT A" Sq. Feet = "A*.00002296" Acres"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 2000
GOTO 6000
2200INPUT"Enter Acres: ";A
CLS
PRINT A" Acres = "A*.43560" Sq. Feet"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 2000
GOTO 6000
2300INPUT"Enter Sq. Miles: ";A
CLS
PRINT A" Sq. Miles = "A*.640" Acres"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 2000
GOTO 6000
2400INPUT"Enter Acres: ";A
CLS
PRINT A" Acres = "A*.001562" Sq. Miles"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 2000
GOTO 6000
2500INPUT"Enter Sq. Meters: ";A
CLS
PRINT A" Sq. Meters = "A*.0002471" Acres"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 2000
GOTO 6000
2600INPUT"Enter Acres: ";A
CLS
PRINT A" Acres = "A*4047" Sq. Meters"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 2000
GOTO 6000
2700GOTO 10
3000CLS
MC=MENU(1,1,6,0,0,8,"VOLUME    (Type 7 for MAIN MENU)","1. CU FT/CU YDS","2. CU YDS/CU FT","3. GALS/LITERS","4. LITERS/GALS","5. CU YDS/CU METERS","6. CU METERS/CU YDS","7. MAIN MENU")
CLS
on(mc%256)+1goto 3100,3200,3300,3400,3500,3600,3700
3100INPUT"Enter Cu. Feet: ";A
CLS
PRINT A" Cu. Feet = "A*.03704" Cu. Yards"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 3000
GOTO 6000
3200INPUT"Enter Cu. Yards: ";A
CLS
PRINT A" Cu. Yards = "A*27" Cu. Feet"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 3000
GOTO 6000
3300INPUT"Enter Gallons: ";A
CLS
PRINT A" Gallons = "A*3.785" Liters"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 3000
GOTO 6000
3400INPUT"Enter Liters: ";A
CLS
PRINT A" Liters = "A*.2642" Gallons"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 3000
GOTO 6000
3500INPUT"Enter Cu. Yards: ";A
CLS
PRINT A" Cu. Yards = "A*.7646" Cu. Meters"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 3000
GOTO 6000
3600INPUT"Enter Cu. Meters: ";A
CLS
PRINT A" Cu. Meters = "A*1.308" Cu. Yards"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 3000
GOTO 6000
3700GOTO 10
4000CLS
MC=MENU(1,1,6,0,0,8,"TRIG (Type 7 for MAIN MENU)","1. DEGREES/SINE","2. DEGREES/COSINE","3. DEGREES/TANGENT","4. SINE/DEGREES","5. COSINE/DEGREES","6. TANGENT/DEGREES","7. MAIN MENU")
CLS
on(mc%256)+1goto 4100,4200,4300,4400,4500,4600,4700
4100INPUT"Enter Angle: ";A
CLS
PRINT"SINE of a "A" Degree Angle = "SIN(A*.01745)
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 4000
GOTO 6000
4200INPUT"Enter Angle: ";A
CLS
PRINT"COSINE of a "A" Degree Angle = "COS(A*.01745)
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 4000
GOTO 6000
4300INPUT"Enter Angle: ";A
CLS
PRINT"TANGENT of a "A" Degree Angle = "TAN(A*.01745)
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 4000
GOTO 6000
4400INPUT"Enter SINE: ";A
CLS
PRINT"ARC SINE of "A" = "(ASIN(A))*57.3"Degrees"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 4000
GOTO 6000
4500INPUT"Enter COSINE: ";A
CLS
PRINT"ARC COSINE of "A" = "(ACOS(A))*57.3"Degrees"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 4000
GOTO 6000
4600INPUT"Enter TANGENT: ";A
CLS
PRINT"ARC TANGENT of "A" = "(ATN(A))*57.3"Degrees"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 4000
GOTO 6000
4700GOTO 10
5000CLS
MC=MENU(1,1,6,0,0,8,"MISC    (Type 7 for MAIN MENU)","1. INCH/DECIMAL","2. LBS/KILOS","3. KILOS/LBS","4. TEMP F/C","5. TEMP C/F","6. TEMP F/KELVIN","7. MAIN MENU")
CLS
on(mc%256)+1goto 5100,5200,5300,5400,5500,5600,5700
5100INPUT"Enter Numerator: ";A
INPUT"Enter Denominator: ";B
CLS
PRINT A"|"B" Inch = "A/B
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 5000
GOTO 6000
5200INPUT"Enter Pounds: ";A
CLS
PRINT A" Pounds = "A*.4536" Kilos"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 5000
GOTO 6000
5300INPUT"Enter Kilos: ";A
CLS
PRINT A" Kilos = "A*2.205" Pounds"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 5000
GOTO 6000
5400INPUT"Enter Temp. F: ";A
CLS
PRINT A" Degrees F = "(A-32)/1.8" Degrees C"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 5000
GOTO 6000
5500INPUT"Enter Temp. C: ";A
CLS
PRINT A" Degrees C = "(A+17.8)*1.8" Degrees F"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 5000
GOTO 6000
5600INPUT"Enter Temp F: ";A
CLS
PRINT A" Degrees F = "(A+459.67)/1.8" Degrees Kelvin"
PRINT"":PRINT""
INPUT"Convert Another?(Y/N) ";X$
IF X$="Y"or X$="y"THEN GOTO 5000
GOTO 6000
5700GOTO 10
6000CLS
PRINT"THE CONVERSION CALCULATOR"
PRINT"":PRINT"(c) Hugh J. Campbell"
PRINT"Compuserve 70611,3212"
END