5 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
10 PRINT "        *** GREAT CONVERSION SYSTEM ***"
20 PRINT:PRINT "U.S. TO METRIC AND METRIC TO U.S. CONVERSIONS":PRINT:PRINT
30 PRINT "    COPYRIGHT 1982 BY BURT L. FIELDING"
35 PRINT "  325 POPPINGA WAY, SANTA MARIA, CA 93455":PRINT:PRINT
40 PRINT "  Do You Want CONVERSION For............."
50 PRINT:PRINT
60 PRINT "         (1) METRIC To U.S."
70 PRINT "         (2) U.S. To METRIC"
80 PRINT
90 INPUT "         TYPE 1 OR 2";N
100 PRINT
110 ON N GOSUB 1000,1200
120 PRINT
130 GOTO 40
990 REM ***** SUBROUTINES FOR METRIC TO U.S.
1000 PRINT:PRINT:PRINT "METRIC TO U.S. CONVERSIONS AVAILABLE"
1010 PRINT
1020 PRINT "CHOOSE CONVERSION DESIRED FROM THIS LIST:"
1030 PRINT
1040 PRINT "   (1) ";"CENTIMETERS TO INCHES"
1050 PRINT "   (2) ";"METERS TO FEET"
1060 PRINT "   (3) ";"KILOMETERS TO MILES"
1070 PRINT "   (4) ";"KILOGRAMS TO POUNDS"
1080 PRINT "   (5) ";"GRAMS TO OUNCES"
1090 PRINT "   (6) ";"LITERS TO QUARTS"
1100 PRINT "   (7) ";"SQUARE METERS TO SQUARE FEET"
1110 PRINT "   (8) ";"SQUARE METERS TO ACRES"
1120 PRINT "   (9) ";"MILLILITERS TO FLUID OUNCES"
1130 PRINT "  (10) ";"DEGREES CELSIUS TO DEGREES FAHRENHEIT"
1140 PRINT "  (11) ";"LITERS TO GALLONS"
1145 PRINT "  (12) ";"KILOJOULES TO KILOCALORIES"
1150 PRINT:PRINT:PRINT
1160 INPUT " ENTER The NUMBER Of THE Conversion Desired";M
1170 PRINT:PRINT:PRINT:PRINT
1180 ON M GOSUB 2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100
1190 RETURN
1195 PRINT:PRINT:PRINT:PRINT
1200 PRINT:PRINT:PRINT:PRINT "U.S. TO METRIC CONVERSIONS AVAILABLE"
1210 PRINT
1220 PRINT "CHOOSE CONVERSION DESIRED FROM THIS LIST:"
1230 PRINT
1240 PRINT "   (1) ";"INCHES TO CENTIMETERS"
1250 PRINT "   (2) ";"FEET TO METERS"
1260 PRINT "   (3) ";"MILES TO KILOMETERS"
1270 PRINT "   (4) ";"POUNDS TO KILOGRAMS"
1280 PRINT "   (5) ";"OUNCES TO GRAMS"
1290 PRINT "   (6) ";"QUARTS TO LITERS"
1300 PRINT "   (7) ";"YARDS TO METERS"
1310 PRINT "   (8) ";"FLUID OUNCES TO MILLILITERS"
1320 PRINT "   (9) ";"ACRES TO SQUARE METERS"
1330 PRINT "  (10) ";"CUBIC INCHES TO CUBIC CENTIMETERS"
1340 PRINT "  (11) ";"DEGREES FAHRENHEIT TO DEGREES CELSIUS"
1350 PRINT "  (12) ";"GALLONS TO LITERS"
1360 PRINT:PRINT
1370 INPUT "ENTER The NUMBER Of THE Conversion You Desire";S
1380 PRINT:PRINT:PRINT:PRINT
1390 ON S GOSUB 4000,4100,4200,4300,4400,4500,4600,4700,4800,4900,5000,5100
1400 RETURN
2000 PRINT "        CENTIMETERS TO INCHES":PRINT
2010 INPUT "        NUMBER OF CENTIMETERS";C:PRINT
2015 PRINT
2020 PRINT C;"CENTIMETERS =";C*.393701;"INCHES"
2030 PRINT:RETURN
2100 PRINT "METERS TO FEET":PRINT
2110 INPUT "NUMBER OF METERS";M
2115 PRINT
2120 PRINT M;"METERS =";M*3.2808;"FEET"
2130 PRINT:RETURN
2200 PRINT "KILOMETERS TO MILES":PRINT
2210 INPUT "NUMBER OF KILOMETERS";K
2215 PRINT
2220 PRINT K;"KILOMETERS =";K*.6214;"MILES"
2230 PRINT:RETURN
2300 PRINT "KILOGRAMS TO POUNDS":PRINT
2310 INPUT "NUMBER OF KILOGRAMS";K
2315 PRINT
2320 PRINT K;"KILOGRAMS =";K*2.2046;"POUNDS"
2330 PRINT:RETURN
2400 PRINT "GRAMS TO OUNCES":PRINT
2410 INPUT "NUMBER OF GRAMS";G
2415 PRINT
2420 PRINT G;"GRAMS =";G*.03527;"OUNCES"
2430 PRINT:RETURN
2500 PRINT "LITERS TO QUARTS":PRINT
2510 INPUT "NUMBER OF LITERS";L
2515 PRINT
2520 PRINT L;"LITERS =";L*1.0567;"QUARTS"
2530 PRINT:RETURN
2600 PRINT "SQUARE METERS TO SQUARE FEET":PRINT
2610 INPUT "NUMBER OF SQUARE METERS";S
2615 PRINT
2620 PRINT S;"SQUARE METERS =";S*10.7643;"SQUARE FEET"
2630 PRINT:RETURN
2700 PRINT "SQUARE METERS TO ACRES":PRINT
2710 INPUT "NUMBER OF SQUARE METERS";S
2715 PRINT
2720 PRINT S;"SQUARE METERS =";S*.000247;"ACRES"
2730 PRINT:RETURN
2800 PRINT "MILLILITERS TO FLUID OUNCES":PRINT
2810 INPUT "NUMBER OF MILLILITERS";M
2815 PRINT
2820 PRINT M;"MILLILITERS =";M*.0338;"FLUID OUNCES"
2830 PRINT:RETURN
2900 PRINT "DEGREES CELSIUS TO DEGREES FAHRENHEIT":PRINT
2910 INPUT "NUMBERS OF DEGREES CELSIUS";D
2915 PRINT
2920 PRINT D;"DEGREES CELSIUS ="9*D/5+32;"DEGREES FAHRENHEIT"
2930 PRINT:RETURN
3000 PRINT "LITERS TO GALLONS":PRINT
3010 INPUT "NUMBER OF LITERS";L
3015 PRINT
3020 PRINT L;"LITERS =";L*.26417;"GALLONS"
3030 PRINT:RETURN
3100 PRINT "KILOJOULES TO KILOCALORIES":PRINT
3110 INPUT "NUMBER OF KILOJOULES";J
3115 PRINT
3120 PRINT J;"KILOJOULES =";J*.2389;"KILOCALORIES"
3130 PRINT:RETURN
4000 PRINT "INCHES TO CENTIMETERS":PRINT
4010 INPUT "NUMBER OF INCHES";I
4015 PRINT
4020 PRINT I;"INCHES =";I*2.54;"CENTIMETERS"
4030 PRINT:RETURN
4100 PRINT "FEET TO METERS":PRINT
4110 INPUT "NUMBER OF FEET";F
4115 PRINT
4120 PRINT F;"FEET =";F*.3048;"METERS"
4130 PRINT:RETURN
4200 PRINT "MILES TO KILOMETERS":PRINT
4210 INPUT "NUMBER OF MILES";M
4215 PRINT
4220 PRINT M;"MILES =";M*1.6093;"KILOMETERS"
4230 PRINT:RETURN
4300 PRINT "POUNDS TO KILOGRAMS":PRINT
4310 INPUT "NUMBER OF POUNDS";P
4315 PRINT
4320 PRINT P;"POUNDS =";P*.4536;"KILOGRAMS"
4330 PRINT:RETURN
4400 PRINT "OUNCES TO GRAMS":PRINT
4410 INPUT "NUMBER OF OUNCES";O
4415 PRINT
4420 PRINT O;"OUNCES =";O*28.35;"GRAMS"
4430 PRINT:RETURN
4500 PRINT "QUARTS TO LITERS":PRINT
4510 INPUT "NUMBER OF QUARTS";Q
4515 PRINT
4520 PRINT Q;"QUARTS =";Q*.94635;"LITERS"
4530 PRINT:RETURN
4600 PRINT "YARDS TO METERS":PRINT
4610 INPUT "NUMBER OF YARDS";Y
4615 PRINT
4620 PRINT Y;"YARDS =";Y*.9144;"METERS"
4630 PRINT:RETURN
4700 PRINT "FLUID OUNCES TO MILLILITERS":PRINT
4710 INPUT "NUMBER OF FLUID OUNCES";O
4715 PRINT
4720 PRINT O;"FLUID OUNCES =";O*29.574;"MILLILITERS"
4730 PRINT:RETURN
4800 PRINT "ACRES TO SQUARE METERS":PRINT
4810 INPUT "NUMBER OF ACRES";A
4815 PRINT
4820 PRINT A;"ACRES =";A*4047;"SQUARE METERS"
4830 PRINT:RETURN
4900 PRINT "CUBIC INCHES TO CUBIC CENTIMETERS":PRINT
4910 INPUT "NUMBER OF CUBIC INCHES";I
4915 PRINT
4920 PRINTI;"CUBIC INCHES =";I*16.387;"CUBIC CENTIMETERS"
4930 PRINT:RETURN
5000 PRINT "DEGREES FAHRENHEIT TO DEGREES CELSIUS":PRINT
5010 INPUT "NUMBER OF DEGREES FAHRENHEIT";D
5015 PRINT
5020 PRINT D;"DEGREES FAHRENHEIT =";5/9*(D-32);"DEGREES CELSIUS"
5030 PRINT:RETURN
5100 PRINT "GALLONS TO LITERS":PRINT
5110 INPUT "NUMBER OF GALLONS";G
5115 PRINT
5120 PRINT G;"GALLONS =";G*3.7854;"LITERS"
5130 PRINT:RETURN
5140 END
:PRINT
5110 INPU