start tok64 d64-xXajRL
10 POKE53272,23
100 PRINT"{clear}":POKE 59468,14:GOSUB 1390
110 PRINT"{clear}{space*4}*****{space*2}CONVERSION{sh space}TABLES{space*2}*****"
120 PRINT"{space*4}{cm d*31}"
130 PRINT
140 PRINT
150 PRINT"{space*11}* Linear{.*7} 1"
160 PRINT
170 PRINT"{space*11}* Square{.*7} 2"
180 PRINT
190 PRINT"{space*11}* Cubic{.*8} 3"
200 PRINT
210 PRINT"{space*11}* Weight{.*7} 4"
220 PRINT:PRINT:PRINT
230 PRINT"For LIQUID,{sh space}DRY, PRESSURE, and other"
240 PRINT"MISCELLANEOUS Conversions, refer to"
250 PRINT"{reverse on}CONVERSIONS{sh space}B{reverse off} on this disk{.*9}"
260 PRINT:PRINT
270 PRINT"Type '0' anytime, and return to MENU"
280 PRINT:PRINT
290 PRINT"Which conversion do you need{.*3}";
300 GETx$:IFx$=""THEN300
310 IFx$="0"GOTO 110
320 IFx$="1"GOTO 360
330 IFx$="2"GOTO 1490
340 IFx$="3"GOTO 2400
350 IFx$="4"GOTO 3410
360 PRINT"{clear}"
370 PRINT"LINEAR conversion menu"
380 PRINT"{cm pound*22}"
390 PRINT
400 PRINT
410 PRINT"Inches{.*7}to{.*6}Millimeters = 1"
420 PRINT"Millimeters{.*15}Inches = 2"
430 PRINT"Inches{.*20}Meters = 3"
440 PRINT"Meters{.*20}Inches = 4"
450 PRINT"Feet{.*17}Millimeters = 5"
460 PRINT"Millimeters{.*17}Feet = 6"
470 PRINT"Feet{.*22}Meters = 7"
480 PRINT"Meters{.*22}Feet = 8"
490 PRINT"Yards{.*21}Meters = 9"
500 PRINT"Meters{.*21}Yards = 10"
510 PRINT"Miles{.*17}Kilometers = 11"
520 PRINT"Kilometers{.*17}Miles = 12"
530 PRINT"Feet{.*18}Kilometers = 13"
540 PRINT"Kilometers{.*18}Feet = 14"
550 PRINT"Inches{.*22}Feet = 15"
560 PRINT"Feet{.*22}Inches = 16"
570 PRINT"Statute Miles{.*5}Nautical Miles = 17"
580 PRINT"Nautical Miles{.*5}Statute Miles = 18"
590 PRINT:PRINT
600 PRINT"Which CONVERSION do you need{.*3}";
610 INPUT n
620 IF n=0 GOTO 110
630 PRINT"{clear}"
640 PRINT"{down*4} VALUE to be converted, please..";
650 INPUT i
660 IF i=0 THEN 360
670 IF n=1 THEN 850
680 IF n=2 THEN 880
690 IF n=3 THEN 910
700 IF n=4 THEN 940
710 IF n=5 THEN 970
720 IF n=6 THEN 1000
730 IF n=7 THEN 1030
740 IF n=8 THEN 1060
750 IF n=9 THEN 1090
760 IF n=10 THEN 1120
770 IF n=11 THEN 1150
780 IF n=12 THEN 1180
790 IF n=13 THEN 1210
800 IF n=14 THEN 1240
810 IF n=15 THEN 1270
820 IF n=16 THEN 1300
830 IF n=17 THEN 1330
840 IF n=18 THEN 1360
850 PRINT"{clear}{down*5}"
860 PRINTi;"Inches =":PRINT:PRINTi*25.40;"Millimeters"
870 GOTO 640
880 PRINT"{clear}{down*5}"
890 PRINTi;"Millimeters =":PRINT:PRINTi*.03937;"Inches"
900 GOTO 640
910 PRINT"{clear}{down*5}"
920 PRINTi;"Inches =":PRINT:PRINTi*.0254;"Meters"
930 GOTO 640
940 PRINT"{clear}{down*5}"
950 PRINTi;"Meters =":PRINT:PRINTi*39.37;"Inches"
960 GOTO 640
970 PRINT"{clear}{down*5}"
980 PRINTi;"Feet =":PRINT:PRINTi*304.801;"Millimeters"
990 GOTO 640
1000 PRINT"{clear}{down*5}"
1010 PRINTi;"Millimeters =":PRINT:PRINTi*.00328083;"Feet"
1020 GOTO 640
1030 PRINT"{clear}{down*5}"
1040 PRINTi;"Feet =":PRINT:PRINTi*.304801;"Meters"
1050 GOTO 640
1060 PRINT"{clear}{down*5}"
1070 PRINTi;"Meters =":PRINT:PRINTi*3.28083;"Feet"
1080 GOTO 640
1090 PRINT"{clear}{down*5}"
1100 PRINTi;"Yards =":PRINT:PRINTi*.9144;"Meters"
1110 GOTO 640
1120 PRINT"{clear}{down*5}"
1130 PRINTi;"Meters =":PRINT:PRINTi*1.09361;"Yards"
1140 GOTO 640
1150 PRINT"{clear}{down*5}"
1160 PRINTi;"Miles =":PRINT:PRINTi*1.60935;"Kilometers"
1170 GOTO 640
1180 PRINT"{clear}{down*5}"
1190 PRINTi;"Kilometers =":PRINT:PRINTi*.62137;"Miles"
1200 GOTO 640
1210 PRINT"{clear}{down*5}"
1220 PRINTi;"Feet =":PRINT:PRINTi*.000304801;"Kilometers"
1230 GOTO 640
1240 PRINT"{clear}{down*5}"
1250 PRINTi;"Kilometers =":PRINT:PRINTi*3280.83;"Feet"
1260 GOTO 640
1270 PRINT"{clear}{down*5}"
1280 PRINTi;"Inches =":PRINT:PRINTi/12;"Feet"
1290 GOTO 640
1300 PRINT"{clear}{down*5}"
1310 PRINTi;"Feet =":PRINT:PRINTi*12;"Inches"
1320 GOTO 640
1330 PRINT"{clear}{down*5}"
1340 PRINTi;"Statute Miles =":PRINT:PRINTi*.86839; "Nautical Miles"
1350 GOTO 640
1360 PRINT"{clear}{down*5}"
1370 PRINTi;"Nautical Miles =":PRINT:PRINTi*1.15155;"Statute Miles"
1380 GOTO 640
1390 PRINT"{clear}{down*4}"
1400 PRINT"ENGINEERING{sh space}DATA{sh space}PROGRAM{sh space} #5(A)":PRINT
1410 PRINT"{reverse on}{space*38}"
1420 PRINT"{reverse on}{space*2}C{sh space}O{sh space}N{sh space}V{sh space}E{sh space}R{sh space}S{sh space}I{sh space}O{sh space}N{sh space*3}T{sh space}A{sh space}B{sh space}L{sh space}E{sh space}S{sh space*3}"
1430 PRINT"{reverse on}{space*38}":PRINT"{down*3}"
1440 PRINT"Charles W. Brown"
1450 PRINT"2176 Balfour Ct."
1460 PRINT"San Diego, Calif."
1470 FOR i=1TO 3000:NEXT:PRINT"{clear}"
1480 RETURN
1490 PRINT"{clear}"
1500 PRINT"SQUARE conversion menu"
1510 PRINT"{cm pound*22}"
1520 PRINT:PRINT
1530 PRINT"Sq.Inches{.*4}to{.*3}Sq.Millimeters = 1"
1540 PRINT"Sq.Millimeters{.*9}Sq.Inches = 2"
1550 PRINT"Sq.Inches{.*9}Sq.Centimeters = 3"
1560 PRINT"Sq.Centimeters{.*9}Sq.Inches = 4"
1570 PRINT"Sq.Inches{.*16}Sq.Feet = 5"
1580 PRINT"Sq.Feet{.*16}Sq.Inches = 6"
1590 PRINT"Sq.Meters{.*14}Sq.Inches = 7"
1600 PRINT"Sq.Inches{.*14}Sq.Meters = 8"
1610 PRINT"Sq.Meters{.*16}Sq.Feet = 9"
1620 PRINT"Sq.Feet{.*16}Sq.Meters = 10"
1630 PRINT"Sq.Kilometers{.*12}Sq.Feet = 11"
1640 PRINT"Sq.Feet{.*12}Sq.Kilometers = 12"
1650 PRINT"Sq.Kilometers{.*11}Sq.Miles = 13"
1660 PRINT"Sq.Miles{.*11}Sq.Kilometers = 14"
1670 PRINT"Sq.Meters{.*15}Sq.Yards = 15"
1680 PRINT"Sq.Yards{.*15}Sq.Meters = 16"
1690 PRINT:PRINT
1700 PRINT"WHICH conversion do you need{.*3}";
1710 INPUT n
1720 PRINT"{clear}":IF n<1 GOTO 110
1730 PRINT"{down*4}VALUE to be converted, please..";
1740 INPUT i
1750 IF i=0 THEN 1490
1760 IF n=1 THEN 1920
1770 IF n=2 THEN 1950
1780 IF n=3 THEN 1980
1790 IF n=4 THEN 2010
1800 IF n=5 THEN 2040
1810 IF n=6 THEN 2070
1820 IF n=7 THEN 2100
1830 IF n=8 THEN 2130
1840 IF n=9 THEN 2160
1850 IF n=10 THEN 2190
1860 IF n=11 THEN 2220
1870 IF n=12 THEN 2250
1880 IF n=13 THEN 2280
1890 IF n=14 THEN 2310
1900 IF n=15 THEN 2340
1910 IF n=16 THEN 2370
1920 PRINT"{clear}{down*5}"
1930 PRINTi;"Square Inches =":PRINT:PRINTi*645.1626;"Square Millimeters"
1940 GOTO 1730
1950 PRINT"{clear}{down*5}"
1960 PRINTi;"Square Millimeters =":PRINT:PRINTi*.0015499969;"Square Inches"
1970 GOTO 1730
1980 PRINT"{clear}{down*5}"
1990 PRINTi;"Square Inches =":PRINT:PRINTi*6.451626;"Square Centimeters"
2000 GOTO 1730
2010 PRINT"{clear}{down*5}"
2020 PRINTi;"Square Centimeters =":PRINT:PRINTi*.1549997;"Square Inches"
2030 GOTO 1730
2040 PRINT"{clear}{down*5}"
2050 PRINTi;"Square Inches =":PRINT:PRINTi*.0069444;"Square Feet"
2060 GOTO 1730
2070 PRINT"{clear}{down*5}"
2080 PRINTi;"Square Feet =":PRINT:PRINTi*144;"Square Inches"
2090 GOTO 1730
2100 PRINT"{clear}{down*5}"
2110 PRINTi;"Square Meters =":PRINT:PRINTi*1549.9969;"Square Inches"
2120 GOTO 1730
2130 PRINT"{clear}{down*5}"
2140 PRINTi;"Square Inches =":PRINT:PRINTi/1549.9969;"Square Meters"
2150 GOTO 1730
2160 PRINT"{clear}{down*5}"
2170 PRINTi;"Square Meters =":PRINT:PRINTi*10.76387;"Square Feet"
2180 GOTO 1730
2190 PRINT"{clear}{down*5}"
2200 PRINTi;"Square Feet =":PRINT:PRINTi*.0929034;"Square Meters"
2210 GOTO 1730
2220 PRINT"{clear}{down*5}"
2230 PRINTi;"Square Kilometers =":PRINT:PRINTi*10763845;"Square Feet"
2240 GOTO 1730
2250 PRINT"{clear}{down*5}"
2260 PRINTi;"Square Feet =":PRINT:PRINTi/10763845;"Square Kilometers "
2270 GOTO 1730
2280 PRINT"{clear}{down*5}"
2290 PRINTi;"Square Kilometers =":PRINT:PRINTi*.3861;"Square Miles"
2300 GOTO 1730
2310 PRINT"{clear}{down*5}"
2320 PRINTi;"Square Miles =":PRINT:PRINTi*2.589998;"Sq.Kilometers"
2330 GOTO 1730
2340 PRINT"{clear}{down*5}"
2350 PRINTi;"Square Meters =":PRINT:PRINTi*1.195985;"Square Yards"
2360 GOTO 1730
2370 PRINT"{clear}{down*5}"
2380 PRINTi;"Square Yards =":PRINT:PRINTi*.8361307;"Square Meters"
2390 GOTO 1730
2400 PRINT"{clear}"
2410 PRINT"CUBIC conversion menu"
2420 PRINT"{cm pound*21}"
2430 PRINT:PRINT
2440 PRINT"Cu.Inches{.*6}TO{.*10}Cu.Feet = 1"
2450 PRINT"Cu.Feet{.*18}Cu.Inches = 2"
2460 PRINT"Cu.Inches{.*11}Cu.Centimeters = 3"
2470 PRINT"Cu.Centimeters{.*11}Cu.Inches = 4"
2480 PRINT"Cu.Feet{.*18}Cu.Meters = 5"
2490 PRINT"Cu.Meters{.*18}Cu.Feet = 6"
2500 PRINT"Cu.Feet{.*19}Cu.Yards = 7"
2510 PRINT"Cu.Yards{.*19}Cu.Feet = 8"
2520 PRINT"Cu.Feet{.*16}U.S.Gallons = 9"
2530 PRINT"U.S.Gallons{.*16}Cu.Feet = 10"
2540 PRINT"Cu.Feet{.*21}Liters = 11"
2550 PRINT"Liters{.*21}Cu.Feet = 12"
2560 PRINT"Cu.Inches{.*14}U.S.Gallons = 13"
2570 PRINT"U.S.Gallons{.*14}Cu.Inches = 14"
2580 PRINT"Cu.Inches{.*19}Liters = 15"
2590 PRINT"Liters{.*19}Cu.Inches = 16"
2600 PRINT"U.S.Gallons{.*17}Liters = 17"
2610 PRINT"Liters{.*17}U.S.Gallons = 18"
2620 PRINT:PRINT
2630 PRINT"WHICH conversion do you need{.*3}";
2640 INPUT n
2650 PRINT"{clear}":IF n<1 GOTO 110
2660 PRINT"{down*4}VOLUME to be converted, please..";
2670 INPUT i
2680 IF i=0 THEN 2400
2690 IF n=1 THEN 2870
2700 IF n=2 THEN 2900
2710 IF n=3 THEN 2930
2720 IF n=4 THEN 2960
2730 IF n=5 THEN 2990
2740 IF n=6 THEN 3020
2750 IF n=7 THEN 3050
2760 IF n=8 THEN 3080
2770 IF n=9 THEN 3110
2780 IF n=10 THEN 3140
2790 IF n=11 THEN 3170
2800 IF n=12 THEN 3200
2810 IF n=13 THEN 3230
2820 IF n=14 THEN 3260
2830 IF n=15 THEN 3290
2840 IF n=16 THEN 3320
2850 IF n=17 THEN 3350
2860 IF n=18 THEN 3380
2870 PRINT"{clear}{down*5}"
2880 PRINTi;"Cubic Inches =":PRINT:PRINTi/1728;"Cubic Feet"
2890 GOTO 2660
2900 PRINT"{clear}{down*5}"
2910 PRINTi;"Cubic Feet =":PRINT:PRINTi*1728;"Cubic Inches"
2920 GOTO 2660
2930 PRINT"{clear}{down*5}"
2940 PRINTi;"Cubic Inches =":PRINT:PRINTi*16.387162;"Cubic Centimeters"
2950 GOTO 2660
2960 PRINT"{clear}{down*5}"
2970 PRINTi;"Cubic Centimeters =":PRINT:PRINTi*.06102338;"Cubic Inches"
2980 GOTO 2660
2990 PRINT"{clear}{down*5}"
3000 PRINTi;"Cubic Feet =":PRINT:PRINTi*.028317016;"Cubic Meters"
3010 GOTO 2660
3020 PRINT"{clear}{down*5}"
3030 PRINTi;"Cubic Meters =":PRINT:PRINTi*35.31445;"Cubic Feet"
3040 GOTO 2660
3050 PRINT"{clear}{down*5}"
3060 PRINTi;"Cubic Feet =":PRINT:PRINTi/27;"Cubic Yards"
3070 GOTO 2660
3080 PRINT"{clear}{down*5}"
3090 PRINTi;"Cubic Yards =":PRINT:PRINTi*27;"Cubic Feet"
3100 GOTO 2660
3110 PRINT"{clear}{down*5}"
3120 PRINTi;"Cubic Feet =":PRINT:PRINTi*7.4805194;"U.S.Gallons"
3130 GOTO 2660
3140 PRINT"{clear}{down*5}"
3150 PRINTi;"U.S.Gallons =":PRINT:PRINTi*.1336805;"Cubic Feet"
3160 GOTO 2660
3170 PRINT"{clear}{down*5}"
3180 PRINTi;"Cubic Feet =":PRINT:PRINTi*28.3162176;"Liters"
3190 GOTO 2660
3200 PRINT"{clear}{down*5}"
3210 PRINTi;"Liters =":PRINT:PRINTi*.0353154;"Cubic Feet"
3220 GOTO 2660
3230 PRINT"{clear}{down*5}"
3240 PRINTi;"Cubic Inches =":PRINT:PRINTi/231;"U.S.Gallons"
3250 GOTO 2660
3260 PRINT"{clear}{down*5}"
3270 PRINTi;"U.S.Gallons =":PRINT:PRINTi*231;"Cubic Inches"
3280 GOTO 2660
3290 PRINT"{clear}{down*5}"
3300 PRINTi;"Cubic Inches =":PRINT:PRINTi*.0163867;"Liters"
3310 GOTO 2660
3320 PRINT"{clear}{down*5}"
3330 PRINTi;"Liters =":PRINT:PRINTi*61.0250;"Cubic Inches"
3340 GOTO 2660
3350 PRINT"{clear}{down*5}"
3360 PRINTi;"U.S.Gallons =":PRINT:PRINTi*3.785332;"Liters"
3370 GOTO 2660
3380 PRINT"{clear}{down*5}"
3390 PRINTi;"Liters =":PRINT:PRINTi*.264178;"U.S.Gallons"
3400 GOTO 2660
3410 PRINT"{clear}WEIGHT conversion menu"
3420 PRINT"{cm pound*24}":PRINT:PRINT
3430 PRINT"Pounds{.*10}TO{.*6}Kilograms = 1"
3440 PRINT"Kilograms{.*18}Pounds = 2"
3450 PRINT"Ounces(Av){.*18}Grams = 3"
3460 PRINT"Grams{.*18}Ounces(Av) = 4"
3470 PRINT"Ounces{.*21}Pounds = 5"
3480 PRINT"Pounds{.*21}Ounces = 6"
3490 PRINT"Pounds of Water{.*11}Cu.Feet = 7"
3500 PRINT"Cu.Feet of Water{.*11}Pounds = 8"
3510 PRINT"Pounds of Water{.*11}Gallons = 9"
3520 PRINT"Gallons of water{.*11}Pounds = 10"
3530 PRINT"Metric Tons{.*12}Short Tons = 11"
3540 PRINT"Short Tons{.*12}Metric Tons = 12"
3550 PRINT"Metric Tons{.*13}Long Tons = 13"
3560 PRINT"Long Tons{.*13}Metric Tons = 14"
3570 PRINT"Ounces{.*18}Kilograms = 15"
3580 PRINT"Kilograms{.*18}Ounces = 16"
3590 PRINT"{down*4}WHICH conversion do you need{.*3}";
3600 INPUT n
3610 PRINT"{clear}":IF n<1 GOTO 110
3620 PRINT"{down*4}WEIGHT to be converted, please..";
3630 INPUT i
3640 IF i=0 THEN 3410
3650 IF n=1 THEN 3810
3660 IF n=2 THEN 3840
3670 IF n=3 THEN 3870
3680 IF n=4 THEN 3900
3690 IF n=5 THEN 3930
3700 IF n=6 THEN 3960
3710 IF n=7 THEN 3990
3720 IF n=8 THEN 4020
3730 IF n=9 THEN 4050
3740 IF n=10 THEN 4080
3750 IF n=11 THEN 4110
3760 IF n=12 THEN 4150
3770 IF n=13 THEN 4190
3780 IF n=14 THEN 4230
3790 IF n=15 THEN 4270
3800 IF n=16 THEN 4300
3810 PRINT"{clear}{down*5}"
3820 PRINTi;"Pounds =":PRINT:PRINTi*.453592428;"Kilograms"
3830 GOTO 3620
3840 PRINT"{clear}{down*5}"
3850 PRINTi;"Kilograms =":PRINT:PRINTi*2.20462232;"Pounds"
3860 GOTO 3620
3870 PRINT"{clear}{down*5}"
3880 PRINTi;"Ounces (Av.)=":PRINT:PRINTi*28.349527;"Grams"
3890 GOTO 3620
3900 PRINT"{clear}{down*5}"
3910 PRINTi;"Grams =":PRINT:PRINTi*.03527396;"Ounces (Av.)"
3920 GOTO 3620
3930 PRINT"{clear}{down*5}"
3940 PRINTi;"Ounces =":PRINT:PRINTi*.0625;"Pounds"
3950 GOTO 3620
3960 PRINT"{clear}{down*5}"
3970 PRINTi;"Pounds =":PRINT:PRINTi*16;"Ounces"
3980 GOTO 3620
3990 PRINT"{clear}{down*5}"
4000 PRINTi;"Pounds of Water (39.1 F.) =":PRINT:PRINTi*.01602;"Cubic Feet"
4010 GOTO 3620
4020 PRINT"{clear}{down*5}"
4030 PRINTi;"Cubic Feet of Water (39.1 F.) =":PRINT:PRINTi*62.4245;"Pounds"
4040 GOTO 3620
4050 PRINT"{clear}{down*5}"
4060 PRINTi;"Pounds of Water (62 F.) =":PRINT:PRINTi*.1199;"Gallons"
4070 GOTO 3620
4080 PRINT"{clear}{down*5}"
4090 PRINTi;"Gallons of Water (62 F.) =":PRINT:PRINTi*8.336;"Pounds"
4100 GOTO 3620
4110 PRINT"{clear}{down*5}"
4120 PRINTi;"Metric Tons =":PRINT:PRINTi*1.10231;"Short Tons "
4130 PRINT:PRINTi*1.10231*2000;" Lbs."
4140 GOTO 3620
4150 PRINT"{clear}{down*5}"
4160 PRINTi;"Short Tons =":PRINT:PRINTi*.90718;"Metric Tons"
4170 PRINT:PRINTi*2000;" Lbs."
4180 GOTO 3620
4190 PRINT"{clear}{down*5}"
4200 PRINTi;"Metric Tons =":PRINT:PRINTi*.98421;"Long Tons "
4210 PRINT:PRINTi*.98421*2240;" Lbs."
4220 GOTO 3620
4230 PRINT"{clear}{down*5}"
4240 PRINTi;"Long Tons (@ 2240 Lbs.) =":PRINT:PRINTi*1.01605;"Metric Tons"
4250 PRINT:PRINTi*2240;" Lbs."
4260 GOTO 3620
4270 PRINT"{clear}{down*5}"
4280 PRINTi;"Ounces (Av.) =":PRINT:PRINTi*.02834953;"Kilograms"
4290 GOTO 3620
4300 PRINT"{clear}{down*5}"
4310 PRINTi;"Kilograms =":PRINT:PRINTi*35.27396;"Ounces (Av.)"
4320 GOTO 3620
4330 END
stop tok64
(bastext 1.0)