home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / CONVERSION (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  19.6 KB  |  781 lines
  1. 100 POKE53280,0:POKE53281,0:PRINTCHR$(5)
  2. 110 PRINT"[147]THIS PROGRAM ALLOWS YOU TO MAKE"
  3. 120 PRINT"CONVERSIONS FROM METRIC TO ENGLISH,"
  4. 130 PRINT"ENGLISH TO METRIC, AND GENERAL"
  5. 140 PRINT"CONVERSIONS.  JUST CHOOSE THE"
  6. 150 PRINT"CONVERSION YOU WANT TO MAKE, AND ENTER"
  7. 160 PRINT"THE VALUE YOU WANT CONVERTED WHEN THE"
  8. 170 PRINT"PROGRAM ASKS FOR IT"
  9. 180 FORX=1TO500
  10. 190 REM  COPYRIGHT BY E.W.BURMEISTER
  11. 200 REM  NOVEMBER 28,1985
  12. 210 NEXT
  13. 220 PRINT"[159][147]SCREEN 1[146]":PRINT:A=0:B=0
  14. 230 PRINT"1[146]  INCHES TO MILLIMETERS-CENTIMETERS      -METERS":PRINT
  15. 240 PRINT"2[146]  FEET TO METERS":PRINT
  16. 250 PRINT"3[146]  YARDS TO METERS":PRINT
  17. 260 PRINT"4[146]  MILES TO KILOMETERS":PRINT
  18. 270 PRINT"5[146]  OUNCES TO GRAMS-KILOGRAMS":PRINT
  19. 280 PRINT"6[146]  POUNDS TO GRAMS-KILOGRAMS":PRINT
  20. 290 PRINT"7[146]  GALLONS TO LITERS":PRINT
  21. 300 PRINT"8[146]  MICRONS TO MILS":PRINT
  22. 310 PRINT"9[146]  NEXT PAGE":PRINT
  23. 320 PRINT:PRINT"WHICH NUMBER ?"
  24. 330 GETZ$:IFZ$=""THEN330
  25. 340 PRINT"[147]":Z=VAL(Z$)
  26. 350 ONZGOTO1470,1510,1560,1610,1660,1710,1760,1810,360
  27. 360 PRINT"[147]SCREEN 2[146]":PRINT
  28. 370 PRINT"1[146]  CENTIMETERS TO INCHES":PRINT
  29. 380 PRINT"2[146]  MILLIMETERS TO INCHES":PRINT
  30. 390 PRINT"3[146]  METERS TO FEET":PRINT
  31. 400 PRINT"4[146]  KILOMETERS TO MILES":PRINT
  32. 410 PRINT"5[146]  GRAMS TO OUNCES":PRINT
  33. 420 PRINT"6[146]  GRAMS TO POUNDS":PRINT
  34. 430 PRINT"7[146]  KILOGRAMS TO POUNDS":PRINT
  35. 440 PRINT"8[146]  LITERS TO GALLONS":PRINT
  36. 450 PRINT"9[146]  NEXT PAGE":PRINT:PRINT:PRINT"WHICH NUMBER ?"
  37. 460 GETY$:IFY$=""THEN460
  38. 470 PRINT"[147]":Y=VAL(Y$)
  39. 480 ONYGOTO1860,1910,1960,2010,2080,2140,2190,2240,490
  40. 490 PRINT"[156][147]SCREEN 3[146]":PRINT
  41. 500 PRINT"1[146]  MILLILITERS (CC) TO FLUID OUNCES":PRINT
  42. 510 PRINT"2[146]  SQ CENTIMETERS TO SQ INCHES":PRINT
  43. 520 PRINT"3[146]  SQ MILLIMETERS TO SQ IN -SQ FT":PRINT
  44. 530 PRINT"4[146]  SQ METERS TO SQ FEET":PRINT
  45. 540 PRINT"5[146]  SQ METERS TO SQ YARDS":PRINT
  46. 550 PRINT"6[146]  MILLILITERS(CC) TO CUBIC INCHES":PRINT
  47. 560 PRINT"7[146]  CUBIC METERS TO CUBIC FEET":PRINT
  48. 570 PRINT"8[146]  CUBIC METERS TO CUBIC YARDS":PRINT
  49. 580 PRINT"9[146]  NEXT PAGE":PRINT
  50. 590 PRINT:PRINT"WHICH NUMBER ?"
  51. 600 GETX$:IFX$=""THEN600
  52. 610 PRINT"[147]":X=VAL(X$)
  53. 620 ONXGOTO2290,2340,2390,2440,2490,2540,2590,2640,630
  54. 630 PRINT"[147]SCREEN 4[146]":PRINT
  55. 640 PRINT"1[146]  FLUID OUNCES TO MILLILITERS(CC)":PRINT
  56. 650 PRINT"2[146]  SQUARE INCHES TO SQUARE CENTIMETERS":PRINT
  57. 660 PRINT"3[146]  SQUARE FEET TO SQUARE METERS":PRINT
  58. 670 PRINT"4[146]  SQUARE YARDS TO SQUARE METERS":PRINT
  59. 680 PRINT"5[146]  CUBIC INCHES TO MILLILITERS(CC)":PRINT
  60. 690 PRINT"6[146]  CUBIC FEET TO CUBIC METERS":PRINT
  61. 700 PRINT"7[146]  CUBIC YARDS TO CUBIC METERS":PRINT
  62. 710 PRINT"8[146]  SQ INCHES TO SQ FEET-SQ YARDS":PRINT
  63. 720 PRINT"9[146]  NEXT PAGE":PRINT
  64. 730 PRINT:PRINT"WHICH NUMBER ?"
  65. 740 GETW$:IFW$=""THEN740
  66. 750 PRINT"[147]":W=VAL(W$)
  67. 760 ONWGOTO2690,2740,2790,2840,2890,2940,2990,3040,770
  68. 770 PRINT"[147]SCREN 5[146]":PRINT
  69. 780 PRINT"1[146]  SQUARE YARDS TO SQ FEET-SQ INCHES":PRINT
  70. 790 PRINT"2[146]  INCHES OF MERCURY TO ATMOSPHERES":PRINT
  71. 800 PRINT"3[146]  ATMOSPHERES TO INCHES OF MERCURY":PRINT
  72. 810 PRINT"4[146]  SQUARE FEET TO ACRES":PRINT
  73. 820 PRINT"5[146]  ACRES TO SQUARE FEET":PRINT
  74. 830 PRINT"6[146]  BARS TO ATMOSPHERES":PRINT
  75. 840 PRINT"7[146]  ATMOSPHERES TO BARS":PRINT
  76. 850 PRINT"8[146]  BARS TO INCHES OF MERCURY":PRINT
  77. 860 PRINT"9[146]  NEXT PAGE":PRINT
  78. 870 PRINT:PRINT"WHICH NUMBER ?"
  79. 880 GETV$:IFV$=""THEN880
  80. 890 PRINT"[147]":V=VAL(V$)
  81. 900 ONVGOTO3090,3140,3190,3240,3290,3340,3390,3440,910
  82. 910 PRINT"[158][147]SCREEN 6[146]":PRINT
  83. 920 PRINT"1[146]  INCHES OF MERCURY TO BARS":PRINT
  84. 930 PRINT"2[146]  BOARD FEET TO CUBIC FEET":PRINT
  85. 940 PRINT"3[146]  CUBIC FEET TO BOARD FEET":PRINT
  86. 950 PRINT"4[146]  BTU TO JOULES":PRINT
  87. 960 PRINT"5[146]  JOULES TO BTU":PRINT
  88. 970 PRINT"6[146]  CALORIES TO BTU":PRINT
  89. 980 PRINT"7[146]  BTU TO CALORIES":PRINT
  90. 990 PRINT"8[146]  DYNES TO NEWTONS":PRINT
  91. 1000 PRINT"9[146]  NEXT PAGE"
  92. 1010 PRINT:PRINT"WHICH NUMBER ?"
  93. 1020 GETT$:IFT$=""THEN1020
  94. 1030 PRINT"[147]":T=VAL(T$)
  95. 1040 ONTGOTO3490,3540,3590,3640,3690,3740,3790,3840,1050
  96. 1050 PRINT"[156][147]SCREEN 7[146]":PRINT
  97. 1060 PRINT"1[146]  NEWTONS TO DYNES":PRINT
  98. 1070 PRINT"2[146]  OUNCES/SQ YD TO GRAMS/SQ METER":PRINT
  99. 1080 PRINT"3[146]  GRAMS/SQ METER TO OUNCES/SQ YD":PRINT
  100. 1090 PRINT"4[146]  POUNDS TO NEWTONS":PRINT
  101. 1100 PRINT"5[146]  OUNCES TO NEWTONS":PRINT
  102. 1110 PRINT"6[146]  NEWTONS TO POUNDS":PRINT
  103. 1120 PRINT"7[146]  NEWTONS TO OUNCES":PRINT
  104. 1130 PRINT"8[146]  F DEGREES TO C DEGREES":PRINT
  105. 1140 PRINT"9[146]  NEXT PAGE":PRINT
  106. 1150 PRINT:PRINT"WHICH NUMBER ?"
  107. 1160 GETS$:IFS$=""THEN1160
  108. 1170 PRINT"[147]":S=VAL(S$)
  109. 1180 ONSGOTO3890,3940,3990,4040,4090,4140,4190,4240,1190
  110. 1190 PRINT"[158][147]SCREEN 8[146]":PRINT
  111. 1200 PRINT"1[146]  C DEGREES TO F DEGREES":PRINT
  112. 1210 PRINT"2[146]  MICRONS TO INCHES":PRINT
  113. 1220 PRINT"3[146]  INCHES TO MICRONS":PRINT
  114. 1230 PRINT"4[146]  YARDS/HOUR TO FEET/MINUTE":PRINT
  115. 1240 PRINT"5[146]  FEET/MINUTE TO YARDS/HOUR":PRINT
  116. 1250 PRINT"6[146]  NEWTON-METERS TO KG-METERS":PRINT
  117. 1260 PRINT"7[146]  KG-METERS TO NEWTON-METERS":PRINT
  118. 1270 PRINT"8[146]  NEWTON-METERS TO POUND-FEET":PRINT
  119. 1280 PRINT"9[146]  NEXT PAGE":PRINT
  120. 1290 PRINT:PRINT"WHICH NUMBER ?"
  121. 1300 GETR$:IFR$=""THEN1300
  122. 1310 PRINT"[147]":R=VAL(R$)
  123. 1320 ONRGOTO4290,4340,4390,4440,4490,4540,4590,4640,1330
  124. 1330 PRINT"[147]SCREEN 9[146]":PRINT
  125. 1340 PRINT"1[146]  POUND-FEET TO NEWTON-METERS":PRINT
  126. 1350 PRINT"2[146]  RADIANS TO DEGREES":PRINT
  127. 1360 PRINT"3[146]  DEGREES TO RADIANS":PRINT
  128. 1370 PRINT"4[146]  FOOT-POUNDS TO JOULES":PRINT
  129. 1380 PRINT"5[146]  JOULES TO FOOT-POUNDS":PRINT
  130. 1390 PRINT"6[146]  KNOTS TO MILES/HOUR":PRINT
  131. 1400 PRINT"7[146]  POUNDS/SQ INCH TO KILOPASCALS":PRINT
  132. 1410 PRINT"8[146]  KILOPASCALS TO POUNDS/SQ INCH":PRINT
  133. 1420 PRINT"9[146]  NEXT PAGE":PRINT
  134. 1430 PRINT:PRINT"WHICH NUMBER ?"
  135. 1440 GETP$:IFP$=""THEN1440
  136. 1450 PRINT"[147]":P=VAL(P$)
  137. 1460 ONPGOTO4690,4740,4790,4840,4890,4940,4990,5040,6000
  138. 1470 REM INCH TO MILLIMETER-CENT-METERS
  139. 1480 B=25.4:GOSUB5090
  140. 1490 PRINT""A" INCHES = ";C;" MM = ";C/10;" CM = ";C/1000;" METERS"
  141. 1500 GOSUB5150
  142. 1510 REM FEET TO METERS
  143. 1520 B=.3048
  144. 1530 GOSUB5090
  145. 1540 PRINT"";A;" FEET = ";C;"METERS"
  146. 1550 GOSUB5150
  147. 1560 REM YDS TO METERS
  148. 1570 B=.9144
  149. 1580 GOSUB5090
  150. 1590 PRINT"";A;"YARDS = ";C;"METERS"
  151. 1600 GOSUB5150
  152. 1610 REM MILES TO KILOMETERS
  153. 1620 B=1.6093
  154. 1630 GOSUB5090
  155. 1640 PRINT"";A;"MILES = ";C;"KILOMETERS"
  156. 1650 GOSUB5150
  157. 1660 REM OZS TO GMS-KGMS
  158. 1670 B=28.3495
  159. 1680 GOSUB5090
  160. 1690 PRINT"";A;"OUNCES = ";C;"GMS = K";C/1000;"KILOGRAMS"
  161. 1700 GOSUB5150
  162. 1710 REM LBS TO GMS-KGMS
  163. 1720 B=453.59
  164. 1730 GOSUB5090
  165. 1740 PRINT"";A;"POUNDS = ";C;"GMS = ";C/1000;"KILOGRAMS"
  166. 1750 GOSUB5150
  167. 1760 REM GAL TO LITERS
  168. 1770 B=3.7854
  169. 1780 GOSUB5090
  170. 1790 PRINT"";A;"GALLONS = ";C;"LITERS"
  171. 1800 GOSUB5150
  172. 1810 REM MICRON TO MILS
  173. 1820 B=.03937
  174. 1830 GOSUB5090
  175. 1840 PRINT"";A;"MICRONS = ";C;"MILS"
  176. 1850 GOSUB5150
  177. 1860 REM CENTIMETERS TO IN
  178. 1870 B=.3937
  179. 1880 GOSUB5090
  180. 1890 PRINT"";A;"CENTIMETERS = ";C;"INCHES"
  181. 1900 GOSUB5150
  182. 1910 REM MILLIMETERS TO IN
  183. 1920 B=.03937
  184. 1930 GOSUB5090
  185. 1940 PRINT"";A;"MM = ";C;"INCHES"
  186. 1950 GOSUB5150
  187. 1960 REM METERS TO FT
  188. 1970 B=3.2808
  189. 1980 GOSUB5090
  190. 1990 PRINT"";A;"METERS = ";C;"FEET"
  191. 2000 GOSUB5150
  192. 2010 REM KILOMETERS TO MILES
  193. 2020 B=.62137
  194. 2030 GOSUB5090
  195. 2040 PRINT"";A;"KILOMETERS = ";C;"MILES"
  196. 2050 GOSUB5150
  197. 2060 GOSUB5090
  198. 2070 PRINT"";A;"KILOMETERS = ";C;"MILES"
  199. 2080 REM GMS TO OZS
  200. 2090 B=.03527
  201. 2100 GOSUB5090
  202. 2110 GOSUB5150
  203. 2120 PRINT"";A;"GRAMS = ";C;"OUNCES"
  204. 2130 GOSUB5150
  205. 2140 REM GMS TO LBS
  206. 2150 B=.0022046
  207. 2160 GOSUB5090
  208. 2170 PRINT"";A;"GRAMS = ";C;"POUNDS"
  209. 2180 GOSUB5150
  210. 2190 REM KILOGRAMS TO LBS
  211. 2200 B=2.2046
  212. 2210 GOSUB5090
  213. 2220 PRINT"";A;"KILOGRAMS = ";C;"POUNDS"
  214. 2230 GOSUB5150
  215. 2240 REM LITERS TO GALLONS
  216. 2250 B=.26417
  217. 2260 GOSUB5090
  218. 2270 PRINT"";A;"LITERS = ";C;"GALLONS"
  219. 2280 GOSUB5150
  220. 2290 REM MILLILITERS TO FLUID OZ
  221. 2300 B=.03381
  222. 2310 GOSUB5090
  223. 2320 PRINT"";A;"MILLILITERS = ";C;"FLUID OUNCES"
  224. 2330 GOSUB5150
  225. 2340 REN SQ CENT TO SQ INCH
  226. 2350 B=.1550
  227. 2360 GOSUB5090
  228. 2370 PRINT"";A;"SQ CENTIMETERS = ";C;"SQ INCHES"
  229. 2380 GOSUB5150
  230. 2390 REM SQ MM TO SQ INCH TO SQ FT
  231. 2400 B=10.7639
  232. 2410 GOSUB5090
  233. 2420 PRINT"";A;"SQ MILLIMETERS = ";C;"SQ INCHES = ";C*144;"SQ FEET"
  234. 2430 GOSUB5150
  235. 2440 REM SQ METERS TO SQ FT
  236. 2450 B=10.7639
  237. 2460 GOSUB5090
  238. 2470 PRINT"";A;"SQ METERS = ";C;"SQ FEET"
  239. 2480 GOSUB5150
  240. 2490 REM SQ METERS TO SQ YDS
  241. 2500 B=1.19599
  242. 2510 GOSUB5090
  243. 2520 PRINT"";A;"SQ METERS = ";C;"SQ YARDS"
  244. 2530 GOSUB5150
  245. 2540 REM CU MILLIMETERS TO CU IN
  246. 2550 B=.06102
  247. 2560 GOSUB5090
  248. 2570 PRINT"";A;"CUBIC MILLIMETERS = ";C;"CUBIC INCHES"
  249. 2580 GOSUB5150
  250. 2590 REM CU MET TO CU FT
  251. 2600 B=35.3147
  252. 2610 GOSUB5090
  253. 2620 PRINT"";A;"CUBIC METERS = ";C;"CUBIC FEET"
  254. 2630 GOSUB5150
  255. 2640 REM CU MET TO CU YDS
  256. 2650 B=1.3076
  257. 2660 GOSUB5090
  258. 2670 PRINT"";A;"CUBIC METERS = ";C;"CUBIC YARDS"
  259. 2680 GOSUB5150
  260. 2690 REM FLUID OZ TO MILLILITERS
  261. 2700 B=29.5736
  262. 2710 GOSUB5090
  263. 2720 PRINT"";A;"FLUID OUNCES = ";C;"MILLILITERS"
  264. 2730 GOSUB5150
  265. 2740 REM SQ IN TO SQ CM
  266. 2750 GOSUB5090
  267. 2760 B=6.4516
  268. 2770 PRINT"";A;"SQUARE INCHES = ";C;"SQUARE CENTIMETERS"
  269. 2780 GOSUB5150
  270. 2790 REM SQ FT TO SQ METER
  271. 2800 B=.0929
  272. 2810 GOSUB5090
  273. 2820 PRINT"";A;"SQUARE FEET = ";C;"SQUARE METERS"
  274. 2830 GOSUB5150
  275. 2840 REM SQ YDS TO SQ METERS
  276. 2850 B=.8361
  277. 2860 GOSUB5090
  278. 2870 PRINT"";A;"SQUARE YARDS = ";C;"SQUARE METERS"
  279. 2880 GOSUB5150
  280. 2890 REM CU IN TO MILLILITERS
  281. 2900 B=16.387
  282. 2910 GOSUB5090
  283. 2920 PRINT"";A;"CUBIC INCHES = ";C;"MILLILITERS"
  284. 2930 GOSUB5150
  285. 2940 REM CU FT TO CU METERS
  286. 2950 B=.02832
  287. 2960 GOSUB5090
  288. 2970 PRINT"";A;"CUBIC FEET = ";C;"CUBIC METERS"
  289. 2980 GOSUB5150
  290. 2990 REM CU YDS TO CU METERS
  291. 3000 B=.76455
  292. 3010 GOSUB5090
  293. 3020 PRINT"";A;"CUBIC YARDS = ";C;"CUBIC METERS"
  294. 3030 GOSUB5150
  295. 3040 REM SQ IN TO SQ FT-SQ YDS
  296. 3050 B=.00694
  297. 3060 GOSUB5090
  298. 3070 PRINT"";A;"SQ INCHES = ";C;"SQ FEET = ";C/9;"SQ YARDS"
  299. 3080 GOSUB5150
  300. 3090 REM SQ YDS TO SQ FT-SQ IN
  301. 3100 B=.333
  302. 3110 GOSUB5090
  303. 3120 PRINT"";A;"SQ YARDS = ";C;"SQ FEET = ";C*144;"SQ INCHES"
  304. 3130 GOSUB5150
  305. 3140 REM IN OF HG TO ATMOS
  306. 3150 B=.03342
  307. 3160 GOSUB5090
  308. 3170 PRINT"";A;"INCHES OF MERCURY = ";C;"ATMOSPHERES"
  309. 3180 GOSUB5150
  310. 3190 REM ATMOS TO IN OF HG
  311. 3200 B=29.922
  312. 3210 GOSUB5090
  313. 3220 PRINT"";A;"ATMOSPHERES = ";C;"INCHES OF MERCURY"
  314. 3230 GOSUB5150
  315. 3240 REM SQ FT TO ACRES
  316. 3250 B=.00002295
  317. 3260 GOSUB5090
  318. 3270 PRINT"";A;"SQUARE FEET = ";C;"ACRES"
  319. 3280 GOSUB5150
  320. 3290 REM ACRES TO SQ FT
  321. 3300 B=43560
  322. 3310 GOSUB5090
  323. 3320 PRINT"";A;"ACRES = ";C;"SQUARE FEET"
  324. 3330 GOSUB5150
  325. 3340 REM BARS TO ATMOS
  326. 3350 B=.9869
  327. 3360 GOSUB5090
  328. 3370 PRINT"";A;"BARS = ";C;"ATMOSPHERES"
  329. 3380 GOSUB5150
  330. 3390 REM ATMOS TO BARS
  331. 3400 B=1.0133
  332. 3410 GOSUB5090
  333. 3420 PRINT"";A;"ATMOSPHERES = ";C;"BARS"
  334. 3430 GOSUB5150
  335. 3440 REM  BARS TO IN OF HG
  336. 3450 B=29.53
  337. 3460 GOSUB5090
  338. 3470 PRINT"";A;" BARS = ";C;" INCHES OF MERCURY"
  339. 3480 GOSUB5150
  340. 3490 REM  IN OF HG TO BARS
  341. 3500 B=.03386
  342. 3510 GOSUB5090
  343. 3520 PRINT"";A;"INCHES OF MERCURY = ";C;"BARS"
  344. 3530 GOSUB5150
  345. 3540 REM  BOARD FT TO CU FT
  346. 3550 B=.08333
  347. 3560 GOSUB5090
  348. 3570 PRINT"";A;"BOARD FEET = ";C;"CUBIC FEET"
  349. 3580 GOSUB5150
  350. 3590 REM  CU FT TO BOARD FT
  351. 3600 B=12.0005
  352. 3610 GOSUB5090
  353. 3620 PRINT"";A;CUBIC FEET = ";C;"BOARD FEET"
  354. 3630 [141]5150
  355. 3640 [143]  BTU TO JOULES
  356. 3650 B[178]1054.35
  357. 3660 [141]5150
  358. 3670 [153]"";A;"BTU'S = ";C;"JOULES"
  359. 3680 [141]5150
  360. 3690 [143]  JOULES TO BTU
  361. 3700 B[178].0009485
  362. 3710 [141]5090
  363. 3720 [153]"";A;"JOULES = ";C;"BTU'S"
  364. 3730 [141]5150
  365. 3740 [143]  CALS TO BTU
  366. 3750 B[178].003968
  367. 3760 [141]5090
  368. 3770 [153]"";A;"CALORIES = ";C;"BTU'S"
  369. 3780 [141]5150
  370. 3790 [143]  BTU TO CAL
  371. 3800 B[178]252.016
  372. 3810 [141]5090
  373. 3820 [153]"";A;"BTU'S = ";C;"CALORIES"
  374. 3830 [141]5150
  375. 3840 [143]  DYNES TO NEWTONS
  376. 3850 B[178].00001
  377. 3860 [141]5090
  378. 3870 [153]"";A;"DYNES = ";C;"NEWTONS"
  379. 3880 [141]5150
  380. 3890 [143]  NEWTONS TO DYNES
  381. 3900 B[178]100000
  382. 3910 [141]5090
  383. 3920 [153]"";A;"NEWTONS = ";C;"DYNES"
  384. 3930 [141]5150
  385. 3940 [143]  OZ/SQ YD TO GM/SQ METER
  386. 3950 B[178]33.9
  387. 3960 [141]5090
  388. 3970 [153]"";A;"OUNCES/ SQ YARD = ";C;"GRAMS/ SQ METER"
  389. 3980 [141]5150
  390. 3990 [143]  GM/SQ METER TO OZ/SQ YD
  391. 4000 B[178].0295
  392. 4010 [141]5090
  393. 4020 [153]"";A;"GRAMS/SQ METER = ";C;"OUNCES/SQ YARD"
  394. 4030 [141]5150
  395. 4040 [143]  POUNDS TO NEWTONS
  396. 4050 B[178]4.448
  397. 4060 [141]5090
  398. 4070 [153]"";A;"POUNDS = ";C;"NEWTONS"
  399. 4080 [141]5150
  400. 4090 [143]  OZ TO NEWTONS
  401. 4100 B[178].278
  402. 4110 [141]5090
  403. 4120 [153]"";A;"OUNCES = ";C;"NEWTONS"
  404. 4130 [141]5150
  405. 4140 [143]  NEWTONS TO LBS
  406. 4150 B[178].2248
  407. 4160 [141]5090
  408. 4170 [153]"";A;"NEWTONS = ";C;"POUNDS"
  409. 4180 [141]5150
  410. 4190 [143]  NEWTONS TO OZ
  411. 4200 B[178]3.597
  412. 4210 [141]5090
  413. 4220 [153]"";A;"NEWTONS = ";C;"OUNCES"
  414. 4230 [141]5150
  415. 4240 [143]  F DEGREES TO C
  416. 4250 B[178]1:[141]5090
  417. 4260 C[178](A[171]32)[173]1.8
  418. 4270 [153]"";A;"F DEGREES = ";C;"C DEGREES"
  419. 4280 [141]5150
  420. 4290 [143]  C TO F DEGREES
  421. 4300 B[178]1:[141]5090
  422. 4310 C[178](A[172]1.8)[170]32
  423. 4320 [153]"";A;"C DEGREES = ";C;"F DEGREES"
  424. 4330 [141]5150
  425. 4340 [143]  MICRONS TO IN
  426. 4350 B[178].00000253
  427. 4360 [141]5090
  428. 4370 [153]"";A;"MICRONS = ";C;"INCHES"
  429. 4380 [141]5150
  430. 4390 [143]  IN TO MICRONS
  431. 4400 B[178]393700.79
  432. 4410 [141]5090
  433. 4420 [153]"";A;"INCHES = ";C;"MICRONS"
  434. 4430 [141]5150
  435. 4440 [143]  YDS/HR TO FT/MIN
  436. 4450 B[178].05
  437. 4460 [141]5090
  438. 4470 [153]"";A;"YARDS/HOUR = ";C;"FEET/MINUTE"
  439. 4480 [141]5150
  440. 4490 [143]  FT/MIN TO YDS/HR
  441. 4500 B[178]20
  442. 4510 [141]5090
  443. 4520 [153]"";A;"FEET/MINUTE = ";C;"YARDS/HOUR"
  444. 4530 [141]5150
  445. 4540 [143]  NEWTON-METERS TO KG-METERS
  446. 4550 B[178].010197
  447. 4560 [141]5090
  448. 4570 [153]"";A;"NEWTON-METERS = ";C;"KG-METERS"
  449. 4580 [141]5150
  450. 4590 [143]  KG-METERS TO NEWTON-METERS
  451. 4600 B[178]98.068
  452. 4610 [141]5090
  453. 4620 [153]"";A;"KG-METERS = ";C;"NEWTON-METERS"
  454. 4630 [141]5150
  455. 4640 [143]  NEWTON-METERS TO LB-FEET
  456. 4650 B[178].7376
  457. 4660 [141]5090
  458. 4670 [153]"";A;"NEWTON-METERS = ";C;"POUND-FEET"
  459. 4680 [141]5150
  460. 4690 [143]  LB-FT TO NEWTON-METERS
  461. 4700 B[178]1.3557
  462. 4710 [141]5090
  463. 4720 [153]"";A;"POUND-FEET = ";C;"NEWTON-METERS"
  464. 4730 [141]5150
  465. 4740 [143]  RADIANS TO DEGREES
  466. 4750 B[178]57.2958
  467. 4760 [141]5090
  468. 4770 [153]"";A;"RADIANS = ";C;"DEGREES"
  469. 4780 [141]5150
  470. 4790 [143]  DEGREES TO RADIANS
  471. 4800 B[178].01745
  472. 4810 [141]5090
  473. 4820 [153]"";A;"DEGREES = ";C;"RADIANS"
  474. 4830 [141]5150
  475. 4840 [143]  FT-LBS TO JOULES
  476. 4850 B[178]1.35582
  477. 4860 [141]5090
  478. 4870 [153]"";A;"FOOT-POUNDS = ";C;"JOULES"
  479. 4880 [141]5150
  480. 4890 [143]  JOULES TO FT-LBS
  481. 4900 B[178].73756
  482. 4910 [141]5090
  483. 4920 [153]"";A;"JOULES = ";C;"FOOT-POUNDS"
  484. 4930 [141]5150
  485. 4940 [143]  KNOTS TO MPH
  486. 4950 B[178].86897
  487. 4960 [141]5090
  488. 4970 [153]"";A;"KNOTS = ";C;"MILES PER HOUR"
  489. 4980 [141]5150
  490. 4990 [143]  LBS/SQ IN TO KILOPASCALS
  491. 5000 B[178]6.895
  492. 5010 [141]5090
  493. 5020 [153]"";A;"POUNDS/SQ INCH =";C;"KILOPASCALS"
  494. 5030 [141]5150
  495. 5040 [143]  KILOPASCALS TO LBS/SQ IN
  496. 5050 B[178].1450
  497. 5060 [141]5090
  498. 5070 [153]"";A;"KILOPASCALS = ";C;"POUNDS/SQ INCH"
  499. 5080 [141]5150
  500. 5090 [153]"LOAD"
  501. 5100 [153]"TYPE IN THE NUMBER (WITHOUT THE UNITS)"
  502. 5110 [153]"AND PRESS THE RETURN"
  503. 5120 [133]A
  504. 5130 C[178]([181]((A[172]B)[172]100))[173]100
  505. 5132 D[178]([181]((A[172]F)[172]100))[173]100
  506. 5134 E[178]([181]((A[172]G)[172]100))[173]100
  507. 5140 [153]"LOAD":[142]
  508. 5150 [153]"PRESS ANY KEY TO CONTINUE"
  509. 5160 [161]K$:[139]K$[178]""[167]5160
  510. 5170 [137]220
  511. 6000 [153]"OPENLOADSCREEN 10WAIT":[153]:N$[178]""
  512. 6010 [153]"1WAIT  BTU TO CAL = KG-M = FT LB":[153]
  513. 6020 [153]"2WAIT  BTU TO JOULE = HP/HR = KW/HR":[153]
  514. 6030 [153]"3WAIT  CAL TO BTU = KG-M = FT LB":[153]
  515. 6040 [153]"4WAIT  CAL TO JOULE = HP/HR = KW/HR":[153]
  516. 6050 [153]"5WAIT  KG-M TO BTU = CAL = FT LB":[153]
  517. 6060 [153]"6WAIT  KG-M TO JOULE = CAL = FT LB":[153]
  518. 6070 [153]"7WAIT  FT LB TO CAL = BTU = KG-M":[153]
  519. 6080 [153]"8WAIT  FT LB TO JOULE = HP/HR = KW/HR":[153]
  520. 6090 [153]"9WAIT  NEXT PAGE":[153]
  521. 6100 [153]:[153]"           WHICH NUMBER ?"
  522. 6110 [161]N$:[139]N$[178]""[167]6110
  523. 6120 [153]"LOAD":N[178][197](N$)
  524. 6130 [145] N [137]9000,9050,9100,9150,9200,9250,9300,9350,6500
  525. 6500 [153]"CLRLOADSCREEN 11WAIT":[153]:N$[178]""
  526. 6510 [153]"1WAIT  JOULE TO BTU = CAL = KG-M":[153]
  527. 6520 [153]"2WAIT  JOULE TO FT LB = HP/HR = KW/HR":[153]
  528. 6530 [153]"3WAIT  HP/HR TO BTU = CAL = KG-M":[153]
  529. 6540 [153]"4WAIT  HP/HR TO FT LB = JOULE = KW/HR":[153]
  530. 6550 [153]"5WAIT  KW/HR TO BTU = CAL = KG-M":[153]
  531. 6560 [153]"6WAIT  KW/HR TO FT LB = JOULE = HP/HR":[153]
  532. 6570 [153]"7WAIT  ATM TO MM OF HG = IN OF HG = IN OF      WATER":[153]
  533. 6580 [153]"8WAIT  ATM TO FT OF WATER = LBS/SQ IN =        KG/SQ CM":[153]
  534. 6590 [153]"9WAIT  NEXT PAGE":[153]
  535. 6600 [153]:[153]"           WHICH NUMBER ?"
  536. 6610 [161]N$:[139]N$[178]""[167]6610
  537. 6620 [153]"LOAD":N[178][197](N$)
  538. 6630 [145] N [137]9400,9450,9500,9550,9600,9650,9700,9750,7000
  539. 7000 [153]"LOADSCREEN 12WAIT":[153]:N$[178]""
  540. 7010 [153]"1WAIT  MM OF HG TO IN OF HG = IN OF WATER      = FT OF WATER"
  541. 7020 [153]"2WAIT  MM OF HG TO ATM = LB/SQ IN = KG/SQ      CM"
  542. 7030 [153]"3WAIT  IN OF WATER TO MM OF HG = IN OF HG      = FT OF WATER"
  543. 7040 [153]"4WAIT  IN OF WATER TO ATM = LB/SQ IN =         KG/SQ CM"
  544. 7050 [153]"5WAIT  FT OF WATER TO MM OF HG = IN OF HG      = IN OF WATER"
  545. 7060 [153]"6WAIT  FT OF WATER TO ATM = LB/SQ IN =         KG/SQ CM"
  546. 7070 [153]"7WAIT  LB/SQ IN TO MM OF HG = IN OF HG =       IN OF WATER"
  547. 7080 [153]"8WAIT  LB/SQ IN TO FT WATER = ATM =            KG/SQ CM"
  548. 7090 [153]"9WAIT  NEXT PAGE" :[153]:[153]
  549. 7100 [153]"           WHICH NUMBER ?"
  550. 7110 [161]N$:[139]N$[178]""[167]7110
  551. 7120 [153]"LOAD":N[178][197](N$)
  552. 7130 [145] N [137]9800,9850,9900,9950,10000,10050,10100,10150,7500
  553. 7500 [153]"LOADSCREEN 13WAIT":[153]:N$[178]""
  554. 7510 [153]"1WAIT  KG/SQ CM TO MM OF HG = IN OF HG =       IN OF WATER"
  555. 7520 [153]"2WAIT  KG/SQ CM TO FT OF WATER = ATM =         LB.SQ IN"
  556. 7530 [153]"3WAIT  IN OF HG TO MM OF HG = IN OF WATER      = FT OF WATER"
  557. 7540 [153]"4WAIT  IN OF HG TO ATM = LB/SQ IN = KG/SQ      CM"
  558. 7550 [153]"5WAIT  LIT/SEC TO GAL/MIN = CU FT/SEC =        CU FT/MIN"
  559. 7560 [153]"6WAIT  GAL/MIN TO LIT/SEC = CU FT/SEC =        CU FT/MIN"
  560. 7570 [153]"7WAIT  CU FT/SEC TO LIT/SEC = GAL/MIN =        CU FT/MIN"
  561. 7580 [153]"8WAIT  CU FT/MIN TO LIT/SEC = GAL/MIN =        CU FT/SEC":
  562. 7590 [153]"9WAIT  NEXT PAGE":[153]
  563. 7600 [153]:[153]"           WHICH NUMBER ?"
  564. 7610 [161]N$:[139]N$[178]""[167]7610
  565. 7620 [153]"LOAD":N[178][197](N$)
  566. 7630 [145] N [137]10200,10250,10300,10350,10400,10450,10500,10550,8000
  567. 8000 [153]"LOADSCREEN 14WAIT":[153]:N$[178]""
  568. 8010 [153]"1WAIT  OZ/SQ YD TO GM/SQ FT = OZ/SQ FT =       GM/SQ M":[153]
  569. 8020 [153]"2WAIT  OZ/SQ FT TO OZ/SQ YD = OZ/SQ FT =       GM/SQ M":[153]
  570. 8030 [153]"3WAIT  GM/SQ M TO OZ/SQ FT = GM/SQ FT =        OZ/SQ YD":[153]
  571. 8040 [153]"4WAIT..........................":
  572. 8050 [153]"5WAIT..........................":
  573. 8060 [153]"6WAIT..........................":
  574. 8070 [153]"7WAIT..........................":
  575. 8080 [153]"8WAIT..........................":
  576. 8090 [153]"9WAIT  NEXT PAGE":[153]
  577. 8100 [153]:[153]"           WHICH NUMBER ?"
  578. 8110 [161]N$:[139]N$[178]""[167]8110
  579. 8120 [153]"LOAD":N[178][197](N$)
  580. 8130 [145] N [137]10600,10650,10700,10750,10800,10850,10900,10950,220
  581. 9000 [143]
  582. 9010 B[178]252:F[178]107.6:G[178]778
  583. 9020 [141]5090
  584. 9030 [153]"";A;"BTU = ";C;" CAL = ";D;" KG-M =";E;"FT LB"
  585. 9040 [141]5150
  586. 9050 [143]
  587. 9060 B[178]1055:F[178].000393:G[178].000293
  588. 9070 [141]5090
  589. 9080 [153]"";A;" BTU = ";C;" JOULE = ";D;" HP/HR = ";E;" KW/HR
  590. 9090 GOSUB5150
  591. 9100 REM
  592. 9110 B=.00397:F=.4268:G=3.087
  593. 9120 GOSUB5090
  594. 9130 PRINT"";A;"CAL = ";C;" BTU = ";D;" KG-M = ";E;" FT LB"
  595. 9140 GOSUB5150
  596. 9150 REM
  597. 9160 B=4.186:F=.00000156:G=.00000116
  598. 9170 GOSUB5090
  599. 9180 PRINT"";A;"CAL = ";C;" JOULE = ";D;" HP/HR = ";E;" KW/HR"
  600. 9190 GOSUB5150
  601. 9200 REM
  602. 9210 B=.0093:F=2.343:G=7.233
  603. 9220 GOSUB5090
  604. 9230 PRINT"";A;"KG-M = ";C;" BTU = ";D; CAL = ";E;" FT LB"
  605. 9240 [141]5150
  606. 9250 [143]
  607. 9260 B[178]9.807:F[178].000000365:G[178].00000272
  608. 9270 [141]5090
  609. 9280 [153]"";A;"KG-M = ";C;" JOULE = ";D;" HP/HR = ";E;" KW/HR"
  610. 9290 [141]5150
  611. 9300 [143]
  612. 9310 B[178].00129:F[178].3239:G[178].1383
  613. 9320 [141]5090
  614. 9330 [153]"";A;"FT LB = ";C;" CAL = ";D;" BTU = ";E;"KG-M"
  615. 9340 [141]5150
  616. 9350 [143]
  617. 9360 B[178]1.356:F[178].000000505:G[178].000000377
  618. 9370 [141]5090
  619. 9380 [153]"";A;"FT LB = ";C;" JOULE = ";D;" HP/HR = ";E;" KW/HR"
  620. 9390 [141]5150
  621. 9400 [143]
  622. 9410 B[178].000948:F[178].2389:G[178].102
  623. 9420 [141]5090
  624. 9430 [153]"";A;" JOULE = ";C;" BTU = ";D;" CAL = ";E;"KG-M"
  625. 9440 [141]5150
  626. 9450 [143]
  627. 9460 B[178].7376:F[178].000000373:G[178].000000278
  628. 9470 [141]5090
  629. 9480 [153]"";A;"JOULE = ";C;" FT LB = ";D;" HP/HR = ";E;" KW/HR"
  630. 9490 [141]5150
  631. 9500 [143]
  632. 9510 B[178]2545:F[178]641000:G[178]274000
  633. 9520 [141]5090
  634. 9530 [153]"";A;"HP/HR = ";C;" BTU =";D;" CAL = ";E;" KG-M"
  635. 9540 [141]5150
  636. 9550 [143]
  637. 9560 B[178]1980000:F[178]2680000:G[178].7457
  638. 9570 [141]5090
  639. 9580 [153]"";A;"HP/HR = ";C;" FT LB = ";D;" JOULE = ";E;" KW/HR"
  640. 9590 [141]5150
  641. 9600 [143]
  642. 9610 B[178]3413:F[178]860000:G[178]367000
  643. 9620 [141]5090
  644. 9630 [153]"";A;"KW/HR = ";C;" BTU = ";D;" CAL = ";E;" KG-M"
  645. 9640 [141]5150
  646. 9650 [143]
  647. 9660 B[178]2660000:F[178]3600000:G[178]1.341
  648. 9670 [141]5090
  649. 9680 [153]"";A;"KW/HR = ";C;" FT LB = ";D;" JOULE = ";E;" HP/HR"
  650. 9690 [141]5150
  651. 9700 [143]
  652. 9710 B[178]760:F[178]29.92:G[178]406.8
  653. 9720 [141]5090
  654. 9730 [153]"";A;"ATM = ";C;" MM OF HG = ";D;" IN OF HG = ";E;" IN OF WATER"
  655. 9740 [141]5150
  656. 9750 [143]
  657. 9760 B[178]33.9:F[178]14.7:G[178]1.033
  658. 9770 [141]5090
  659. 9780 [153]"";A;"ATM = ";C;" FT OF WATER = ";D;" LB/SQ IN = ";E;" KG/SQ CM"
  660. 9790 [141]5150
  661. 9800 [143]
  662. 9810 B[178].03937:F[178].5352:G[178].0446
  663. 9820 [141]5090
  664. 9830 [153]"";A;"MM OF HG = ";C;" IN OF HG = ";D;" IN WATER = ";E;" IN WATER"
  665. 9840 [141]5150
  666. 9850 [143]
  667. 9860 B[178].00132:F[178].01934:G[178].00136
  668. 9870 [141]5090
  669. 9880 [153]"";A;"MM OF HG = ";C;" ATM = ";D;" LB/SQ IN = ";E;" KG/SQ CM"
  670. 9890 [141]5150
  671. 9900 [143]
  672. 9910 B[178]1.868:F[178].07355:G[178].08333
  673. 9920 [141]5090
  674. 9930 [153]"";A;" IN WATER = ";C;" MM OF HG = ";D;" IN OF HG = ";E;"FT WATER"
  675. 9940 [141]5150
  676. 9950 [143]
  677. 9960 B[178].00246:F[178].03613:G[178].00254
  678. 9970 [141]5090
  679. 9980 [153]"";A;"IN OF WATER = ";C;" ATM = ";D;" LB/SQ IN = ";E;" KG/SQ CM"
  680. 9990 [141]5150
  681. 10000 [143]
  682. 10010 B[178]22.42:F[178].8826:G[178]12
  683. 10020 [141]5090
  684. 10030 [153]"";A;"FT WATER = ";C;" MM OF HG = ";D;" IN OF HG = ";E;"IN WATER"
  685. 10040 [141]5150
  686. 10050 [143]
  687. 10060 B[178].02950:F[178].4335:G[178].03048
  688. 10070 [141]5090
  689. 10080 [153]"";A;"FT WATER = ";C;" ATM = ";D;" LB/SQ IN = ";E;" KG/SQ CM"
  690. 10090 [141]5150
  691. 10100 [143]
  692. 10110 B[178]51.71:F[178]2.036:G[178]27.67
  693. 10120 [141]5090
  694. 10130 [153]"";A;" LB/SQ CM = ";C;" MM OF HG = ";D;" IN OF HG = ";E;"IN WATER"
  695. 10140 [141]5150
  696. 10150 [143]
  697. 10160 B[178]2.307:F[178].06805:G[178].07031
  698. 10170 [141]5090
  699. 10180 [153]"";A;" LB/SQ IN = ";C;" FT WATER = ";D;" ATM = ";E;" KG/SQ CM"
  700. 10190 [141]5150
  701. 10200 [143]
  702. 10210 B[178]735.6:F[178]28.96:G[178]393.7
  703. 10220 [141]5090
  704. 10230 [153]"";A;" KG/SQ CM = ";C;" MM OF HG = ";D;" IN OF HG = ";E;"IN WATER"
  705. 10240 [141]5150
  706. 10250 [143]
  707. 10260 B[178]32.81:F[178].9678:G[178]14.22
  708. 10270 [141]5090
  709. 10280 [153]"";A;"KG/SQ CM = ";C;" FT WATER = ";D;" ATM = ";E;" LB/SQ IN"
  710. 10290 [141]5150
  711. 10300 [143]
  712. 10310 B[178]25.40:F[178]13.6:G[178]1.133
  713. 10320 [141]5090
  714. 10330 [153]"";A;"IN OF HG = ";C;" MM OF HG = ";D;" IN WATER = ";E;"FT WATER"
  715. 10340 [141]5150
  716. 10350 [143]
  717. 10360 B[178].03342:F[178].4912:G[178].03453
  718. 10370 [141]5090
  719. 10380 [153]"";A;"IN OF HG = ";C;" ATM = ";D;" LB/SQ IN = ";E;" KG/SQ CM"
  720. 10390 [141]5150
  721. 10400 [143]
  722. 10410 B[178]15.85:F[178].03532:G[178]2.119
  723. 10420 [141]5090
  724. 10430 [153]"";A;" L/SEC = ";C;" GAL/MIN = ";D;" CU FT/SEC = ";E;" CU FT/SEC"
  725. 10440 [141]5150
  726. 10450 [143]
  727. 10460 B[178].06309:F[178].00223:G[178].1337
  728. 10470 [141]5090
  729. 10480 [153]"";A;"GAL/MIN = ";C;" L/SEC = ";D;" CU FT/SEC = ";E;" CU FT/MIN"
  730. 10490 [141]5150
  731. 10500 [143]
  732. 10510 B[178]28.32:F[178]448.8:G[178]60
  733. 10520 [141]5090
  734. 10530 [153]"";A;"CU FT/SEC = ";C;" L/SEC = ";D;" GAL/MIN = ";E;" CU FT/MIN"
  735. 10540 [141]5150
  736. 10550 [143]
  737. 10560 B[178].4719:F[178]7.481:G[178].01667
  738. 10570 [141]5090
  739. 10580 [153]"";A;".........................  ";C;".........................  "
  740. 10590 [141]5150
  741. 10600 [143]
  742. 10610 B[178]3.14:F[178].1111:G[178]34.096
  743. 10620 [141]5090
  744. 10630 [153]"";A;"OZ/SQ YD = ";C;" GM/SQ FT = ";D;" OZ/SQ FT = ";E;" GM/SQ M"
  745. 10640 [141]5150
  746. 10650 [143]
  747. 10660 B[178].318:F[178].03534:G[178]11.11
  748. 10670 [141]5090
  749. 10680 [153]"";A;"GM/SQ FT = ";C;" OZ/SQ YD = ";D;" OZ/SQ FT = ";E;" GM/SQ M"
  750. 10690 [141]5150
  751. 10700 [143]
  752. 10710 B[178].003284:F[178].09294:G[178].02969
  753. 10720 [141]5090
  754. 10730 [153]"";A;"GM/SQ M = ";C;" OZ/SQ FT = ";D;" GM/SQ FT = ";E;" OZ/SQ YD"
  755. 10740 [141]5150
  756. 10750 [143]
  757. 10760 B[178]
  758. 10770 [141]5090
  759. 10780 [153]"";A;".........................  ";C;".........................  "
  760. 10790 [141]5150
  761. 10800 [143]
  762. 10810 B[178]
  763. 10820 [141]5090
  764. 10830 [153]"";A;".........................  ";C;".........................  "
  765. 10840 [141]5150
  766. 10850 [143]
  767. 10860 B[178]
  768. 10870 [141]5090
  769. 10880 [153]"";A;".........................  ";C;".........................  "
  770. 10890 [141]5150
  771. 10900 [143]
  772. 10910 B[178]
  773. 10920 [141]5090
  774. 10930 [153]"";A;".........................  ";C;".........................  "
  775. 10940 [141]5150
  776. 10950 [143]
  777. 10960 B[178]
  778. 10970 [141]5090
  779. 10980 [153]"";A;".........................  ";C;".........................  "
  780. 10990 [141]5150
  781.