home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / AGETST.ZIP / AGETST.BAS
Encoding:
BASIC Source File  |  1988-03-10  |  4.8 KB  |  95 lines
  1. 1000 REM ** based on a quiz originally appearing in 'CHANGING TIMES' 8/82 == prg by Jim Branberg, IBM PC/xt version rev 11/6/84
  2. 1005 Z = 0: COLOR 14,1,1:KEY OFF:WIDTH 40:CLS
  3. 1010 PRINT:PRINT "       WHAT'S YOUR MEDICAL AGE ?";:PRINT
  4. 1015 PRINT:PRINT:INPUT "Your present age";A$:A = VAL(A$)
  5. 1020 PRINT: PRINT "DISPOSITION":PRINT" 1. Easy going":PRINT" 2. Average":PRINT" 3. Tense often"
  6. 1025 PRINT"   (1, 2, or 3)";:INPUT B
  7. 1030 IF B=1 THEN Z=Z-3
  8. 1035 IF B=3 THEN Z=Z+6
  9. 1040 PRINT: PRINT "EXERCISE":PRINT" 1. Active employment, or regular":PRINT"    exercise":PRINT" 2. Moderate":PRINT" 3. None"
  10. 1045 PRINT"   (1, 2, or 3)";:INPUT B
  11. 1050 IF B=1 THEN Z=Z-12
  12. 1055 IF B=3 THEN Z=Z+12
  13. 1060 PRINT: PRINT "HOME ENVIROMENT":PRINT" 1. Pleasant":PRINT" 2. Average":PRINT" 3. Unusual tension"
  14. 1065 PRINT"   (1, 2, or 3)";:INPUT B
  15. 1070 IF B=1 THEN Z=Z-6
  16. 1075 IF B=3 THEN Z=Z+9
  17. 1080 PRINT: PRINT "JOB SATISFACTION":PRINT" 1. Above average":PRINT" 2. Average":PRINT" 3. Discontented"
  18. 1085 PRINT"   (1, 2, or 3)";:INPUT B
  19. 1090 IF B=1 THEN Z=Z-3
  20. 1095 IF B=3 THEN Z=Z+6
  21. 1100 PRINT: PRINT "AIR POLLUTION":PRINT" 1. No exposure":PRINT" 2. Moderate contact":PRINT" 3. Substantial exposure"
  22. 1105 PRINT"   (1, 2, or 3)";:INPUT B
  23. 1110 IF B=2 THEN Z=Z+3
  24. 1115 IF B=3 THEN Z=Z+9
  25. 1120 PRINT: PRINT "SMOKING HABITS":PRINT" 1. Non smoker":PRINT" 2. Occasional":PRINT" 3. 1 pack a day":PRINT" 4. 2 packs or more per day"
  26. 1125 PRINT"   (1, 2, 3, or 4)";:INPUT B
  27. 1130 IF B=1 THEN Z=Z-6
  28. 1135 IF B=3 THEN Z=Z+12
  29. 1140 IF B=4 THEN Z=Z+24
  30. 1145 PRINT: PRINT "DRINKING HABITS":PRINT" 1. Seldom":PRINT" 2. Moderate":PRINT" 3. Heavy"
  31. 1150 PRINT"   (1, 2, or 3)";:INPUT B
  32. 1155 IF B=1 THEN Z=Z-6
  33. 1160 IF B=2 THEN Z=Z+6
  34. 1165 IF B=3 THEN Z=Z+24
  35. 1170 PRINT: PRINT "EATING HABITS":PRINT" 1. Low fat diet":PRINT" 2. High protein intake":PRINT" 3. High cholesterol intake"
  36. 1175 PRINT"   (1, 2, or 3)";:INPUT B
  37. 1180 IF B=1 THEN Z=Z-6
  38. 1185 IF B=2 THEN Z=Z+6
  39. 1190 IF B=3 THEN Z=Z+6
  40. 1195 PRINT: PRINT "CAFFEINE INTAKE":PRINT" 1. Low":PRINT" 2. Moderate (2 cup average)":PRINT" 3. Heavy (4 cups or more)"
  41. 1200 PRINT"   (1, 2, or 3)";:INPUT B
  42. 1205 IF B=2 THEN Z=Z-2
  43. 1210 IF B=3 THEN Z=Z+6
  44. 1215 PRINT: PRINT "DRIVING (PER YEAR)":PRINT" 1. 20,000 miles or less with":PRINT"    seatbelts worn":PRINT" 2. 20,000 miles or less without":PRINT"    seatbelts":PRINT" 3. 20,000+ miles"
  45. 1220 PRINT"   (1, 2, or 3)";:INPUT B
  46. 1225 IF B=1 THEN Z=Z-3
  47. 1230 IF B=3 THEN Z=Z+12
  48. 1235 PRINT: PRINT "DRUG ABUSE":PRINT" 1. None":PRINT" 2. Moderate":PRINT" 3. Heavy":PRINT" 4. Narcotics"
  49. 1240 PRINT"   (1, 2, 3, or 4)";:INPUT B
  50. 1245 IF B=2 THEN Z=Z+12
  51. 1250 IF B=3 THEN Z=Z+24
  52. 1255 IF B=4 THEN Z=Z+36
  53. 1260 PRINT: PRINT "FAMILY & SOCIAL HISTORY INVENTORY":PRINT:PRINT"FATHER":PRINT" 1. Alive & over 68 yrs. old":PRINT" 2. Under 68 & alive, or dead at 68+":PRINT" 3. Dead of medical causes under 68"
  54. 1265 PRINT"   (1, 2, or 3)";:INPUT B
  55. 1270 IF B=1 THEN Z=Z-3
  56. 1275 IF B=3 THEN Z=Z+3
  57. 1280 PRINT:PRINT"MOTHER":PRINT" 1. Alive & over 73 years old":PRINT" 2. Alive & under 68, or dead at 68+":PRINT" 3. Dead of medical causes under 73"
  58. 1285 PRINT"   (1, 2, or 3)";:INPUT B
  59. 1290 IF B=1 THEN Z=Z-3
  60. 1295 IF B=3 THEN Z=Z+3
  61. 1300 PRINT:PRINT"MARITAL STATUS":PRINT" 1. Single":PRINT" 2. Married"
  62. 1305 PRINT"   (1 or 2)";:INPUT B
  63. 1310 IF B=1 THEN Z=Z+3:IF A>39 THEN Z=Z+3
  64. 1315 PRINT:PRINT"RESIDENCE":PRINT" 1. In large city":PRINT" 2. In suburban area":PRINT" 3. Farm or small town"
  65. 1320 PRINT"   (1, 2, or 3)";:INPUT B
  66. 1325 IF B=1 THEN Z=Z+6
  67. 1330 IF B=3 THEN Z=Z-3
  68. 1335 PRINT:PRINT"PHYSICAL INVENTORY":PRINT:PRINT"WEIGHT (Think of your 'ideal' body":PRINT"        weight at age 20.)":PRINT" 1. Same now, or gain of less than":PRINT"    10 lbs.":PRINT" 2. 20 lbs. over":PRINT" 3. 40 or more lbs."
  69. 1340 PRINT"   (1, 2, or 3)";:INPUT B
  70. 1345 IF B=1 THEN Z=Z-3
  71. 1350 IF B=2 THEN Z=Z+6
  72. 1355 IF B=3 THEN Z=Z+15
  73. 1360 PRINT:PRINT"BLOOD PRESSURE":PRINT" 1.";:IF A>39 THEN PRINT" Pressure above 140/90":GOTO 1362
  74. 1361 PRINT" Pressure above 130/80"
  75. 1362 PRINT" 2. No"
  76. 1365 PRINT"   (1 or 2)";:INPUT B
  77. 1375 IF B=1 THEN Z=Z+12
  78. 1380 PRINT:PRINT"CHOLESTEROL":PRINT" 1.";:IF A>39 THEN PRINT" Level above 250":GOTO 1382
  79. 1381 PRINT" Level above 220"
  80. 1382 PRINT" 2. No"
  81. 1385 PRINT"   (1 or 2)";:INPUT B
  82. 1390 IF B=1 THEN Z=Z+6
  83. 1400 PRINT:PRINT"HEART":PRINT" 1. Heart murmur":PRINT" 2. Murmur with history of rhuematic":PRINT"    fever":PRINT" 3. Neither"
  84. 1405 PRINT"   (1, 2, or 3)";:INPUT B
  85. 1410 IF B=1 THEN Z=Z+24
  86. 1415 IF B=2 THEN Z=Z+48
  87. 1420 PRINT:PRINT"YEARLY MEDICAL CHECK-UP":PRINT" 1. Complete":PRINT" 2. Partial":PRINT" 3. None"
  88. 1425 PRINT"   (1, 2, or 3)";:INPUT B
  89. 1430 IF B=1 THEN Z=Z-12
  90. 1435 IF B=2 THEN Z=Z-6
  91. 1440 Q = (Z/12) + A:PRINT:PRINT:PRINT "YOUR MEDICAL AGE IS: ";Q: PRINT:PRINT:PRINT
  92. 1445 PRINT"------- HIT ANY KEY TO CONTINUE --------"
  93. 1450 A$ =INKEY$: IF A$= "" THEN GOTO 1450
  94. 1455 SYSTEM:'CHAIN "SAMPLES",1000
  95.