home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / f / metrics.lbr / METRIC.BZS / METRIC.BAS
Encoding:
BASIC Source File  |  1993-10-26  |  6.3 KB  |  182 lines
  1. 5 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  2. 10 PRINT "        *** GREAT CONVERSION SYSTEM ***"
  3. 20 PRINT:PRINT "U.S. TO METRIC AND METRIC TO U.S. CONVERSIONS":PRINT:PRINT
  4. 30 PRINT "    COPYRIGHT 1982 BY BURT L. FIELDING"
  5. 35 PRINT "  325 POPPINGA WAY, SANTA MARIA, CA 93455":PRINT:PRINT
  6. 40 PRINT "  Do You Want CONVERSION For............."
  7. 50 PRINT:PRINT
  8. 60 PRINT "         (1) METRIC To U.S."
  9. 70 PRINT "         (2) U.S. To METRIC"
  10. 80 PRINT
  11. 90 INPUT "         TYPE 1 OR 2";N
  12. 100 PRINT
  13. 110 ON N GOSUB 1000,1200
  14. 120 PRINT
  15. 130 GOTO 40
  16. 990 REM ***** SUBROUTINES FOR METRIC TO U.S.
  17. 1000 PRINT:PRINT:PRINT "METRIC TO U.S. CONVERSIONS AVAILABLE"
  18. 1010 PRINT
  19. 1020 PRINT "CHOOSE CONVERSION DESIRED FROM THIS LIST:"
  20. 1030 PRINT
  21. 1040 PRINT "   (1) ";"CENTIMETERS TO INCHES"
  22. 1050 PRINT "   (2) ";"METERS TO FEET"
  23. 1060 PRINT "   (3) ";"KILOMETERS TO MILES"
  24. 1070 PRINT "   (4) ";"KILOGRAMS TO POUNDS"
  25. 1080 PRINT "   (5) ";"GRAMS TO OUNCES"
  26. 1090 PRINT "   (6) ";"LITERS TO QUARTS"
  27. 1100 PRINT "   (7) ";"SQUARE METERS TO SQUARE FEET"
  28. 1110 PRINT "   (8) ";"SQUARE METERS TO ACRES"
  29. 1120 PRINT "   (9) ";"MILLILITERS TO FLUID OUNCES"
  30. 1130 PRINT "  (10) ";"DEGREES CELSIUS TO DEGREES FAHRENHEIT"
  31. 1140 PRINT "  (11) ";"LITERS TO GALLONS"
  32. 1145 PRINT "  (12) ";"KILOJOULES TO KILOCALORIES"
  33. 1150 PRINT:PRINT:PRINT
  34. 1160 INPUT " ENTER The NUMBER Of THE Conversion Desired";M
  35. 1170 PRINT:PRINT:PRINT:PRINT
  36. 1180 ON M GOSUB 2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100
  37. 1190 RETURN
  38. 1195 PRINT:PRINT:PRINT:PRINT
  39. 1200 PRINT:PRINT:PRINT:PRINT "U.S. TO METRIC CONVERSIONS AVAILABLE"
  40. 1210 PRINT
  41. 1220 PRINT "CHOOSE CONVERSION DESIRED FROM THIS LIST:"
  42. 1230 PRINT
  43. 1240 PRINT "   (1) ";"INCHES TO CENTIMETERS"
  44. 1250 PRINT "   (2) ";"FEET TO METERS"
  45. 1260 PRINT "   (3) ";"MILES TO KILOMETERS"
  46. 1270 PRINT "   (4) ";"POUNDS TO KILOGRAMS"
  47. 1280 PRINT "   (5) ";"OUNCES TO GRAMS"
  48. 1290 PRINT "   (6) ";"QUARTS TO LITERS"
  49. 1300 PRINT "   (7) ";"YARDS TO METERS"
  50. 1310 PRINT "   (8) ";"FLUID OUNCES TO MILLILITERS"
  51. 1320 PRINT "   (9) ";"ACRES TO SQUARE METERS"
  52. 1330 PRINT "  (10) ";"CUBIC INCHES TO CUBIC CENTIMETERS"
  53. 1340 PRINT "  (11) ";"DEGREES FAHRENHEIT TO DEGREES CELSIUS"
  54. 1350 PRINT "  (12) ";"GALLONS TO LITERS"
  55. 1360 PRINT:PRINT
  56. 1370 INPUT "ENTER The NUMBER Of THE Conversion You Desire";S
  57. 1380 PRINT:PRINT:PRINT:PRINT
  58. 1390 ON S GOSUB 4000,4100,4200,4300,4400,4500,4600,4700,4800,4900,5000,5100
  59. 1400 RETURN
  60. 2000 PRINT "        CENTIMETERS TO INCHES":PRINT
  61. 2010 INPUT "        NUMBER OF CENTIMETERS";C:PRINT
  62. 2015 PRINT
  63. 2020 PRINT C;"CENTIMETERS =";C*.393701;"INCHES"
  64. 2030 PRINT:RETURN
  65. 2100 PRINT "METERS TO FEET":PRINT
  66. 2110 INPUT "NUMBER OF METERS";M
  67. 2115 PRINT
  68. 2120 PRINT M;"METERS =";M*3.2808;"FEET"
  69. 2130 PRINT:RETURN
  70. 2200 PRINT "KILOMETERS TO MILES":PRINT
  71. 2210 INPUT "NUMBER OF KILOMETERS";K
  72. 2215 PRINT
  73. 2220 PRINT K;"KILOMETERS =";K*.6214;"MILES"
  74. 2230 PRINT:RETURN
  75. 2300 PRINT "KILOGRAMS TO POUNDS":PRINT
  76. 2310 INPUT "NUMBER OF KILOGRAMS";K
  77. 2315 PRINT
  78. 2320 PRINT K;"KILOGRAMS =";K*2.2046;"POUNDS"
  79. 2330 PRINT:RETURN
  80. 2400 PRINT "GRAMS TO OUNCES":PRINT
  81. 2410 INPUT "NUMBER OF GRAMS";G
  82. 2415 PRINT
  83. 2420 PRINT G;"GRAMS =";G*.03527;"OUNCES"
  84. 2430 PRINT:RETURN
  85. 2500 PRINT "LITERS TO QUARTS":PRINT
  86. 2510 INPUT "NUMBER OF LITERS";L
  87. 2515 PRINT
  88. 2520 PRINT L;"LITERS =";L*1.0567;"QUARTS"
  89. 2530 PRINT:RETURN
  90. 2600 PRINT "SQUARE METERS TO SQUARE FEET":PRINT
  91. 2610 INPUT "NUMBER OF SQUARE METERS";S
  92. 2615 PRINT
  93. 2620 PRINT S;"SQUARE METERS =";S*10.7643;"SQUARE FEET"
  94. 2630 PRINT:RETURN
  95. 2700 PRINT "SQUARE METERS TO ACRES":PRINT
  96. 2710 INPUT "NUMBER OF SQUARE METERS";S
  97. 2715 PRINT
  98. 2720 PRINT S;"SQUARE METERS =";S*.000247;"ACRES"
  99. 2730 PRINT:RETURN
  100. 2800 PRINT "MILLILITERS TO FLUID OUNCES":PRINT
  101. 2810 INPUT "NUMBER OF MILLILITERS";M
  102. 2815 PRINT
  103. 2820 PRINT M;"MILLILITERS =";M*.0338;"FLUID OUNCES"
  104. 2830 PRINT:RETURN
  105. 2900 PRINT "DEGREES CELSIUS TO DEGREES FAHRENHEIT":PRINT
  106. 2910 INPUT "NUMBERS OF DEGREES CELSIUS";D
  107. 2915 PRINT
  108. 2920 PRINT D;"DEGREES CELSIUS ="9*D/5+32;"DEGREES FAHRENHEIT"
  109. 2930 PRINT:RETURN
  110. 3000 PRINT "LITERS TO GALLONS":PRINT
  111. 3010 INPUT "NUMBER OF LITERS";L
  112. 3015 PRINT
  113. 3020 PRINT L;"LITERS =";L*.26417;"GALLONS"
  114. 3030 PRINT:RETURN
  115. 3100 PRINT "KILOJOULES TO KILOCALORIES":PRINT
  116. 3110 INPUT "NUMBER OF KILOJOULES";J
  117. 3115 PRINT
  118. 3120 PRINT J;"KILOJOULES =";J*.2389;"KILOCALORIES"
  119. 3130 PRINT:RETURN
  120. 4000 PRINT "INCHES TO CENTIMETERS":PRINT
  121. 4010 INPUT "NUMBER OF INCHES";I
  122. 4015 PRINT
  123. 4020 PRINT I;"INCHES =";I*2.54;"CENTIMETERS"
  124. 4030 PRINT:RETURN
  125. 4100 PRINT "FEET TO METERS":PRINT
  126. 4110 INPUT "NUMBER OF FEET";F
  127. 4115 PRINT
  128. 4120 PRINT F;"FEET =";F*.3048;"METERS"
  129. 4130 PRINT:RETURN
  130. 4200 PRINT "MILES TO KILOMETERS":PRINT
  131. 4210 INPUT "NUMBER OF MILES";M
  132. 4215 PRINT
  133. 4220 PRINT M;"MILES =";M*1.6093;"KILOMETERS"
  134. 4230 PRINT:RETURN
  135. 4300 PRINT "POUNDS TO KILOGRAMS":PRINT
  136. 4310 INPUT "NUMBER OF POUNDS";P
  137. 4315 PRINT
  138. 4320 PRINT P;"POUNDS =";P*.4536;"KILOGRAMS"
  139. 4330 PRINT:RETURN
  140. 4400 PRINT "OUNCES TO GRAMS":PRINT
  141. 4410 INPUT "NUMBER OF OUNCES";O
  142. 4415 PRINT
  143. 4420 PRINT O;"OUNCES =";O*28.35;"GRAMS"
  144. 4430 PRINT:RETURN
  145. 4500 PRINT "QUARTS TO LITERS":PRINT
  146. 4510 INPUT "NUMBER OF QUARTS";Q
  147. 4515 PRINT
  148. 4520 PRINT Q;"QUARTS =";Q*.94635;"LITERS"
  149. 4530 PRINT:RETURN
  150. 4600 PRINT "YARDS TO METERS":PRINT
  151. 4610 INPUT "NUMBER OF YARDS";Y
  152. 4615 PRINT
  153. 4620 PRINT Y;"YARDS =";Y*.9144;"METERS"
  154. 4630 PRINT:RETURN
  155. 4700 PRINT "FLUID OUNCES TO MILLILITERS":PRINT
  156. 4710 INPUT "NUMBER OF FLUID OUNCES";O
  157. 4715 PRINT
  158. 4720 PRINT O;"FLUID OUNCES =";O*29.574;"MILLILITERS"
  159. 4730 PRINT:RETURN
  160. 4800 PRINT "ACRES TO SQUARE METERS":PRINT
  161. 4810 INPUT "NUMBER OF ACRES";A
  162. 4815 PRINT
  163. 4820 PRINT A;"ACRES =";A*4047;"SQUARE METERS"
  164. 4830 PRINT:RETURN
  165. 4900 PRINT "CUBIC INCHES TO CUBIC CENTIMETERS":PRINT
  166. 4910 INPUT "NUMBER OF CUBIC INCHES";I
  167. 4915 PRINT
  168. 4920 PRINTI;"CUBIC INCHES =";I*16.387;"CUBIC CENTIMETERS"
  169. 4930 PRINT:RETURN
  170. 5000 PRINT "DEGREES FAHRENHEIT TO DEGREES CELSIUS":PRINT
  171. 5010 INPUT "NUMBER OF DEGREES FAHRENHEIT";D
  172. 5015 PRINT
  173. 5020 PRINT D;"DEGREES FAHRENHEIT =";5/9*(D-32);"DEGREES CELSIUS"
  174. 5030 PRINT:RETURN
  175. 5100 PRINT "GALLONS TO LITERS":PRINT
  176. 5110 INPUT "NUMBER OF GALLONS";G
  177. 5115 PRINT
  178. 5120 PRINT G;"GALLONS =";G*3.7854;"LITERS"
  179. 5130 PRINT:RETURN
  180. 5140 END
  181. :PRINT
  182. 5110 INPU*~T<!<═.5ê2x-δK37;+!    0σ╣7═m/ s/═^;d;═1/ ═&═**.;╔
  183. ⌠▌"g═+;'ÿ.w.2ù:«á&║╠9¬╥9*╒3═█9═Ä,*╒3&v,σ╘44┬:╖┬4'v4¥!