home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / f / metrics.lbr / CONVERT.BZS / CONVERT.BAS
Encoding:
BASIC Source File  |  1993-10-26  |  4.3 KB  |  155 lines
  1. 10 REM CONVERT
  2. 30 PRINT TAB(20) "CONVERT"
  3. 40 PRINT TAB(17) "BY RON FORSYTHE"
  4. 50 PRINT
  5. 60 PRINT "I AM A NUMBER CONVERTER.  MY PURPOSE IS TO CONVERT"
  6. 70 PRINT "METRIC MEASURE TO SAE STANDARD AND CENTIGRADE TO"
  7. 75 PRINT "FARENHEIT."
  8. 77 PRINT
  9. 80 PRINT "I WILL ASK YOU QUESTIONS REGARDING TYPES AND UNITS"
  10. 90 PRINT "OF CONVERSION.  WHEN YOU ANSWER A QUESTION, END THE"
  11. 100 PRINT "ANSWER YOU GIVE ME BY PRESSING THE RETURN KEY."
  12. 105 FOR X=1 TO 13
  13. 107 PRINT
  14. 108 NEXT X
  15. 110 INPUT "PRESS RETURN TO CONTINUE";R$
  16. 120 PRINT
  17. 130 PRINT "   LINEAR MEASURE","   WEIGHT"
  18. 135 PRINT "   --------------","   ------"
  19. 140 PRINT
  20. 150 PRINT "A = MILLIMETERS","F = MILLIGRAMS"
  21. 160 PRINT
  22. 170 PRINT "B = CENTIMETERS","G = CENTIGRAMS"
  23. 180 PRINT
  24. 190 PRINT "C = DECIMETERS","H = DECIGRAMS"
  25. 200 PRINT
  26. 210 PRINT "D = METERS    ","I = GRAMS"
  27. 220 PRINT
  28. 230 PRINT "E = KILOMETERS","J = KILOGRAMS"
  29. 240 PRINT
  30. 250 PRINT TAB(10) "M= MORE SELECTIONS"
  31. 260 PRINT
  32. 270 PRINT TAB(10) "Q = QUIT"
  33. 275 FOR X2=1 TO 5
  34. 278 PRINT
  35. 280 NEXT X2
  36. 290 PRINT "PLEASE SELECT THE LETTER THAT CORRESPONDS TO"
  37. 300 PRINT "THE UNIT OF MEASURE YOU WISH TO HAVE CONVERTED."
  38. 310 INPUT;I$
  39. 315 PRINT
  40. 320 IF I$="Q" THEN END
  41. 330 IF I$="M" GOTO 1000
  42. 340 GOSUB 5000
  43. 350 IF I$<"F" THEN I=N1*39.37 ELSE O=N1*.035274
  44. 490 F=I/12
  45. 500 Y=F/3   
  46. 502 M=F/5280
  47. 504 P1=O/16
  48. 510 T=P1/5280
  49. 520 IF I$="A" THEN I$=" MILLIMETERS"
  50. 530 IF I$="B" THEN I$=" CENTIMETERS"
  51. 540 IF I$="C" THEN I$=" DECIMETERS"
  52. 550 IF I$="D" THEN I$=" METERS"
  53. 560 IF I$="E" THEN I$=" KILOMETERS"
  54. 570 IF I$>"E" THEN 700
  55. 580 PRINT
  56. 590 PRINT N2;I$; " CONVERTS TO:"
  57. 595 PRINT
  58. 600 PRINT "INCHES: ";I
  59. 610 PRINT "FEET: ";F
  60. 620 PRINT "YARDS: ";Y
  61. 630 PRINT "MILES: ";M
  62. 640 FOR X4=1 TO 16
  63. 645 PRINT
  64. 646 NEXT X4
  65. 650 PRINT:INPUT "WOULD YOU LIKE ANOTHER CONVERSION (Y/N)";Y$
  66. 660 IF Y$="Y" GOTO 120
  67. 670 END
  68. 700 IF I$="F" THEN I$=" MILLIGRAMS"
  69. 710 IF I$="G" THEN I$=" CENTIGRAMS"
  70. 720 IF I$="H" THEN I$=" DECIGRAMS"
  71. 730 IF I$="I" THEN I$=" GRAMS"
  72. 740 IF I$="J" THEN I$=" KILOGRAMS"
  73. 750 PRINT
  74. 760 PRINT N2;I$;" CONVERTS TO:"
  75. 765 PRINT
  76. 770 PRINT "OUNCES: ";O
  77. 780 PRINT "POUNDS: ";P1
  78. 790 PRINT "SHORT TONS ";T
  79. 792 FOR X5=1 TO 17
  80. 794 PRINT
  81. 796 NEXT X5
  82. 800 GOTO 650
  83. 1000 PRINT
  84. 1005 PRINT TAB(20) "MENU 2"
  85. 1007 PRINT TAB(20) "======"
  86. 1010 PRINT
  87. 1020 PRINT "  LIQUID MEASURE","  TEMPERATURE"
  88. 1025 PRINT "  --------------","  -----------"
  89. 1030 PRINT
  90. 1040 PRINT "A = MILLILITERS","F = CENTIGRADE"
  91. 1050 PRINT
  92. 1060 PRINT "B = CENTILITERS"
  93. 1070 PRINT
  94. 1080 PRINT "C = DECILITERS"
  95. 1090 PRINT
  96. 1100 PRINT "D = LITERS"
  97. 1110 PRINT
  98. 1120 PRINT "E = KILOLITERS"
  99. 1130 FOR X3=1 TO 6
  100. 1133 PRINT
  101. 1135 NEXT X3
  102. 1140 PRINT "PLEASE SELECT THE LETTER THAT CORRESPONDS TO"
  103. 1150 PRINT "THE UNIT OF MEASURE YOU WISH TO HAVE CONVERTED"
  104. 1160 INPUT I$
  105. 1170 PRINT
  106. 1180 IF I$="R" THEN 120
  107. 1190 IF I$="Q" THEN END
  108. 1200 IF I$="F" THEN 2000
  109. 1210 GOSUB 5000
  110. 1220 P2=N1*2.113
  111. 1230 C=P2*2
  112. 1240 Q=P2/2
  113. 1250 G=Q/4
  114. 1260 IF I$="A" THEN I$=" MILLILITERS"
  115. 1270 IF I$="B" THEN I$=" CENTILITERS"
  116. 1280 IF I$="C" THEN I$=" DECILITERS"
  117. 1290 IF I$="D" THEN I$=" LITERS"
  118. 1300 IF I$="E" THEN I$=" KILOLITERS"
  119. 1310 PRINT
  120. 1320 PRINT N2;I$;" CONVERTS TO:"
  121. 1325 PRINT
  122. 1330 PRINT "CUPS: ";C
  123. 1340 PRINT "PINTS: ";P2
  124. 1350 PRINT "QUARTS: ";Q
  125. 1360 PRINT "GALLONS: ";G
  126. 1370 FOR X6=1 TO 17
  127. 1372 PRINT
  128. 1374 NEXT X6
  129. 1380 INPUT "WOULD YOU LIKE ANOTHER CONVERSION (Y/N)";Y$
  130. 1390 IF Y$="Y" THEN 120
  131. 1400 END
  132. 2000 INPUT "NUMBER OF DEGREES CENTIGRADE TO BE CONVERTED";N1
  133. 2010 N2=N1
  134. 2020 N1=N1*1.8+32
  135. 2030 PRINT
  136. 2040 PRINT N2;" DEGREES CENTIGRADE IS EQUAL TO"
  137. 2050 PRINT N1;" DEGREES FARENHEIT"
  138. 2052 FOR X7=1 TO 3
  139. 2054 PRINT
  140. 2056 NEXT X7
  141. 2060 GOTO 1370
  142. 5000 REM GOSUB 5000 MODULE TO CONVERT VALUES
  143. 5002 PRINT
  144. 5005 PRINT "NUMBER OF UNITS TO BE CONVERTED"
  145. 5010 INPUT "(-99.99 TO QUIT)";N1
  146. 5020 N2=N1
  147. 5030 IF N1=-99.99 THEN 650
  148. 5040 IF I$="A" THEN N1=N1*.001 ELSE IF I$="F" THEN N1=N1*.001
  149. 5050 IF I$="B" THEN N1=N1*.01 ELSE IF I$="G" THEN N1=N1*.01
  150. 5060 IF I$="C" THEN N1=N1*.1 ELSE IF I$="H" THEN N1=N1*.1
  151. 5070 IF I$="E" THEN N1=N1*1000 ELSE IF I$="J" THEN N1=N1*1000
  152. 5080 RETURN
  153. I$="C" THEN N1=N1*.1 ELSE IF I$="H" THEN N1=N1*.1
  154. 5070 IF I$="E" THEN N1=N1*1000 ELSE IF I$="J" THEN
  155. 2%,╤)4σ1« ╤Q0σ⌐&¡;4δ÷sZ!■.2ù@«&wf+é├Jçû,à═&.⌡.═k1£0⌠▌-ê'H╖û┬G⌠╢4*╒3¡«3═hσ░^}┤3¡║3«4e╚1y!«-═2│