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
1005 Z = 0: KEY OFF:WIDTH 40:CLS
1010 PRINT:PRINT "       WHAT'S YOUR MEDICAL AGE ?";:PRINT
1015 PRINT:PRINT:INPUT "Your present age";A$:A = VAL(A$)
1020 PRINT: PRINT "DISPOSITION":PRINT" 1. Easy going":PRINT" 2. Average":PRINT" 3. Tense often"
1025 PRINT"   (1, 2, or 3)";:INPUT B
1030 IF B=1 THEN Z=Z-3
1035 IF B=3 THEN Z=Z+6
1040 PRINT: PRINT "EXERCISE":PRINT" 1. Active employment, or regular":PRINT"    exercise":PRINT" 2. Moderate":PRINT" 3. None"
1045 PRINT"   (1, 2, or 3)";:INPUT B
1050 IF B=1 THEN Z=Z-12
1055 IF B=3 THEN Z=Z+12
1060 PRINT: PRINT "HOME ENVIRONMENT":PRINT" 1. Pleasant":PRINT" 2. Average":PRINT" 3. Unusual tension"
1065 PRINT"   (1, 2, or 3)";:INPUT B
1070 IF B=1 THEN Z=Z-6
1075 IF B=3 THEN Z=Z+9
1080 PRINT: PRINT "JOB SATISFACTION":PRINT" 1. Above average":PRINT" 2. Average":PRINT" 3. Discontented"
1085 PRINT"   (1, 2, or 3)";:INPUT B
1090 IF B=1 THEN Z=Z-3
1095 IF B=3 THEN Z=Z+6
1100 PRINT: PRINT "AIR POLLUTION":PRINT" 1. No exposure":PRINT" 2. Moderate contact":PRINT" 3. Substantial exposure"
1105 PRINT"   (1, 2, or 3)";:INPUT B
1110 IF B=2 THEN Z=Z+3
1115 IF B=3 THEN Z=Z+9
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"
1125 PRINT"   (1, 2, 3, or 4)";:INPUT B
1130 IF B=1 THEN Z=Z-6
1135 IF B=3 THEN Z=Z+12
1140 IF B=4 THEN Z=Z+24
1145 PRINT: PRINT "DRINKING HABITS":PRINT" 1. Seldom":PRINT" 2. Moderate":PRINT" 3. Heavy"
1150 PRINT"   (1, 2, or 3)";:INPUT B
1155 IF B=1 THEN Z=Z-6
1160 IF B=2 THEN Z=Z+6
1165 IF B=3 THEN Z=Z+24
1170 PRINT: PRINT "EATING HABITS":PRINT" 1. Low fat diet":PRINT" 2. High protein intake":PRINT" 3. High cholesterol intake"
1175 PRINT"   (1, 2, or 3)";:INPUT B
1180 IF B=1 THEN Z=Z-6
1185 IF B=2 THEN Z=Z+6
1190 IF B=3 THEN Z=Z+6
1195 PRINT: PRINT "CAFFEINE INTAKE":PRINT" 1. Low":PRINT" 2. Moderate (2 cup average)":PRINT" 3. Heavy (4 cups or more)"
1200 PRINT"   (1, 2, or 3)";:INPUT B
1205 IF B=2 THEN Z=Z-2
1210 IF B=3 THEN Z=Z+6
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"
1220 PRINT"   (1, 2, or 3)";:INPUT B
1225 IF B=1 THEN Z=Z-3
1230 IF B=3 THEN Z=Z+12
1235 PRINT: PRINT "DRUG ABUSE":PRINT" 1. None":PRINT" 2. Moderate":PRINT" 3. Heavy":PRINT" 4. Narcotics"
1240 PRINT"   (1, 2, 3, or 4)";:INPUT B
1245 IF B=2 THEN Z=Z+12
1250 IF B=3 THEN Z=Z+24
1255 IF B=4 THEN Z=Z+36
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"
1265 PRINT"   (1, 2, or 3)";:INPUT B
1270 IF B=1 THEN Z=Z-3
1275 IF B=3 THEN Z=Z+3
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"
1285 PRINT"   (1, 2, or 3)";:INPUT B
1290 IF B=1 THEN Z=Z-3
1295 IF B=3 THEN Z=Z+3
1300 PRINT:PRINT"MARITAL STATUS":PRINT" 1. Single":PRINT" 2. Married"
1305 PRINT"   (1 or 2)";:INPUT B
1310 IF B=1 THEN Z=Z+3:IF A>39 THEN Z=Z+3
1315 PRINT:PRINT"RESIDENCE":PRINT" 1. In large city":PRINT" 2. In suburban area":PRINT" 3. Farm or small town"
1320 PRINT"   (1, 2, or 3)";:INPUT B
1325 IF B=1 THEN Z=Z+6
1330 IF B=3 THEN Z=Z-3
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."
1340 PRINT"   (1, 2, or 3)";:INPUT B
1345 IF B=1 THEN Z=Z-3
1350 IF B=2 THEN Z=Z+6
1355 IF B=3 THEN Z=Z+15
1360 PRINT:PRINT"BLOOD PRESSURE":PRINT" 1.";:IF A>39 THEN PRINT" Pressure above 140/90":GOTO 1362
1361 PRINT" Pressure above 130/80"
1362 PRINT" 2. No"
1365 PRINT"   (1 or 2)";:INPUT B
1375 IF B=1 THEN Z=Z+12
1380 PRINT:PRINT"CHOLESTEROL":PRINT" 1.";:IF A>39 THEN PRINT" Level above 250":GOTO 1382
1381 PRINT" Level above 220"
1382 PRINT" 2. No"
1385 PRINT"   (1 or 2)";:INPUT B
1390 IF B=1 THEN Z=Z+6
1400 PRINT:PRINT"HEART":PRINT" 1. Heart murmur":PRINT" 2. Murmur with history of rhuematic":PRINT"    fever":PRINT" 3. Neither"
1405 PRINT"   (1, 2, or 3)";:INPUT B
1410 IF B=1 THEN Z=Z+24
1415 IF B=2 THEN Z=Z+48
1420 PRINT:PRINT"YEARLY MEDICAL CHECK-UP":PRINT" 1. Complete":PRINT" 2. Partial":PRINT" 3. None"
1425 PRINT"   (1, 2, or 3)";:INPUT B
1430 IF B=1 THEN Z=Z-12
1435 IF B=2 THEN Z=Z-6
1440 Q = (Z/12) + A:PRINT:PRINT:PRINT "YOUR MEDICAL AGE IS: ";Q: PRINT:PRINT:PRINT
1445 PRINT"------- HIT ANY KEY TO CONTINUE --------"
1450 A$=INPUT$(1)
1455 END