start tok64 d64-pdsWld 10 POKE53272,23 100 PRINT"{clear}":POKE 59468,14:GOSUB 1320 110 PRINT"{clear}{space*3}*****{space*2}CONVERSION{sh space}TABLES{space*2}*****" 120 PRINT"{space*3}{cm d*31}" 130 PRINT 140 PRINT 150 PRINT"{space*10}* Work and Velocity{.*3}1" 160 PRINT 170 PRINT"{space*10}* Liquid{.*14}2" 180 PRINT 190 PRINT"{space*10}* Pressure{.*12}3" 200 PRINT 210 PRINT"{space*10}* Miscellaneous{.*7}4" 220 PRINT:PRINT:PRINT 230 PRINT"For LINEAR, SQUARE, CUBIC, and WEIGHT" 240 PRINT"Conversions, please refer to 250 PRINT"{reverse on}conversions a{reverse off} on this disk" 260 PRINT 270 PRINT"Enter '0' anytime for MENU" 280 PRINT:PRINT:PRINT 290 PRINT"Which TABLE would you like{.*5}"; 300 GETx$:IFx$=""THEN300 310 IF x$="0"GOTO 110 320 IF x$="1"GOTO 400 330 IF x$="2"GOTO 1400 340 IF x$="3"GOTO 2310 350 IF x$="4"GOTO 3220 360 IF x$="5"GOTO 63999 370 IF x$="6"GOTO 63999 380 IF x$="7"GOTO 63999 390 IF x$="8"GOTO 63999 400 PRINT"{clear}" 410 PRINT"WORK and VELOCITY conversion MENU" 420 PRINT"{cm pound*33}" 430 PRINT 440 PRINT 450 PRINT"Foot-Pounds..to{.*3}Kilowatt-Hours = 1" 460 PRINT"Kilowatt-Hours{.*7}Foot-Pounds = 2" 470 PRINT"Foot-Pounds{.*5}Horsepower-Hours = 3" 480 PRINT"Horsepower-Hours{.*5}Foot-Pounds = 4" 490 PRINT"Foot-Pounds{.*5}Br.Thermal Units = 5" 500 PRINT"Br.Thermal Units{.*5}Foot-Pounds = 6" 510 PRINT"Ft.Lbs/Min{.*12}Horsepower = 7" 520 PRINT"Horsepower{.*12}Ft.Lbs/Min = 8" 530 PRINT"Kilowatts{.*13}Horsepower = 9" 540 PRINT"Horsepower{.*13}Kilowatts = 10" 550 PRINT"Feet per Sec{.*8}Miles per Hr = 11" 560 PRINT"Miles per Hr{.*8}Feet per Sec = 12" 570 PRINT"Kilometers/Hr{.*7}Miles per Hr = 13" 580 PRINT"Miles per Hr{.*7}Kilometers/Hr = 14" 590 PRINT"Miles per Hour{.*6}Feet per Min = 15" 600 PRINT"Feet per Min{.*6}Miles per Hour = 16" 610 PRINT:PRINT 620 PRINT"Which CONVERSION do you need{.*3}"; 630 INPUT n 640 PRINT"{clear}":IF n<1 GOTO 110 650 PRINT"{down*4} VALUE to be converted, please.."; 660 INPUT i 670 IF i=0 THEN 400 680 IF n=1 THEN 840 690 IF n=2 THEN 870 700 IF n=3 THEN 900 710 IF n=4 THEN 930 720 IF n=5 THEN 960 730 IF n=6 THEN 990 740 IF n=7 THEN 1020 750 IF n=8 THEN 1050 760 IF n=9 THEN 1080 770 IF n=10 THEN 1110 780 IF n=11 THEN 1140 790 IF n=12 THEN 1170 800 IF n=13 THEN 1200 810 IF n=14 THEN 1230 820 IF n=15 THEN 1260 830 IF n=16 THEN 1290 840 PRINT"{clear}{down*5}" 850 PRINTi;"Foot Pounds =":PRINT:PRINTi*.0000003766;"Kilowatt-Hours" 860 GOTO 650 870 PRINT"{clear}{down*5}" 880 PRINTi;"Kilowatt-Hrs.=":PRINT:PRINTi*2656000;"Foot Pounds" 890 GOTO 650 900 PRINT"{clear}{down*5}" 910 PRINTi;"Foot Pounds =":PRINT:PRINTi*.000000505;"Horsepower Hours" 920 GOTO 650 930 PRINT"{clear}{down*5}" 940 PRINTi;"Horsepower Hours =":PRINT:PRINTi*1980000;"Foot Pounds" 950 GOTO 650 960 PRINT"{clear}{down*5}" 970 PRINTi;"Foot Pounds =":PRINT:PRINTi*.001285;"B.T.U" 980 GOTO 650 990 PRINT"{clear}{down*5}" 1000 PRINTi;"B.T.U =":PRINT:PRINTi*778.2;"Ft.Lbs." 1010 GOTO 650 1020 PRINT"{clear}{down*5}" 1030 PRINTi;"Foot Pounds per Minute =":PRINT:PRINTi*.0000303;"Horsepower" 1040 GOTO 650 1050 PRINT"{clear}{down*5}" 1060 PRINTi;"Horsepower =":PRINT:PRINTi*33000;"Foot Pounds per Minute 1070 GOTO 650 1080 PRINT"{clear}{down*5}" 1090 PRINTi;"Kilowatts =":PRINT:PRINTi*1.341;"Horsepower" 1100 GOTO 650 1110 PRINT"{clear}{down*5}" 1120 PRINTi;"Horsepower =":PRINT:PRINTi*.7457;"Kilowatts" 1130 GOTO 650 1140 PRINT"{clear}{down*5}" 1150 PRINTi;"Feet per Second =":PRINT:PRINTi*.68182;"Miles per Hour" 1160 GOTO 650 1170 PRINT"{clear}{down*5}" 1180 PRINTi;"Miles per Hour =":PRINT:PRINTi*1.46667;"Feet per Second" 1190 GOTO 650 1200 PRINT"{clear}{down*5}" 1210 PRINTi;"Kilometers per Hour =":PRINT:PRINTi*.62137;"Miles per Hour 1220 GOTO 650 1230 PRINT"{clear}{down*5}" 1240 PRINTi;"Miles per Hour =":PRINT:PRINTi*1.60935;"Kilometers per Hour" 1250 GOTO 650 1260 PRINT"{clear}{down*5}" 1270 PRINTi;"Miles per Hour =":PRINT:PRINTi*88;"Feet per Minute" 1280 GOTO 650 1290 PRINT"{clear}{down*5}" 1300 PRINTi;"Feet per Minute =":PRINT:PRINTi*.011364;"Miles per Hour 1310 GOTO 650 1320 PRINT"{clear}{down*4}" 1321 PRINT"ENGINEERING{sh space}DATA{sh space}PROGRAM #5 (B)" 1322 PRINT 1323 PRINT"{reverse on}{space*38}" 1324 PRINT"{reverse on}{space*3}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*2}" 1325 PRINT"{reverse on}{space*38}" 1326 PRINT:PRINT:PRINT 1327 PRINT"Charles W. Brown 1328 PRINT"2176 Balfour Ct. 1329 PRINT"San Diego, Ca. 1380 FOR i=1TO 3000:NEXT:PRINT"{clear}" 1390 RETURN 1400 PRINT"{clear}" 1410 PRINT"LIQUID conversion menu" 1420 PRINT"{cm pound*22}" 1430 PRINT:PRINT 1440 PRINT"Liters{.*7}to{.*5}Fluid Ounces = 1" 1450 PRINT"Fluid Ounces{.*14}Liters = 2" 1460 PRINT"Liters{.*15}U.S.Gallons = 3" 1470 PRINT"U.S.Gallons{.*15}Liters = 4" 1480 PRINT"Imp.Gallons{.*10}U.S.Gallons = 5" 1490 PRINT"U.S.Gallons{.*10}Imp.Gallons = 6" 1500 PRINT"Cu.Centimeters{.*7}U.S.Gallons = 7" 1510 PRINT"U.S.Gallons{.*7}Cu.Centimeters = 8" 1520 PRINT"Gallons/Min{.*9}Cu.Ft/Second = 9" 1530 PRINT"Cu.Ft/Minute{.*3}Lbs. of Water/Min = 10" 1540 PRINT"Gallons/Min{.*10}Cu.Feet/Sec = 11" 1550 PRINT"Cu.Feet/Sec{.*10}Gallons/Min = 12" 1560 PRINT"U.S.Gallons{.*8}Pounds(water) = 13" 1570 PRINT"Pounds(water){.*8}U.S.Gallons = 14" 1580 PRINT"Cu.Feet(water){.*12}Pounds = 15" 1590 PRINT"Pounds(water){.*12}Cu.Feet = 16" 1600 PRINT:PRINT 1610 PRINT"WHICH conversion do you need{.*3}"; 1620 INPUT n 1630 PRINT"{clear}":IF n<1 GOTO 110 1640 PRINT"{down*4}VALUE to be converted, please.."; 1650 INPUT i 1660 IF i=0 THEN 1400 1670 IF n=1 THEN 1830 1680 IF n=2 THEN 1860 1690 IF n=3 THEN 1890 1700 IF n=4 THEN 1920 1710 IF n=5 THEN 1950 1720 IF n=6 THEN 1980 1730 IF n=7 THEN 2010 1740 IF n=8 THEN 2040 1750 IF n=9 THEN 2070 1760 IF n=10 THEN 2100 1770 IF n=11 THEN 2130 1780 IF n=12 THEN 2160 1790 IF n=13 THEN 2190 1800 IF n=14 THEN 2220 1810 IF n=15 THEN 2250 1820 IF n=16 THEN 2280 1830 PRINT"{clear}{down*5}" 1840 PRINTi;"Liters =":PRINT:PRINTi*33.8147;"Fluid Ounces" 1850 GOTO 1640 1860 PRINT"{clear}{down*5}" 1870 PRINTi;"Fluid Ounces =":PRINT:PRINTi*.0295729;"Liters" 1880 GOTO 1640 1890 PRINT"{clear}{down*5}" 1900 PRINTi;"Liters =":PRINT:PRINTi*.264178;"U.S.Gallons" 1910 GOTO 1640 1920 PRINT"{clear}{down*5}" 1930 PRINTi;"U.S.Gallons =":PRINT:PRINTi*3.785332"Liters" 1940 GOTO 1640 1950 PRINT"{clear}{down*5}" 1960 PRINTi;"Imperial Gallons =":PRINT:PRINTi/.84;"U.S.Gallons" 1970 GOTO 1640 1980 PRINT"{clear}{down*5}" 1990 PRINTi;"U.S.Gallons =":PRINT:PRINTi*.84;"Imperial Gallons" 2000 GOTO 1640 2010 PRINT"{clear}{down*5}" 2020 PRINTi;"Cubic Centimeters =":PRINT:PRINTi/3785;"U.S.Gallons" 2030 GOTO 1640 2040 PRINT"{clear}{down*5}" 2050 PRINTi;"U.S.Gallons =":PRINT:PRINTi*3785;"Cubic Centimeters" 2060 GOTO 1640 2070 PRINT"{clear}{down*5}" 2080 PRINTi;"Gallons/Minute =":PRINT:PRINTi*.002228;"Cu.Ft/Sec." 2090 GOTO 1640 2100 PRINT"{clear}{down*5}" 2110 PRINTi;"Cu.Ft/Minute =":PRINT:PRINTi*62.4;"Lbs of Water/Min." 2120 GOTO 1640 2130 PRINT"{clear}{down*5}" 2140 PRINTi;"Gallons/Min =":PRINT:PRINTi*.002228;"Cu.Ft./Sec" 2150 GOTO 1640 2160 PRINT"{clear}{down*5}" 2170 PRINTi;"Cu.Feet/Sec =":PRINT:PRINTi/.002228;"Gallons/Min." 2180 GOTO 1640 2190 PRINT"{clear}{down*5}" 2200 PRINTi;"U.S.Gallons =":PRINT:PRINTi*8.336;"Pounds(water @62F)" 2210 GOTO 1640 2220 PRINT"{clear}{down*5}" 2230 PRINTi;"Pounds =":PRINT:PRINTi/8.336;"U.S.Gallons(water @62F)" 2240 GOTO 1640 2250 PRINT"{clear}{down*5}" 2260 PRINTi;"Cu.Feet =":PRINT:PRINTi*62.4245;"Pounds(water @39.1F) 2270 GOTO 1640 2280 PRINT"{clear}{down*5}" 2290 PRINTi;"Pounds =":PRINT:PRINTi*.01602;"Cu.Feet(water @39.1F) 2300 GOTO 1640 2310 PRINT"{clear}" 2320 PRINT"PRESSURE conversion menu" 2330 PRINT"{cm pound*24}" 2340 PRINT:PRINT 2350 PRINT"Head in Ft{.*5}TO{.*4}Head in P.S.I.= 1" 2360 PRINT"Head in P.S.I{.*11}Head in Ft = 2" 2370 PRINT"Feet of Water{.*4}Inches of Mercury = 3" 2380 PRINT"Inches of Mercury{.*4}Feet of Water = 4" 2390 PRINT"Pounds/Sq.In{.*5}Kilograms/Sq.Cent = 5" 2400 PRINT"Kilograms/Sq.Cent{.*5}Pounds/Sq.In.= 6" 2410 PRINT"Pounds/Sq.In{.*11}Atmospheres = 7" 2420 PRINT"Atmospheres{.*11}Pounds/Sq.In.= 8" 2430 PRINT"Inches of Mercury{.*6}Atmospheres = 9" 2440 PRINT"Atmospheres{.*6}Inches of Mercury = 10" 2450 PRINT"Inches of Mercury{.*5}Pounds/Sq.Ft.= 11" 2460 PRINT"Pounds/Sq.Ft{.*5}Inches of Mercury = 12" 2470 PRINT"Inches of Mercury{.*5}Pounds/Sq.In.= 13" 2480 PRINT"Pounds/Sq.In{.*5}Inches of Mercury = 14" 2490 PRINT"Ins.of Mercury..Kilograms/Sq.Meter = 15" 2500 PRINT"Kilograms/Sq.Meter..Ins.of Mercury = 16" 2510 PRINT:PRINT 2520 PRINT"WHICH conversion do you need{.*3}"; 2530 INPUT n 2540 PRINT"{clear}":IF n<1 GOTO 110 2550 PRINT"{down*4}VOLUME to be converted, please.."; 2560 INPUT i 2570 IF i=0 THEN 2310 2580 IF n=1 THEN 2740 2590 IF n=2 THEN 2770 2600 IF n=3 THEN 2800 2610 IF n=4 THEN 2830 2620 IF n=5 THEN 2860 2630 IF n=6 THEN 2890 2640 IF n=7 THEN 2920 2650 IF n=8 THEN 2950 2660 IF n=9 THEN 2980 2670 IF n=10 THEN 3010 2680 IF n=11 THEN 3040 2690 IF n=12 THEN 3070 2700 IF n=13 THEN 3100 2710 IF n=14 THEN 3130 2720 IF n=15 THEN 3160 2730 IF n=16 THEN 3190 2740 PRINT"{clear}{down*5}" 2750 PRINTi;"Feet of Water.=":PRINT:PRINTi*.433530;" P.S.I." 2760 GOTO 2550 2770 PRINT"{clear}{down*5}" 2780 PRINTi;"P.S.I.=":PRINT:PRINTi*2.30665;"Feet of Water" 2790 GOTO 2550 2800 PRINT"{clear}{down*5}" 2810 PRINTi;"Feet of Water =":PRINT:PRINTi*.882617;"Inches of Mercury " 2820 GOTO 2550 2830 PRINT"{clear}{down*5}" 2840 PRINTi;"Inches of Mercury =":PRINT:PRINTi*1.13299;"Feet of Water" 2850 GOTO 2550 2860 PRINT"{clear}{down*5}" 2870 PRINTi;"Pounds per Sq.In.=":PRINT:PRINTi*.0703067;"Kilograms/Sq.Cm." 2880 GOTO 2550 2890 PRINT"{clear}{down*5}" 2900 PRINTi;"Kilograms/Sq.Cm.=":PRINT:PRINTi*14.2234;"P.S.I." 2910 GOTO 2550 2920 PRINT"{clear}{down*5}" 2930 PRINTi;"P.S.I. =":PRINT:PRINTi*.0680415;"Atmospheres" 2940 GOTO 2550 2950 PRINT"{clear}{down*5}" 2960 PRINTi;"Atmospheres =":PRINT:PRINTi*14.6969;"P.S.I." 2970 GOTO 2550 2980 PRINT"{clear}{down*5}" 2990 PRINTi;"Inches of Mercury.=":PRINT:PRINTi*.0334211;"Atmospheres" 3000 GOTO 2550 3010 PRINT"{clear}{down*5}" 3020 PRINTi;"Atmospheres =":PRINT:PRINTi*29.9212;"Inches of Mercury" 3030 GOTO 2550 3040 PRINT"{clear}{down*5}" 3050 PRINTi;"Inches of Mercury =":PRINT:PRINTi*70.7310;"Pounds per Sq.Ft." 3060 GOTO 2550 3070 PRINT"{clear}{down*5}" 3080 PRINTi;"Pounds per Sq.Ft.=":PRINT:PRINTi*.0141381;"Inches of Mercury" 3090 GOTO 2550 3100 PRINT"{clear}{down*5}" 3110 PRINTi;"Inches of Mercury =":PRINT:PRINTi*.491187;"P.S.I." 3120 GOTO 2550 3130 PRINT"{clear}{down*5}" 3140 PRINTi;"P.S.I. =":PRINT:PRINTi*2.03588;"Inches of Mercury" 3150 GOTO 2550 3160 PRINT"{clear}{down*5}" 3170 PRINTi;"Inches of Mercury =":PRINT:PRINTi*345.337;"Kilograms/Sq.Meter" 3180 GOTO 2550 3190 PRINT"{clear}{down*5}" 3200 PRINTi;"Kilos/Sq.Meter =":PRINT:PRINTi*.00289572;"Inches of Mercury" 3210 GOTO 2550 3220 PRINT"{clear}MISCELLANEOUS conversion menu" 3230 PRINT"{cm pound*30}":PRINT:PRINT 3240 PRINT"Degrees{.*9}TO{.*8}Radians = 1" 3250 PRINT"Radians{.*19}Degrees = 2" 3260 PRINT"Nautical Miles{.*6}Statute Miles = 3" 3270 PRINT"Statute Miles{.*6}Nautical Miles = 4" 3280 PRINT"Fahrenheit{.*13}Centigrade = 5" 3290 PRINT"Centigrade{.*13}Fahrenheit = 6" 3300 PRINT"Diameter{.*12}Circumference = 7" 3310 PRINT"Circumference{.*12}Diameter = 8" 3320 PRINT"Diameter(Sphere){.*10}Surface = 9" 3330 PRINT"Diameter(Sphere){.*11}Volume = 10" 3340 PRINT"Any NUMBER{.*14}Square" 3350 PRINT"{space*24}Cube" 3360 PRINT"{space*24}Square Root" 3370 PRINT"{space*24}Reciprocal" 3380 PRINT"{space*24}Sine" 3390 PRINT"{space*24}Cosine" 3400 PRINT"{space*24}Tangent" 3410 PRINT"{space*24}Cotangent = 11" 3420 PRINT"{down*2}WHICH conversion do you need{.*3}"; 3430 INPUT n 3440 PRINT"{clear}":IF n<1 GOTO 110 3450 PRINT"{down*4}VALUE to be converted, please.."; 3460 INPUT i 3470 IF i=0 THEN 3220 3480 IF n=1 THEN 3600 3490 IF n=2 THEN 3630 3500 IF n=3 THEN 3660 3510 IF n=4 THEN 3690 3520 IF n=5 THEN 3720 3530 IF n=6 THEN 3750 3540 IF n=7 THEN 3780 3550 IF n=8 THEN 3810 3560 IF n=9 THEN 3840 3570 IF n=10 THEN 3870 3580 IF n=11 THEN 3900 3590 IF n=12 THEN 63999 3600 PRINT"{clear}{down*5}" 3610 PRINTi;"Degrees =":PRINT:PRINTi*.0174533;"Radians" 3620 GOTO 3450 3630 PRINT"{clear}{down*5}" 3640 PRINTi;"Radians =":PRINT:PRINTi*57.2958;"Degrees" 3650 GOTO 3450 3660 PRINT"{clear}{down*5}" 3670 PRINTi;"Nautical Miles =":PRINT:PRINTi*1.15155;"Statute Miles" 3680 GOTO 3450 3690 PRINT"{clear}{down*5}" 3700 PRINTi;"Statute Miles =":PRINT:PRINTi*.86839;"Nautical Miles" 3710 GOTO 3450 3720 PRINT"{clear}{down*5}" 3730 PRINTi;"Degrees Fahrenheit=":PRINT:PRINT5*(i-32)/9;"Degrees Centigrade" 3740 GOTO 3450 3750 PRINT"{clear}{down*5}" 3760 PRINTi;"Degrees Centigrade=":PRINT:PRINT(i*9/5)+32;"Degrees Fahrenheit" 3770 GOTO 3450 3780 PRINT"{clear}{down*5}" 3790 PRINTi;"Diameter =":PRINT:PRINTi*3.14159;"Circumference" 3800 GOTO 3450 3810 PRINT"{clear}{down*5}" 3820 PRINTi;"Circumference =":PRINT:PRINTi*.31831;"Diameter" 3830 GOTO 3450 3840 PRINT"{clear}{down*5}" 3850 PRINTi;"Diameter. =":PRINT:PRINTi^2*3.14159;"Surface" 3860 GOTO 3450 3870 PRINT"{clear}{down*5}" 3880 PRINTi;"Diameter. =":PRINT:PRINTi^3*.5236;"Cubic Volume" 3890 GOTO 3450 3900 PRINT"{clear}{down}" 3910 PRINT"Your NUMBER, ";i 3920 PRINT:PRINT 3930 PRINT"Squared{space*7}=";i*i 3940 PRINT:PRINT"Cubed{space*9}=";i^3 3950 PRINT:PRINT"Sq.Root{space*7}=";SQR(i) 3960 PRINT:PRINT"Reciprocal{space*4}=";1/i 3970 PRINT:PRINT:PRINT"{space*4}Sine{space*10}=";SIN(i*3.14159/180) 3980 PRINT:PRINT"{space*4}Cosine{space*8}=";COS(i*3.14159/180) 3990 PRINT:PRINT"{space*4}Tangent{space*7}=";TAN(i*3.14159/180) 4000 PRINT:PRINT"{space*4}Cotangent{space*5}=";1/TAN(i*3.14159/180) 4010 GOTO3450 5000 REM converted for 64 by richard swallow 5010 REM chula vista, ca 5020 REM nov 1984 stop tok64 (bastext 1.0)