10 ! **********************************************************************
11 ! Program          EXPECT.800       Utg}va  1.0      2000-I5-I5
12 ! av Creative Computing, {ndrad av Kalle Lindstr|m
13 ! Ins{nd av 837
14 ! F|r ABC800M ABC800C ABC802 ABC806
15 ! Testad p} ABC802 ABC806
16 ! Man b|r ha 80 teckens sk{rm f|r b{sta l{sligheten.
17 ! **********************************************************************
18 ! 
19 ! 
100 ; TAB(21%) "LIFE EXPECTANCY"
110 ; TAB(20%) "CREATIVE COMPUTING"
120 ; TAB(18%) "MORRISTOWN, NEW JERSEY"
130 ; : ; : ; 
270 ; : ; : ; 
280 ; "THIS IS A LIFE EXPEXTANCY TEST."
290 ; "   DO YOU WISH INSTRUCTIONS";
300 INPUT I$
310 IF LEFT$(I$,1%)="N" THEN 470
320 ; : ; 
340 ; "   THIS IS A TEST TO PREDICT YOUR LIFE EXPECTANCY.  I"
350 ; "WILL ASK YOU A SERIES OF SHORT QUESTIONS, WHICH YOU WILL"
360 ; "REPLY BY TYPING IN THE CORRESPONDING ANSWER TO THE"
370 ; "QUESTION."
380 ; 
390 ; "        EXAMPLE: WHAT IS YOUR SEX?"
400 ; "               M=MALE"
410 ; "               F=FEMALE"
420 ; "'M' AND 'F' ARE THE POSSIBLE REPLIES TO THE QUESTION, ANSWER"
430 ; "LIKE THIS:"
440 ; "              CHOOSE ONE OF THE LETTERS ABOVE? M"
450 ; "TYPING AN 'M' SIGNIFIES YOU ARE A MALE."
460 ; : ; : ; 
470 R5%=1%
480 Z%=72%
490 A$="ABCDEMGHIJKLFNO"
500 GOTO 1700
510 R5%=R5%+1%
520 IF R5%>21% THEN 1900
530 DATA "+++SEX+++"
540 DATA "ARE YOU MALE OR FEMALE?"
550 DATA "M= MALE."
560 DATA " F= FEMALE."
570 DATA 2,"MF"
580 DATA "+++LIFE STYLE+++"
590 DATA "WHERE DO YOU LIVE?"
600 DATA "G= IF YOU LIVE IN AN URBAN AREA WITH A POPULATION OVER 2 MIL."
610 DATA "K= IF YOU LIVE IN A TOWN UNDER 10,000, OR ON A FARM."
620 DATA " I= NEITHER."
630 DATA 3,"GKI"
640 DATA "HOW DO YOU WORK?"
650 DATA "M= IF YOU WORK BEHIND A DESK."
660 DATA "L= IF YOU WORK REQUIRES HEAVY PHYSICAL LABOR."
670 DATA " I= NONE OF THE ABOVE."
680 DATA 3,"MLI"
690 DATA "HOW LONG DO YOU EXERCISE STRENOULSY,"
700 DATA "(TENNIS, RUNNING, SWIMMING, ETC.)?"
710 DATA "F= FIVE TIMES A WEEK FOR AT LEAST A HALF HOUR."
720 DATA "K= JUST TWO OR THREE TIMES A WEEK."
730 DATA " I= DO NOT EXERCISE IN THIS FASHION."
740 DATA 3,"FKI"
750 DATA "WHO DO YOU LIVE WITH?"
760 DATA "N= IF YOU LIVE WITH A SPOUSE, FRIEND, OR IN A FAMILY."
770 DATA "H= IF YOU'VE LIVED ALONE FOR 1-10 YEARS SINCE AGE 25."
780 DATA "G= FOR 11-20 YEARS."
790 DATA "M= FOR 21-30 YEARS."
800 DATA "E= FOR 31-40 YEARS."
810 DATA " M= MORE THAN 40 YEARS."
820 DATA 6,"NHGMED"
830 DATA "+++PSYCHE+++"
840 DATA "DO YOU SLEEP MORE THAN 10 HOUR A NIGHT?"
850 DATA "I= NO."
860 DATA " E=YES."
870 DATA 2,"IE"
880 DATA "+++MENTAL STATE+++"
890 DATA "M= IF YOU ARE INTENSE, AGGRESSIVE, OR EASILY ANGERED."
900 DATA "L= IF YOU ARE EASY GOING, RELAXED, OR A FOLLOWER."
910 DATA " I= NEITHER."
920 DATA 3,"MLI"
930 DATA "+++HOW YOU FELL+++"
940 DATA "ARE YOU HAPPY OR UNHAPPY?"
950 DATA "J= HAPPY."
960 DATA "G= UNHAPPY."
970 DATA " I= NEITHER."
980 DATA 3,"JGI"
990 DATA "+++FACTORS+++"
1000 DATA "HAVE YOU HAD A SPEEDING TICKET IN THE LAST YEAR?"
1010 DATA "H= YES."
1020 DATA " I=NO."
1030 DATA 2,"HI"
1040 DATA "+++INCOME+++"
1050 DATA "DO YOU EARN MORE THAN $50,000 A YEAR?"
1060 DATA "G= YES."
1070 DATA " I=NO."
1080 DATA 2,"GI"
1090 DATA "+++SCHOOLING+++"
1100 DATA "J= IF YOU HAVE FINISHED COLLEGE."
1110 DATA "L= IF YOU HAVE FINISHED COLLEGE WITH A GRADUATE"
1120 DATA "OR PROFESSIONAL DEGREE."
1130 DATA " I= NOTHING LISTED."
1140 DATA 3,"JLI"
1150 DATA "+++AGE+++"
1160 DATA "ARE YOU 65 OR OLDER AND STILL WORKING?"
1170 DATA "L= YES."
1180 DATA " I= NO."
1190 DATA 2,"LI"
1200 DATA "+++HEREDITY+++"
1210 DATA "K= IF ANY GRANDPARENTS LIVED TO 85 YEARS OLD."
1220 DATA "O= IF ALL FOUR GRANDPARENTS LIVED TO 80 YEARS OLD."
1230 DATA " I= NO GRANDPARENTS QUALIFY IN THE ABOVE."
1240 DATA 3,"KOI"
1250 DATA "HAS ANY PARENT DIED OF STROKE OR HEART ATTACK"
1260 DATA "BEFORE THE AGE OF 50?"
1270 DATA "E= YES."
1280 DATA " I= NO."
1290 DATA 2,"EI"
1300 DATA "+++FAMLILY DISEASES+++"
1310 DATA "ANY PARENT, BROTHER, OR SISTER UNDER 50 HAS (OR HAD) "
1320 DATA "CANCER, A HEART CONDITION, OR DIABETES SINCE CHILDHOOD?"
1330 DATA "M= YES."
1340 DATA " I= NO."
1350 DATA 2,"MI"
1360 DATA "+++HEALTH+++"
1365 DATA "HOW MUCH DO YOU SMOKE?"
1370 DATA "A= IF YOU SMOKE MORE THAN TWO PACKS A DAY."
1380 DATA "C= ON TO TWO PACKS A DAY."
1390 DATA "M= ONE HALF TO ONE PACK A DAY."
1400 DATA " I= DON'T SMOKE."
1410 DATA 4,"ACMI"
1420 DATA "+++DRINK+++"
1430 DATA "DO YOU DRINK THE EQUIVALENT OF A "
1440 DATA "QUARTER BOTTLE OF ALCOHOLIC BEVERAGE A DAY?"
1450 DATA "H= YES."
1460 DATA " I= NO."
1470 DATA 2,"HI"
1480 DATA "+++WEIGHT+++"
1490 DATA "A= IF YOU ARE OVERWEIGHT BY 50 POUNDS OR MORE."
1500 DATA "E= OVER BY 30-50 POUNDS."
1510 DATA "G= OVER BY 10-30 POUNDS."
1520 DATA " I= NOT OVER WEIGHT."
1530 DATA 4,"AEGI"
1540 DATA "+++CHECKUPS+++"
1550 DATA "DO YOU?  IF YOU ARE A MALE OVER 40 HAVE AN ANNUAL CHECKUP?"
1560 DATA "K= YES."
1570 DATA " I= IF NO OR NOT A MALE OR UNDER 40 YEARS OLD."
1580 DATA 2,"KI"
1590 DATA "DO YOU?  IF YOU ARE A WOMAN SEE A GYNECOLOGIST ONCE A YEAR?"
1600 DATA "K= YES."
1610 DATA " I= IF NO OR NOT A WOMAN."
1620 DATA 2,"KI"
1630 DATA "+++CURRENT AGE+++"
1640 DATA "K= IF YOU ARE BETWEEN 30 AND 40 YEARS OLD."
1650 DATA "L= BETWEEN 40 AND 50."
1660 DATA "F= BETWEEN 50 AND 70."
1670 DATA "N= OVER 70."
1680 DATA " I= UNDER 30."
1690 DATA 5,"KLFNI"
1700 FOR Q%=1% TO 7%
1710   READ Q$
1720   IF LEFT$(Q$,1%)=" " THEN 1750
1730   ; "  " Q$
1740 NEXT Q% 
1750 ; " " Q$
1760 READ C%,C$
1770 ; "CHOOSE ONE OF THE LETTERS ABOVE";
1780 INPUT G$
1790 FOR C2%=1% TO C%
1800   IF LEFT$(G$,1%)=MID$(C$,C2%,1%) THEN 1830
1810 NEXT C2% 
1820 GOTO 1770
1830 ; 
1840 FOR N%=1% TO 15%
1850   IF LEFT$(G$,1%)=MID$(A$,N%,1%) THEN 1870
1860 NEXT N% 
1870 M%=N%-9%
1880 Z%=Z%+M%
1890 GOTO 510
1900 ; "YOU ARE EXPECTED TO LIVE TO THE AGE OF" Z% "YEARS."
1910 IF Z%<60% THEN 1980
1920 FOR Y%=60% TO Z% STEP 5%
1930   READ M$,F$
1940 NEXT Y% 
1950 DATA "26%","15%","36%","20%","48%","30%","61%","39%"
1960 DATA 75%","53%","87%","70%","96%","88%","99.9%","99.6%"
1970 ; "OUT LIVING " M$ " OF THE MEN AND " F$ " OF THE WOMEN."
1980 END