# 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)