Calculate Medical Age

Author: Jim Weeks
———————————————————————————————-

 public pinter

pinter
 print'
 :::::::::::::::::::::::::::::::::::
 : :
 : Medical Age Questionnaire :
 : :
 :::::::::::::::::::::::::::::::::::
 '\\
start
 on nocar goto term
 print '
 This section is based on a quiz
originally appearing in the 8/82 issue
 of CHANGING TIMES magazine
 program by Jim Branberg
 converted to ACOS by Jim Weeks

We will ask you 20 questions dealing
with your lifestyle and habits. Upon
completion you will be advised what
your MEDICAL age is as compared to your
true age in years.
We suggest you see your doctor on a
regular basis.'\\
start.2
 input "What is your age? ";i$:A = val(i$)
 print\\'[> DISPOSITION <]
 1. Easy going
 2. Average
 3. Tense often'
 input \\"[1 2 or 3] ";i$:B=val(i$)
 IF B=1 THEN Z=Z-3
 IF B=3 THEN Z=Z+6
 print\\'[> EXERCISE <]
 1. Active employment, or regular
 exercise
 2. Moderate
 3. None'
 input \\"[1 2 or 3] ";i$:B=val(i$)
 IF B=1 THEN Z=Z-12
 IF B=3 THEN Z=Z+12
 print \\'[> HOME ENVIROMENT <]
 1. Pleasant
 2. Average
 3. Unusual tension'
 input \\"[1 2 or 3] ";i$:B=val(i$)
 IF B=1 THEN Z=Z-6
 IF B=3 THEN Z=Z+9
 print \\'[> JOB SATISFACTION <]
 1. Above average
 2. Average
 3. Discontented'
 input \\"[1 2 or 3] ";i$:B=val(i$)
 IF B=1 THEN Z=Z-3
 IF B=3 THEN Z=Z+6
 print \\'[> AIR POLLUTION <]
 1. No exposure
 2. Moderate contact
 3. Substantial exposure'
 input \\"[1 2 or 3] ";i$:B=val(i$)
 IF B=2 THEN Z=Z+3
 IF B=3 THEN Z=Z+9
 print \\'[> SMOKING HABITS <]
 1. Non smoker
 2. Occasional
 3. 1 pack a day
 4. 2 packs or more per day'
 input \\"[1 2 3 or 4] ";i$:B=val(i$)
 IF B=1 THEN Z=Z-6:print\\"Great...keep it up !"\\
 IF B=3 THEN Z=Z+12:print\\"Try to kick it altogether"\\
 IF B=4 THEN Z=Z+24:print\\"Try to at least cut down"\\
 print \\'[> DRINKING HABITS <]
 1. Seldom
 2. Moderate
 3. Heavy'
 input \\"[1 2 or 3] ";i$:B=val(i$)
 IF B=1 THEN Z=Z-6:print\\"Good going !"\\
 IF B=2 THEN Z=Z+6:print\\"Try to cut down."\\
 IF B=3 THEN Z=Z+24:print\\"Please get some help by calling AA."\\
 print \\'[> EATING HABITS <]
 1. Low fat diet
 2. High protein intake
 3. High cholesterol intake'
 input \\"[1 2 or 3] ";i$:B=val(i$)
 IF B=1 THEN Z=Z-6
 IF B=2 THEN Z=Z+6
 IF B=3 THEN Z=Z+6
 print \\'[> CAFFEINE INTAKE <]
 1. Low
 2. Moderate (2 cup average)
 3. Heavy (4 cups or more)'
 input \\"[1 2 or 3] ";i$:B=val(i$)
 IF B=2 THEN Z=Z-2
 IF B=3 THEN Z=Z+6
 print \\'[> DRIVING (PER YEAR) <]
 1. 20,000 miles or less with
 seatbelts worn
 2. 20,000 miles or less without
 seatbelts
 3. 20,000+ miles'
 input \\"[1 2 or 3] ";i$:B=val(i$)
 IF B=1 THEN Z=Z-3
 IF B=3 THEN Z=Z+12
 print \\'[> DRUG ABUSE <]
 1. None
 2. Moderate
 3. Heavy
 4. Narcotics'
 input \\"[1 2 3 or 4] ";i$:B=val(i$)
 IF B=2 THEN Z=Z+12
 IF B=3 THEN Z=Z+24
 IF B=4 THEN Z=Z+36
 print \\'[> FAMILY & SOCIAL HISTORY INVENTORY <]
 FATHER
 1. Alive & over 68 yrs. old
 2. Under 68 & alive, or dead at 68+
 3. Dead of medical causes under 68'
 input \\"[1 2 or 3] ";i$:B=val(i$)
 IF B=1 THEN Z=Z-3
 IF B=3 THEN Z=Z+3
 print\\' MOTHER
 1. Alive & over 73 years old
 2. Alive & under 68, or dead at 68+
 3. Dead of medical causes under 73'
 input \\"[1 2 or 3] ";i$:B=val(i$)
 IF B=1 THEN Z=Z-3
 IF B=3 THEN Z=Z+3
 print\\'[> MARITAL STATUS <]
 1. Single
 2. Married'
 input \\"[1 or 2] ";i$:B=val(i$)
 IF B=1 THEN Z=Z+3:IF A>39 THEN Z=Z+3
 print\\'[> RESIDENCE <]
 1. In large city
 2. In suburban area
 3. Farm or small town'
 input \\"[1 2 or 3] ";i$:B=val(i$)
 IF B=1 THEN Z=Z+6
 IF B=3 THEN Z=Z-3
 print\\'[> PHYSICAL INVENTORY <]
 WEIGHT
 (Think of your ideal body weight at
 age 20.)

1. Same now, or gain of less than
 10 lbs.
 2. 20 lbs. over
 3. 40 or more lbs.'
 input \\"[1 2 or 3] ";i$:B=val(i$)
 IF B=1 THEN Z=Z-3
 IF B=2 THEN Z=Z+6
 IF B=3 THEN Z=Z+15
bp.qa1
 print\\'[> BLOOD PRESSURE <]
 1.';:IF A>39 THEN print" Pressure above 140/90":GOTO bp.qa2
 print" Pressure above 130/80"
bp.qa2
 print" 2. No"
 input \\"[1 or 2] ";i$:B=val(i$)
 IF B=1 THEN Z=Z+12
ch.qa1
 print\\'[> CHOLESTEROL <]
 1.';:IF A>39 THEN print" Level above 250":GOTO ch.qa2
 print" Level above 220"
ch.qa2
 print" 2. No"
 input \\"[1 or 2] ";i$:B=val(i$)
 IF B=1 THEN Z=Z+6
 print\\'[> HEART <]
 1. Heart murmur
 2. Murmur with history of rhuematic
 fever
 3. Neither'
 input \\"[1 2 or 3] ";i$:B=val(i$)
 IF B=1 THEN Z=Z+24
 IF B=2 THEN Z=Z+48
 print\\'[> YEARLY MEDICAL CHECK-UP <]
 1. Complete
 2. Partial
 3. None'
 input \\"[1 2 or 3] ";i$:B=val(i$)
 IF B=1 THEN Z=Z-12
 IF B=2 THEN Z=Z-6
 Q = (Z/12) + A:print\\\sn$' doctors say...
Your medical age is: ';Q
 input\\ "Would you like to try again? [Y/N] ";i$
 if i$="Y" goto start.2
quit
 print chr$(12)
 link "a:main.seg","fromsys"
term
 link "a:main.seg","term1"