10 REM  (C) 1987 UPTIME  BY SOFTDISK PUBLISHING, INC.
11 GOTO20
15 POKE781,VT:POKE782,HT:SYS65520:RETURN
16 GETA$:IFA$=""GOTO16
17 RETURN
18 FORXX=VTTO22:POKE781,XX:SYS59903:NEXT:RETURN
20 PRINT"";CHR$(14);:POKE53281,15:POKE53280,14:CLR:SH$=CHR$(160)
50 POKE 198,0:VT=21:HT=0:GOSUB 15
51 PRINT "  [196]O YOU WANT BACKGROUND INFORMATION?"
60 PRINT "                ([217] OR [206])               ";:GOSUB16
65 IF A$<>"Y" AND A$<>"[217]" AND A$<>"N" AND A$<>"[206]" AND A$<>"[140]" THEN 60
67 POKE 53269,0
70 IF A$="[140]" THEN 3950
80 IF A$="N" OR A$="[206]" THEN 110
90 IF A$="Y" OR A$="[217]" THEN VT=4:GOSUB18:GOSUB15:GOTO 3510
100 GOTO 50
110 VT=4:GOSUB18:VT=7:HT=0:GOSUB15:PRINT " [215]HAT IS YOUR NAME: ";:MX=20
112 GOSUB 5000
115 N$=T$
120 IF N$="" THEN 110
125 A$=CHR$(ASC(LEFT$(N$,1))OR 128)
128 N$=A$+RIGHT$(N$,LEN(N$)-1)
130 VT=9:GOSUB15: PRINT" [215]HAT IS YOUR AGE: ";:MX=2:GOSUB 5000
140 AY=VAL(T$):A=AY:IF T$="" THENGOSUB3470:VT=9:GOSUB18:GOTO130
150 IF T$<"0" OR T$>"99" THEN 3860
160 POKE 198,0:GOSUB 4040
170 VT=11:HT=0:GOSUB15:PRINT " [193]RE YOU MALE OR FEMALE? ([205] OR [198]) ";
180 GET SX$:IF SX$="" THEN 180
190 IF SX$="M" OR SX$="[205]"OR SX$="F" OR SX$="[198]" OR SX$="[140]" THEN 200
191 DD=3:GOSUB 3470:GOTO 160
200 IF SX$="[140]" THEN 3950
210 BA=A*.190796+68.478510
220 IF SX$="F" OR SX$="[198]" THEN BA=A*.122769+75.953098
230 S$=SX$:PRINT
240 BA=INT(BA+.5):T=BA
250 VT=13:GOSUB15:PRINT " [212]HE BASE LIFE EXPECTANCY FOR ";N$
260 PRINT TAB(14)"IS"T"YEARS."
270 A$=" "
280 POKE 198,0:PRINT
290 VT=16:GOSUB15:PRINT " [193]RE YOU CAUCASIAN? ([217] OR [206]) ";:GOSUB16
300 IF A$="N" OR A$="[206]" THEN T=T-5:GOSUB 3380:GOTO 340
310 IF A$="Y" OR A$="[217]" THEN T=T+0:GOSUB 3380:GOTO 340
320 IF A$="[140]" THEN 3950
330 GOSUB 3470:GOTO 280
340 VT=10:GOSUB18:VT=10:HT=0:GOSUB15:GOSUB 3370
350 PRINT " [208][193][210][212] [201]      [198][193][205][201][204][217] [200][201][211][212][207][210][217]": GOSUB 3370:VT=14:GOSUB18
360 VT=14:GOSUB15:PRINT " [196]ID AT LEAST TWO OF YOUR GRANDPARENTS"
370 POKE 198,0
380 PRINT " LIVE TO BE 80 OR MORE? ([217] OR [206]) ";:GOSUB16
390 IF A$="[140]" THEN 3950
400 IF A$="N" OR A$="[206]" THEN T=T-2:GOSUB 3380:GOTO 430
410 IF A$="Y" OR A$="[217]" THEN T=T+2:GOSUB 3380:GOTO 430
420 GOSUB 3470:GOTO 360
430 REM
440 VT=14:GOSUB18
450 VT=14:GOSUB15:PRINT " [215]HAT IS/WAS YOUR MOTHER'S AGE: ";:MX=3:GOSUB 5000
455 A=VAL(T$)
460 IF A<11 OR T$="" THEN GOSUB 3470:GOTO 440
470 IF A<80 THEN T=T+0:GOSUB 3380:GOTO 490
480 T=T+1.5:GOSUB 3380
490 REM
500 VT= 14:GOSUB18:GOSUB15
501 PRINT " [215]HAT IS/WAS YOUR FATHER'S AGE: ";:MX=3:GOSUB 5000
505 A=VAL(T$)
510 IF A<11 OR T$="" THEN GOSUB 3470:GOTO 500
520 IF A<80 THEN T=T+0:GOSUB 3380:GOTO 540
530 T=T+2:GOSUB 3380
540 GOSUB 4040
550 VT=14:GOSUB 18:VT= 14:HT=0:GOSUB15
560 PRINT " [196]ID ANY OF YOUR GRANDPARENTS, PARENTS,"
570 PRINT " BROTHERS OR SISTERS DIE OF A HEART"
580 PRINT " ATTACK OR STROKE BEFORE THE AGE OF 50?"
590 POKE 198,0:PRINT "                ([217] OR [206])":GOSUB16
600 IF A$="[140]" THEN 3950
610 IF A$="N" OR A$="[206]" THEN T=T-0:GOSUB 3380:GOTO 640
620 IF A$="Y" OR A$="[217]" THEN T=T-4:GOSUB 3380:GOTO 640
630 GOSUB 3470:GOTO 550
640 VT=14:GOSUB18:VT=14:GOSUB15
650 PRINT " [196]ID ANY OF YOUR ABOVE KIN DIE OF HEART"
660 PRINT " ATTACK OR STROKE BEFORE THE AGE OF 60?"
670 POKE  198,0: PRINT "                ([217] OR [206]) ";:GOSUB16
680 IF A$="[140]" THEN 3950
690 IF A$="N" OR A$="[206]" THEN T=T-0:GOSUB 3380:GOTO 720
700 IF A$="Y" OR A$="[217]" THEN T=T-2:GOSUB 3380:GOTO 720
710 DD=2:GOSUB 3470:GOTO 640
720 REM
730 VT=14:GOSUB18
740 VT=14:GOSUB 15:PRINT " [215]HAT IS THE TOTAL NUMBER OF INCIDENCES"
750 PRINT " OF ASTHMA, BRONCHITIS, CANCER,"
760 PRINT " DIABETES, DIGESTIVE SYSTEM, EMPHYSEMA"
770 PRINT " OR THYROID DISORDER FOUND IN YOUR"
780 PRINT " PARENTS AND GRANDPARENTS: ";:MX=2:GOSUB 5000
785 A=VAL(T$)
790 IF A<0 OR A>15 OR A$=SH$ THEN GOSUB 3470:GOTO 730
800 T=T-3*A:GOSUB 3380
810 REM
820 VT=10:GOSUB18:GOSUB15:GOSUB3370
830 PRINT " [208][193][210][212] [201][201]     [200][197][193][204][212][200] [193][206][196] [196][201][197][212]"
840 GOSUB 3370
850 GOSUB 4040:POKE 198,0
860 VT=14:HT=0:GOSUB15:PRINT " [196]O YOU HAVE HIGH BLOOD PRESSURE?"
870 PRINT "                ([217] OR [206]) ";: GOSUB16
880 IF A$="[133]" THEN 3950
890 IF A$="Y" OR A$="[217]" THEN T=T+10*(AY>=20):GOSUB 3380:PRINT:GOTO 920
900 IF A$="N" OR A$="[206]" THEN T=T+0:GOSUB 3380:PRINT:GOTO 920
910 GOSUB 3470:GOTO 850
920 REM
930 VT=14:GOSUB18:GOSUB15
940 PRINT" [200]OW MANY POUNDS OVERWEIGHT        ":PRINT" ARE YOU: ";:MX=3
942 GOSUB 5000:A=VAL(T$)
945 IF T$="" THEN GOSUB 3470:GOTO930
950 IF A=0 THEN B=0:GOTO 970
960 B=A/10
970 T=T-B:GOSUB 3380
980 VT=14:GOSUB 18
990 VT=14:GOSUB 15:PRINT " [200]OW MANY PACKS OF CIGARETTES DO YOU"
1000 PRINT" SMOKE EACH DAY: ";:MX=2:GOSUB 5000:A=VAL(T$)
1010 IF A<0 OR T$="" THEN GOSUB 3470:GOTO 980
1020 IF A=0 THEN B=0:GOTO 1100
1030 IF A<1 THEN B=2:GOTO 1100
1040 IF A=1 THEN B=4:GOTO 1100
1050 IF A<1.5 THEN B=5:GOTO 1100
1060 IF A<2 THEN B=7:GOTO 1100
1070 IF A=2 THEN B=8:GOTO 1100
1080 IF A<3 THEN B=10:GOTO 1100
1090 IF A=>3 THEN B=12:GOTO 1100
1100 T=T-B:GOSUB 3380
1110 VT=14:GOSUB18
1120 VT=14:GOSUB15:PRINT " [200]OW MANY ALCOHOLIC DRINKS DO YOU HAVE"
1130 PRINT" EACH DAY: ";:MX=2:GOSUB 5000:A=VAL(T$)
1140 IF A<0 OR T$="" THEN GOSUB 3470:GOTO 1110
1150 IF A=0 THEN T=T-1:GOSUB 3380:GOTO 1180
1160 IF A<=2 THEN T=T+3:GOSUB 3380:GOTO 1180
1170 IF A>2 THEN T=T-8:GOSUB 3380:GOTO 1180
1180 VT=14:GOSUB18:POKE 198,0:VT=14:HT=0:GOSUB15
1190 PRINT " [196]O YOU WANT TO KNOW WHY? ([217]/[206])":GOSUB 16
1200 IF A$="N" OR A$="[206]" THEN 1320
1210 IF A$="Y" OR A$="[217]" THEN 1230
1220 GOTO 1180
1230 VT=14:GOSUB18:VT=14:GOSUB15
1240 PRINT " [205]ODERATE DRINKING (UP TO TWO DRINKS"
1250 PRINT " PER DAY) REDUCES EMOTIONAL STRESS, BUT"
1260 PRINT " MORE THAN TWO DRINKS PER DAY PRODUCES"
1270 PRINT " PHYSIOLOGICAL DAMAGE.  [193]S FOR TEETO-"
1280 PRINT " TALERS, THEY MAY HAVE RATHER RIGID     ";
1290 PRINT " VALUE SYSTEMS AND MAY UNDERGO STRESS"
1300 PRINT " IN MAINTAINING THAT SYSTEM!"
1310 TP=14:GOSUB 4090
1320 VT=14:GOSUB18:GOSUB 4040
1330 VT=14:GOSUB15:PRINT " [196]O YOU EXERCISE MODERATELY - JOG, BIKE";
1340 PRINT " RIDE, TAKE LONG WALKS, SWIM - AT LEAST"
1350 POKE 198,0:PRINT " 2 OR 3 TIMES EACH WEEK? ([217] OR [206]) ";
1360 GOSUB16
1370 IF A$="[133]" THEN 3950
1380 IF A$="N" OR A$="[206]" THEN T=T+0:GOSUB 3380:GOTO 1410
1390 IF A$="Y" OR A$="[217]" THEN T=T+3:GOSUB 3380:GOTO 1410
1400 DD=2:GOSUB 3470:GOTO 1330
1410 REM
1420 VT=14:GOSUB 18:GOSUB 15
1430 PRINT " [200]OW MANY HOURS DO YOU SLEEP EACH        DAY: ";:MX=2:GOSUB 5000
1435 A=VAL(T$)
1440 IF A<1 OR A>24 OR A$="" THEN GOSUB 3470:GOTO 1420
1450 IF A<9 THEN T=T-0:GOSUB 3380:GOTO 1480
1460 IF A=9 THEN T=T-4:GOSUB 3380:GOTO 1480
1470 IF A=>9 THEN T=T-6:GOSUB 3380
1480 GOSUB 4040:VT=14:HT=0:GOSUB 18:GOSUB15
1490 PRINT " [196]O YOU WANT TO KNOW WHY? ([217] OR [206])"
1500 POKE 198,0:GOSUB16
1510 IF A$="[140]" THEN 3950
1520 IF A$="N" OR A$="[206]" THEN 1630
1530 IF A$="Y" OR A$="[217]" THEN 1550
1540 GOTO 1480
1550 VT=14:GOSUB 18:VT=14:GOSUB15
1560 PRINT " [193]DULTS WHO SLEEP TOO MUCH USUALLY SPEND";
1570 PRINT " TOO MUCH TIME IN NONPHYSICAL ACTIVITY"
1580 PRINT " AND MAY BE UNHAPPY, USING SLEEP AS AN"
1590 PRINT " ESCAPE, A PSYCHOLOGICAL CRUTCH..."
1600 PRINT " [196]EPRESSED PEOPLE HAVE SHORTER LIFE     ";
1610 PRINT " EXPECTANCIES."
1620 TP=14:GOSUB 4090
1630 GOSUB 4040
1640 IF SX$="M" OR SX$="[205]" THEN 1730
1650 VT=14:GOSUB18:VT=14: HT=0:GOSUB15
1660 PRINT " [196]O YOU HAVE A BREAST EXAMINATION AND A ";
1670 PRINT " PAP SMEAR AT LEAST ONCE A YEAR?"
1680 POKE 198,0:PRINT "                ([217] OR [206]) ";: GOSUB16
1690 IF A$="[133]" THEN 3950
1700 IF A$="N" OR A$="[206]" THEN T=T+0:GOSUB 3380:GOTO 1810
1710 IF A$="Y" OR A$="[217]" THEN T=T+2:GOSUB 3380:GOTO 1810
1720 GOSUB 3470:GOTO 1650
1730 VT=14:GOSUB18:GOSUB15
1740 PRINT " [196]O YOU HAVE A PHYSICAL AND PROCTOSCOPIC";
1750 PRINT " EXAMINATION AT LEAST ONCE EACH YEAR?"
1760 POKE 198,0:PRINT "                ([217] OR [206]) ";:GOSUB16
1770 IF A$="[140]" THEN 3950
1780 IF A$="Y" OR A$="[217]" THEN T=T+2:GOSUB 3380:GOTO 1810
1790 IF A$="N" OR A$="[206]" THEN T=T+0:GOSUB 3380:GOTO 1810
1800 GOSUB 3470:GOTO 1730
1810 VT=10:GOSUB18:VT=10:GOSUB15:GOSUB 3370
1820 PRINT " [208][193][210][212] [201][201][201]     [197][196][213][195][193][212][201][207][206] [193][206][196] [207][195][195][213][208][193][212][201][207][206]"
1830 GOSUB 3370
1840 VT=14:GOSUB15
1850 PRINT " [211]TARTING FROM FIRST GRADE, WHAT ARE    ";
1860 PRINT " THE TOTAL NUMBER OF YEARS YOU ATTENDED"
1870 PRINT " SCHOOL: ";:MX=2:GOSUB 5000:A=VAL(T$)
1880 IF A<0 OR A>AY OR T$="" THEN GOSUB 3470:GOTO 1840
1890 IF A<12 THEN T=T-2:GOSUB 3380:GOTO 1930
1900 IF A<14 THEN T=T+0:GOSUB 3380:GOTO 1930
1910 IF A<17 THEN T=T+1:GOSUB 3380:GOTO 1930
1920 IF A=>17 THEN T=T+3:GOSUB 3380
1930 POKE198,0:VT=14:GOSUB18:VT=14:HT=0:GOSUB15
1940 PRINT " [196]O YOU WANT TO KNOW WHY? ([217]/[206])":GOSUB16
1950 IF A$="[133]" THEN 3950
1960 IF A$="N" OR A$="[206]" THEN 2040
1970 IF A$="Y" OR A$="[217]" THEN 1990
1980 GOTO 1930
1990 VT=14:GOSUB18:VT=14:GOSUB15:PRINT" [193]LTHOUGH ATTENDING SCHOOL DOES NOT MAKE";
2000 PRINT " YOU LIVE LONGER, MORE EDUCATION COR-"
2010 PRINT " RELATES WITH INCREASED INCOME, THUS"
2020 PRINT " BETTER ACCESS TO HEALTH CARE."
2030 TP=14:GOSUB 4090:GOSUB 4040
2040 POKE 198,0:VT=14:HT=0:GOSUB18:GOSUB15
2050 PRINT " [201]S YOUR OCCUPATION CLASSIFIED AS       ";
2060 PRINT " PROFESSIONAL? ([217] OR [206]) ";: GOSUB16
2070 IF A$="[140]" THEN 3950
2080 IF A$="N" OR A$="[206]" THEN 2190
2090 IF A$="Y" OR A$="[217]" THEN 2110
2100 GOSUB 3470:GOTO 2040
2110 POKE 198,0:VT=14:GOSUB18:GOSUB15
2120 PRINT " [193]RE YOU A MUSICIAN, ARCHITECT OR       ";
2130 PRINT " PHARMACIST? ([217] OR [206]) ";:GOSUB16
2140 IF A$="[140]" THEN 3950
2150 IF A$="N" OR A$="[206]" THEN T=T+2:GOSUB 3380:GOTO 2270
2160 IF A$="Y" OR A$="[217]" THEN 2180
2170 GOSUB 3470:GOTO 2110
2180 T=T-1:GOSUB 3380:GOTO 2270
2190 POKE 198,0:VT=14:GOSUB18:GOSUB15
2200 PRINT " [196]OES YOUR WORK INVOLVE HEAVY INDUSTRIAL LABOR? ([217] OR [206]) ";
2210 GOSUB16
2220 IF A$="[140]" THEN 3950
2230 IF A$="N" OR A$="[206]" THEN PRINT:T=T+0:GOSUB 3380:GOTO 2270
2240 IF A$="Y" OR A$="[217]" THEN 2260
2250 GOSUB 3470:GOTO 2190
2260 T=T-2:GOSUB 3380
2270 POKE 198,0:VT=14:HT=0:GOSUB18:GOSUB15
2280 PRINT " [196]O YOU WANT TO KNOW WHY? ([217] OR [206])":GOSUB16
2290 IF A$="[140]" THEN 3950
2300 IF A$="N" OR A$="[206]" THEN 2420
2310 IF A$="Y" OR A$="[217]" THEN 2330
2320 GOTO 2270
2330 VT=14:GOSUB18:GOSUB15:PRINT " [208]ROFESSIONALS USUALLY LIVE LONGER...   ";
2340 PRINT " EXCEPT MUSICIANS, ARCHITECTS AND PHAR- ";
2350 PRINT " MACISTS.  [215]HY THIS IS TRUE IS UNKNOWN. ";
2360 PRINT " [217]OU HAVE A GREATER CHANCE OF BEING     ";
2370 PRINT " INVOLVED IN AN ACCIDENT IF YOU WORK AT ";
2380 PRINT " HEAVY LABOR.  [208]EOPLE WHO WORK AT JOBS  ";
2390 PRINT " ASSOCIATED WITH OVEREATING ALSO HAVE A ";
2400 PRINT " SHORTER LIFE EXPECTANCY."
2410 TP=14:GOSUB 4090:GOSUB 4040
2420 POKE 198,0:VT=14:HT=0:GOSUB18:GOSUB15
2430 PRINT " [196]OES YOUR ANNUAL INCOME EXCEED $50,000?"
2435 PRINTTAB(16)"([217] OR [206])"
2440 GOSUB16
2450 IF A$="[140]" THEN 3950
2460 IF A$="N" OR A$="[206]" THEN T=T-0:GOSUB 3380:GOTO 2490
2470 IF A$="Y" OR A$="[217]" THEN T=T-2:GOSUB 3380:GOTO 2490
2480 GOSUB 3470:GOTO 2420
2490 POKE198,0:VT=14:HT=0:GOSUB18:GOSUB15:PRINT" [196]O YOU WANT TO KNOW WHY? ([217]/[206])"
2500 GOSUB16
2510 IF A$="[140]" THEN 3950
2520 IF A$="N" OR A$="[206]" THEN 2590
2530 IF A$="Y" OR A$="[217]" THEN 2550
2540 GOTO 2490
2550 VT=14:GOSUB18:GOSUB15:PRINT" [208]EOPLE WITH HIGHER INCOMES USUALLY     ";
2560 PRINT " EXPERIENCE GREATER STRESS EARNING A    ";
2570 PRINT " LIVING AND CONSUME MORE RICH FOODS."
2580 TP=14:GOSUB 4090:GOSUB 4040
2590 POKE 198,0:VT=14:HT=0:GOSUB18:GOSUB15
2600 PRINT " [201]S YOUR JOB ACTIVE OR SEDENTARY?        ([193] OR [211]) ";
2610 GOSUB16
2620 IF A$="[140]" THEN 3950
2630 IF A$="S" OR A$="[211]" THEN T=T-3:GOSUB 3380:GOTO 2660
2640 IF A$="A" OR A$="[193]" THEN T=T+3:GOSUB 3380:GOTO 2660
2650 GOSUB 3470:GOTO 2590
2660 PRINT:IF AY<61 THEN 2710
2670 POKE 198,0:VT=14:GOSUB18:GOSUB15
2671 PRINT " [193]RE YOU STILL WORKING? ([217] OR [206]) ";
2672 GOSUB16
2680 IF A$="N" OR A$="[206]" THEN T=T+0:GOSUB 3380:GOTO 2710
2690 IF A$<>"Y" AND A$<>"[217]" THEN DD=2:GOSUB 3470:GOTO 2670
2700 T=T+2:GOSUB 3380
2710 VT=10:GOSUB18:GOSUB15:GOSUB 3370: PRINT " [208][193][210][212] [201][214]     [204][201][198][197][211][212][217][204][197]"
2720 GOSUB 3370
2730 POKE 198,0:VT=14:GOSUB15
2740 PRINT " [193]RE YOU LIVING IN A RURAL OR URBAN     ";
2741 PRINT " AREA? ([210] OR [213]) ";
2745 GOSUB16
2750 IF A$="[140]" THEN 3950
2760 IF A$="R" OR A$="[210]" THEN T=T+1:GOSUB 3380:GOTO 2800
2770 IF A$="U" OR A$="[213]" THEN 2790
2780 DD=4:GOSUB 3470:GOTO 2730
2790 T=T-1:GOSUB 3380
2800 VT=14:GOSUB18:GOSUB15:PRINT " [193]RE YOU MARRIED OR LIVING WITH SOMEONE ";
2810 POKE 198,0
2820 PRINT " ON A PERMANENT BASIS? ([217] OR [206]) ";:GOSUB16
2830 IF A$="[140]" THEN 3950
2840 IF A$="Y" OR A$="[217]" THEN T=T+3:GOSUB 3380:GOTO 2950
2850 IF A$="N" OR A$="[206]" THEN 2870
2860 GOSUB 3470:GOTO 2800
2870 PRINT:A=AY-25
2880 IF A<0 THEN A=0:GOTO 2940
2890 REM
2900 VT=14:GOSUB18:GOSUB15:PRINT" [200]OW MANY OF THE PAST YEARS WERE        ";
2910 REM
2920 PRINT " YOU SINGLE: ";:MX=3:GOSUB 5000:A=VAL(T$)
2925 IF T$="" THEN GOSUB3470:GOTO2900
2930 A=A/10
2940 T=T-A:GOSUB 3380
2950 VT=14:GOSUB18:GOSUB15:PRINT " [207]N A SCALE OF 0 TO 3, HOW MUCH OF A    ";
2960 PRINT " CALM, PASSIVE PERSON ARE YOU (3 IS THE ";
2970 POKE 198,0:PRINT " MOST CALM)? ";
2980 GOSUB16:A=VAL(A$)
2990 IF A$="[140]" THEN 3950
3000 IF A$<"0" OR A$>"3" OR A$="" THEN GOSUB 3470:GOTO 2950
3010 T=T+A:GOSUB 3380
3020 VT=14:GOSUB18:GOSUB15
3030 PRINT " [207]N A SCALE OF 0 TO 5, HOW MUCH OF AN   ";
3040 PRINT " AGGRESSIVE, INTENSE AND COMPETITIVE    ";
3050 PRINT " PERSON ARE YOU (5 IS THE MOST AGGRES-  ";
3060 POKE 198,0
3070 PRINT " SIVE, INTENSE AND/OR COMPETITIVE)? ";
3080 GOSUB16:A=VAL(A$):IFA$=""GOTO3020
3090 IF A$="[140]" THEN 3950
3100 IF A<0 OR A>5 THEN DD=2:GOSUB 3470:GOTO 3020
3110 T=T-A:GOSUB 3380
3120 VT=14:GOSUB 18:GOSUB15:PRINT " [196]O YOU USE YOUR CAR'S SEAT BELTS AND   ";
3130 POKE 198,0
3140 PRINT " FOLLOW SPEED LIMITS REGULARLY?         ";
3150 PRINT "                ([217] OR [206]) ";:GOSUB16
3160 IF A$="[140]" THEN 3950
3170 IF A$="N" OR A$="[206]" THEN T=T+0:GOSUB 3380:GOTO 3200
3180 IF A$<>"Y" AND A$<>"[217]" THEN GOSUB 3470:GOTO 3120
3190 T=T+1:GOSUB 3380
3200 REM
3210 VT=14:GOSUB18
3220 VT=14:GOSUB15:PRINT " [207]N THE FOLLOWING SCALE HOW WOULD YOU   ";
3230 PRINT " RATE YOURSELF?                         ";
3240 PRINT " [211][193][196]  -3  -2  -1  0  +1  +2  +3  [200][193][208][208][217]"
3250 PRINT TAB(18);:MX=2:GOSUB 5000:A=VAL(T$)
3260 IF A<-3 OR A>3 OR T$="" THEN GOSUB 3470:GOTO 3220
3270 IF A=>0 THEN T=T+A:GOTO 3290
3280 T=T+A
3290 VT=4:GOSUB18:GOSUB15:GOSUB 3370:GOSUB 3380:GOSUB 3370
3300 POKE 198,0
3310 PRINT " [196]O YOU WANT TO RUN ANOTHER LIFE         ";
3320 PRINT " EXPECTANCY PROFILE? ([217] OR [206]) ":
3325 GOSUB 16:Z$=A$
3330 IF Z$="[140]" THEN 3950
3340 IF Z$="Y" OR Z$="[217]" THEN 20
3350 IF Z$="N" OR Z$="[206]" THEN 3950
3360 GOTO 3325
3370 FOR X=1 TO 38:PRINT "-";:NEXT X:PRINT "-":RETURN
3380 FOR VT=7TO9:POKE 781,VT:SYS59903:NEXT:VT=7:GOSUB15
3390 PRINT " "N$","
3400 PRINT " YOUR LIFE EXPECTANCE IS NOW"T"YEARS."
3410 RETURN
3420 PRINT"[147]";:PRINT
3430 PRINT "[217]OU MUSTN'T TRY TO FOOL MOTHER NATURE..."
3440 PRINT TAB(10)"[195]HECK YOUR ANSWERS!!!"
3450 PRINT:PRINT "[210][197][211][212][193][210][212] [208][210][207][199][210][193][205] [198][210][207][205] [212][200][197] [194][197][199][201][206][206][201][206][199]."
3460 GOTO 3300
3470 VT=21:GOSUB15
3480 PRINT "[208][204][197][193][211][197] [195][200][197][195][203] [217][207][213][210] [193][206][211][215][197][210]!!!"
3490 FOR XX=1 TO 2000:NEXT
3500 POKE781,21:SYS59903:RETURN
3510 PRINT:PRINT "   [200]UMAN BEINGS ARE OFTEN PREOCCUPIED"
3520 PRINT "WITH THE PROSPECTS FOR LONG LIFE AS IN-"
3530 PRINT "DICATED BY THE CURRENT POPULARITY OF"
3540 PRINT "ASTROLOGY, BIORHYTHMS, NUTRITION AND"
3550 PRINT "HEALTH CARE PROGRAMS.  [211]CIENTISTS HAVE"
3560 PRINT "DEVELOPED A VARIETY OF METHODS TO ESTI-"
3570 PRINT "MATE HUMAN LONGEVITY.  [211]TATISTICIANS"
3580 TP=4:GOSUB 4090:GOSUB18:GOSUB15
3590 PRINT "HAVE CREATED MORTALITY TABLES BASED"
3600 PRINT "UPON HUMAN POPULATION STUDIES, AND MED-"
3610 PRINT "ICAL EXPERTS HAVE IDENTIFIED THE REQUI-"
3620 PRINT "SITE CRITERIA FOR THE MAINTENANCE OF"
3630 PRINT "GOOD HEALTH."
3640 PRINT "   [214]ITAL STATISTICS COMPUTED BY THE"
3650 PRINT "[213].[211]. [208]UBLIC [200]EALTH [211]ERVICE FROM 1960"
3660 TP=4:GOSUB 4090:GOSUB18:GOSUB15
3670 PRINT "AND 1970 CENSUS DATA ARE UTILIZED IN"
3680 PRINT "THIS PROGRAM TO ESTIMATE YOUR BASE LIFE"
3690 PRINT "EXPECTANCY."
3700 PRINT "   [217]OUR LIFE EXPECTANCY DEPENDS ON"
3710 PRINT "MANY FACTORS INCLUDING PLACE OF RESI-"
3720 PRINT "DENCE, MOBILITY STATUS, NATIVITY, FAM-"
3730 PRINT "ILY HISTORY, RACE AND EDUCATION IN ADD-"
3740 TP=4:GOSUB 4090:GOSUB18:GOSUB15
3750 PRINT "ITION TO PHYSICAL AND EMOTIONAL CONSID-"
3760 PRINT "ERATIONS.  [217]OUR RESPONSES TO QUESTIONS"
3770 PRINT "REGARDING THESE FACTORS FORM THE BASIS"
3780 PRINT "FOR YOUR PROJECTED LONGEVITY."
3790 GOSUB 4040:POKE 198,0
3800 VT=18:HT=0:GOSUB15
3810 PRINT "        [208]RESS [211]PACE[194]AR TO [211]TART"
3820 GET Z$:IF Z$<>" " THEN 3820
3840 IF Z$="[140]" THEN 3950
3850 VT=4:GOSUB 18:GOTO 110
3860 PRINT
3870 PRINT "[211][207][210][210][217]!  [212]HIS PROGRAM CANNOT PROJECT THE"
3880 PRINT "LIFE EXPECTANCY OF YOUR STATED AGE."
3890 PRINT "[212][210][217] [217][207][213][210] [210][197][193][204] [193][199][197] [212][200][201][211] [212][201][205][197]!"
3900 PRINT
3910 FOR XX=1 TO 3000:NEXT
3920 VT=19:GOSUB18
3930 REM
3940 GOTO 120
3950 POKE 44,8:POKE 2048,0:CLR:SYS (8*4096)+4
4040 POKE781,23:SYS59903
4060 VT=23:HT=11:GOSUB15:PRINT"";
4070 PRINT " <[198]8> FOR [213]P[212]IME ";:PRINT"[146]";
4080 HT=0:RETURN
4090 POKE 198,0:VT=23:HT=0:GOSUB15:PRINT"";
4100 PRINT " <[198]8> FOR [213]P[212]IME   <[210][197][212][213][210][206]> TO [195]ONTINUE ";
4105 PRINT"[146]";
4110 GETA$:IFA$=""GOTO4110
4120 IF A$="[140]" THEN 3950
4130 IF A$=CHR$ (13)THEN VT=TP:GOSUB18:HT=0:RETURN
4140 GOTO 4090
5000 T$="":PRINT"[164]";
5010 GET A$:IF A$="" THEN 5010
5015 IF A$="[140]" THEN 3950
5020 IF A$=CHR$(13) THEN PRINT"[157] ":RETURN
5030 IF A$=CHR$(20) AND T$="" THEN 5010
5040 IF A$=CHR$(20) THEN T$=LEFT$(T$,LEN(T$)-1):PRINT"[157][157]  [157][157][164]";:GOTO 5010
5050 IF LEN(T$)=MX THEN 5010
5060 IF ASC(A$)<32 THEN 5010
5070 IF A$=CHR$(34) THEN 5010
5080 IF ASC(A$)>218 THEN 5010
5090 IF ASC(A$)>90 AND ASC(A$)<192 THEN 5010
5100 T$=T$+A$
5110 PRINT"[157]"A$"[164]";
5120 GOTO 5010