home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / spiele / cvrisk.bas < prev    next >
Encoding:
BASIC Source File  |  1987-06-26  |  6.8 KB  |  192 lines
  1. 10 PRINT "CARDIOVASCULAR RISK CALCULATION"
  2. 20 PRINT "  adapted from the Michigan Heart Association"
  3. 30 PRINT "      by J.S. Zesk, M.D."
  4. 40 PRINT
  5. 50 PRINT
  6. 51 C$="YOUR CARDIOVASCULAR RISK IS <"
  7. 52 D$="> WHICH IS BELOW AVERAGE"
  8. 53 E$="> WHICH IS GENERALLY AVERAGE"
  9. 54 F$="> WHICH IS MODERATE"
  10. 55 G$="> WHICH IS AT A DANGEROUS LEVEL"
  11. 56 H$="> WHICH INDICATES AN URGENT DANGER"
  12. 60 PRINT "ENTER AGE RATING"
  13. 70 PRINT
  14. 80 PRINT "Age 10 - 20  *  Enter <1>"
  15. 90 PRINT "Age 21 - 30  *  Enter <2>"
  16. 91 PRINT "Age 31 - 40  *  Enter <3>"
  17. 92 PRINT "Age 41 - 50  *  Enter <4>"
  18. 93 PRINT "Age 51 - 60  *  Enter <6>"
  19. 94 PRINT "Age 61 and over  *  Enter <8>"
  20. 100 INPUT A
  21. 102 PRINT
  22. 104 PRINT
  23. 110 PRINT "ENTER HEREDITY RATING"
  24. 120 PRINT
  25. 130 PRINT "No known history of heart disease * Enter <1>"
  26. 140 PRINT "1 relative with cardiovascular disease over 60 * Enter <2>"
  27. 150 PRINT "2 relatives with cardiovascular disease over 60 * Enter <3>"
  28. 160 PRINT "1 relative with cardiovascular disease under 60 * Enter <4>"
  29. 170 PRINT "2 relatives with cardiovascular disease under 60 * Enter <6>"
  30. 180 PRINT "3 relatives with cardiovascular disease under 60 * Enter <7>"
  31. 190 INPUT B
  32. 192 PRINT
  33. 194 PRINT
  34. 200 PRINT "ENTER WEIGHT RATING"
  35. 210 PRINT
  36. 220 PRINT "More than 5 lbs. below standard weight * Enter <0>"
  37. 230 PRINT "-5 to +5 lbs. standard weight * Enter <1>"
  38. 240 PRINT "6 to 20 lbs. overweight * Enter <2>"
  39. 250 PRINT "21 to 35 lbs. overweight * Enter <3>"
  40. 260 PRINT "36 to 50 lbs. overweight * Enter <5>"
  41. 270 PRINT "51 or more lbs. overweight * Enter <7>"
  42. 280 INPUT C
  43. 282 PRINT
  44. 284 PRINT
  45. 290 PRINT "ENTER TOBACCO SMOKING RATING"
  46. 300 PRINT
  47. 310 PRINT "Non-user * Enter <0>"
  48. 320 PRINT "Cigar and/or pipe * Enter <1>"
  49. 330 PRINT "10 cigarettes or less a day * Enter <2>"
  50. 340 PRINT "20 cigarettes a day * Enter <4>"
  51. 350 PRINT "30 cigarettes a day * Enter <6>"
  52. 360 PRINT "40 cigarettes or more a day * Enter <10>"
  53. 370 INPUT D
  54. 372 PRINT
  55. 374 PRINT
  56. 380 PRINT "ENTER EXERCISE RATING"
  57. 390 PRINT
  58. 400 PRINT "Intensive occupational and recreational exertion * Enter <1>"
  59. 410 PRINT "Moderate occupational and recreational exertion * Enter <2>"
  60. 420 PRINT "Sedentary work and intense recreational exertion * Enter <3>"
  61. 430 PRINT "Sedentary work and moderate recreational exertion * Enter <5>"
  62. 440 PRINT "Sedentary work and light recreational exertion * Enter <6>"
  63. 450 PRINT "Complete lack of all exercise * Enter <8>"
  64. 460 INPUT E
  65. 462 PRINT
  66. 464 PRINT
  67. 470 PRINT "ENTER CHOLESTEROL RATING"
  68. 480 PRINT
  69. 490 PRINT "Cholesterol below 180 mg. * Enter <1>"
  70. 500 PRINT "Cholesterol 181-205 mg. * Enter <2>"
  71. 510 PRINT "Cholesterol 206-230 mg. * Enter <3>"
  72. 520 PRINT "Cholesterol 231-255 mg. * Enter <4>"
  73. 530 PRINT "Cholesterol 256-280 mg. * Enter <5>"
  74. 540 PRINT "Cholesterol 281 or more mg. * Enter <7>"
  75. 550 INPUT F
  76. 552 PRINT
  77. 554 PRINT
  78. 560 PRINT "ENTER BLOOD PRESSURE RATING"
  79. 570 PRINT
  80. 580 PRINT "100 upper reading * Enter <1>"
  81. 590 PRINT "120 upper reading * Enter <2>"
  82. 600 PRINT "140 upper reading * Enter <3>"
  83. 610 PRINT "160 upper reading * Enter <4>"
  84. 620 PRINT "180 upper reading * Enter <6>"
  85. 630 PRINT "200 or over upper reading * Enter <8>"
  86. 640 INPUT G
  87. 642 PRINT
  88. 644 PRINT
  89. 650 PRINT "ENTER SEX RATING"
  90. 660 PRINT
  91. 670 PRINT "Female under 40 * Enter <1>"
  92. 680 PRINT "Female 40-50 * Enter <2>"
  93. 690 PRINT "Female over 50 * Enter <3>"
  94. 700 PRINT "Male * Enter <5>"
  95. 710 PRINT "Stocky male * Enter <6>"
  96. 720 PRINT "Bald stocky male * Enter <7>"
  97. 730 INPUT H
  98. 740 PRINT
  99. 750 PRINT
  100. 760 LET X=A+B+C+D+E+F+G+H
  101. 770 IF X<18 GOTO 900
  102. 780 IF X<25 GOTO 910
  103. 790 IF X<32 GOTO 920
  104. 800 IF X<41 GOTO 930
  105. 810 IF X<63 GOTO 940
  106. 812 PRINT "PLEASE RECHECK DATA ENTRIES!"
  107. 815 END
  108. 900 PRINT C$;X;D$
  109. 902 GOTO 1000
  110. 910 PRINT C$;X;E$
  111. 912 GOTO 1000
  112. 920 PRINT C$;X;F$
  113. 922 GOTO 1000
  114. 930 PRINT C$;X;G$
  115. 932 GOTO 1000
  116. 940 PRINT C$;X;H$
  117. 942 GOTO 1000
  118. 1000 PRINT "DO YOU WISH A TYPED REPORT ?"
  119. 1010 PRINT "ENTER <YES> OR <NO>"
  120. 1020 INPUT A$
  121. 1030 IF A$="YES" THEN 1100
  122. 1040 IF A$="NO" THEN END
  123. 1100 PRINT "PLEASE ENTER <NAME>"
  124. 1110 INPUT B$
  125. 1115 PRINT "PLEASE BE SURE PRINTER IS ON AND LOADED WITH PAPER"
  126. 1120 LPRINT "      ";B$
  127. 1125 LPRINT
  128. 1130 IF X<18 GOTO 1200
  129. 1140 IF X<25 GOTO 1300
  130. 1150 IF X<32 GOTO 1400
  131. 1160 IF X<41 GOTO 1500
  132. 1170 IF X<63 GOTO 1600
  133. 1200 LPRINT "      ";C$;X;D$
  134. 1210 GOTO 1700
  135. 1300 LPRINT "      ";C$;X;E$
  136. 1310 GOTO 1700
  137. 1400 LPRINT "      ";C$;X;F$
  138. 1410 GOTO 1700
  139. 1500 LPRINT "      ";C$;X;G$
  140. 1510 GOTO 1700
  141. 1600 LPRINT "      ";C$;X;H$
  142. 1610 GOTO 1700
  143. 1700 LPRINT
  144. 1705 LPRINT "      THE RISK FACTORS OF AGE, HEREDITY, AND SEX CANNOT BE ALTERED
  145. 1708 LPRINT
  146. 1710 LPRINT "      THE RISK FACTORS OF OBESITY, SMOKING, LACK OF EXERCISE, ELEVATED"
  147. 1711 LPRINT "      CHOLESTEROL, AND HIGH BLOOD PRESSURE CAN BE REDUCED!"
  148. 1712 LPRINT
  149. 1720 LET Y=C+D+E+F+G-3
  150. 1730 LPRINT "                IF YOU WERE ABLE TO:"
  151. 1731 LPRINT
  152. 1732 LPRINT"                 1. MAINTAIN IDEAL BODY WEIGHT"
  153. 1733 LPRINT"                 2. NOT SMOKE"
  154. 1734 LPRINT"                 3. EXERCISE REGULARLY"
  155. 1735 LPRINT"                 4. LOWER CHOLESTEROL THROUGH DIET"
  156. 1736 LPRINT"                 5. REDUCE BLOOD PRESSURE"
  157. 1737 LPRINT
  158. 1780 LPRINT"      YOU COULD LOWER YOUR RISK RATING BY AS MUCH AS <";Y;"> POINTS!"
  159. 1781 LPRINT
  160. 1790 LET Z=X-Y
  161. 1800 IF Z<18 GOTO 1900
  162. 1810 IF Z<25 GOTO 1950
  163. 1900 LPRINT"      THIS WOULD LOWER YOUR RISK TO <";Z;D$
  164. 1910 GOTO 2000
  165. 1950 LPRINT "      THIS WOULD LOWER YOUR RISK TO <";Z;E$
  166. 1960 GOTO 2000
  167. 2000 LPRINT
  168. 2010 LPRINT "             RISK FACTOR     YOUR SCORE     RANGE"
  169. 2020 LPRINT
  170. 2030 LPRINT "                AGE             <";A;">       <1-8>"
  171. 2040 LPRINT "              HEREDITY          <";B;">       <1-7>"
  172. 2050 LPRINT "               WEIGHT           <";C;">       <0-7>"
  173. 2060 LPRINT "              SMOKING           <";D;">       <0-10>"
  174. 2070 LPRINT "              EXERCISE          <";E;">       <1-8>"
  175. 2080 LPRINT "             CHOLESTEROL        <";F;">       <1-7>"
  176. 2090 LPRINT "           BLOOD PRESSURE       <";G;">       <1-8>"
  177. 2100 LPRINT "                SEX             <";H;">       <1-7>"
  178. 2110 LPRINT
  179. 2120 LPRINT
  180. 2200 LPRINT "                CARDIOVASCULAR RISK RANGES"
  181. 2210 LPRINT
  182. 2220 LPRINT "                <12-17> RISK BELOW AVERAGE"
  183. 2230 LPRINT "                <18-24> RISK GENERALLY AVERAGE"
  184. 2240 LPRINT "                <25-31> RISK MODERATE"
  185. 2250 LPRINT "                <32-40> RISK AT A DANGEROUS LEVEL"
  186. 2260 LPRINT "                <41-62> RISK INDICATES URGENT DANGER"
  187. 2300 PRINT "DO YOU WISH ANOTHER COPY OF THIS REPORT?"
  188. 2310 PRINT "ENTER <YES> OR <NO>"
  189. 2320 INPUT Q$
  190. 2330 IF Q$="YES" THEN 1120
  191. 2340 IF Q$="NO" THEN END
  192.