A life expectancy quiz for adults from 20 to 65. The program asks 22 questions, most answered 1 for yes and 2 for no: sex, where you live, your work, exercise, living arrangements, sleep, temperament, happiness, speeding tickets, income, education, family history, smoking, drinking, weight, check-ups and age. Each answer adds or takes away years, and at the end the program prints your life expectancy.
If you make a mistake, the article suggests typing XX to stop the program, then going to the line ten lower than the one in the error report to pick up where you left off.
Published in Syntax April 1983 (Life Expectancy).
Image Gallery
Source Code
1 REM "LIFE EXPECTANCY CALCULATOR"
10 PRINT "LIFE EXPECTANCY CALCULATION FOR ADULTS 20 TO 65 YRS,OF AGE"
20 PRINT
30 PRINT "TYPE""1""FOR YES,""2""FOR NO, TO ANSWER QUESTIONS"
40 LET A=72
46 PRINT
50 PRINT "ARE YOU MALE?"
60 INPUT B
70 IF B=1 THEN LET A=A-3
80 IF B=2 THEN LET A=A+4
82 CLS
84 PRINT "1=YES","2=NO"
86 PRINT
90 PRINT "DO YOU LIVE IN AN URBAN AREA (POPULATION >2 MILLION)?"
100 INPUT B
110 IF B=1 THEN LET A=A-2
111 IF B=1 THEN GOTO 141
112 CLS
114 PRINT "1=YES","2=NO"
116 PRINT
120 IF B=2 THEN PRINT "DO YOU LIVE IN A TOWN(POPULATION<10,000)?"
130 INPUT B
140 IF B=1 THEN LET A=A+2
142 CLS
144 PRINT
150 PRINT "IF YOU WORK BEHIND A DESK,TYPE ""1"";IF YOUR JOB REQUIRES REGULARHEAVY PHYSICAL LABOR,TYPE""2""."
160 INPUT B
170 IF B=1 THEN LET A=A-3
180 IF B=2 THEN LET A=A+3
182 CLS
184 PRINT
190 PRINT "IF YOU EXERCISE STRENOUSLY MORE THAN 5 1/2 HR.SESSIONS/WK.TYPE ""2"";IF YOU DO 2-3 TIMES/WK.TYPE""1"";IF NOT AT ALL,TYPE""0""."
200 INPUT B
210 IF B=2 THEN LET A=A+4
220 IF B=1 THEN LET A=A+2
230 IF B=0 THEN LET A=A
232 CLS
234 PRINT
240 PRINT "TYPE""1""IF YOU LIVE WITH A SPOUSE OR FRIEND.IF NOT,TYPE""2""."
250 INPUT B
260 IF B=1 THEN LET A=A+5
262 CLS
264 PRINT
270 PRINT "IF YOU LIVE ALONE,TYPE NUMBER OF DECADES YOU HAVE LIVED WITHOUT OTHERS SINCE YOU REACHED AGE25.OTHERWISE TYPE""0"""
280 INPUT B
290 LET A=A-B
292 CLS
294 PRINT "1=YES","2=NO"
296 PRINT
300 PRINT "DO YOU SLEEP MORE THAN 10 HOURS A NIGHT?"
310 INPUT B
320 IF B=1 THEN LET A=A-4
322 CLS
324 PRINT
330 PRINT "IF YOU ARE INTENSE,AGRESSIVE. EASILY ANGERED,TYPE""1""."
332 PRINT
340 PRINT "IF YOU ARE EASY GOING,RELAXED,A ""FOLLOWER"",TYPE""2""."
350 INPUT B
360 IF B=1 THEN LET A=A-3
370 IF B=2 THEN LET A=A+3
372 CLS
374 PRINT
380 PRINT "IF YOU ARE HAPPY,TYPE""1"";IF NOT TYPE""2""."
390 INPUT B
400 IF B=1 THEN LET A=A+1
410 IF B=2 THEN LET A=A-2
412 CLS
414 PRINT "1=YES","2=NO"
416 PRINT
420 PRINT "DID YOU HAVE A SPEEDING TICKET WITHIN THE LAST YEAR?"
430 INPUT B
440 IF B=1 THEN LET A=A-1
442 CLS
444 PRINT "1=YES","2=NO"
446 PRINT
450 PRINT "DO YOU EARN MORE THAN 50,000/YR?"
460 INPUT B
470 IF B=1 THEN LET A=A-2
472 CLS
474 PRINT
480 PRINT "IF YOU FINISHED COLLEGE,TYPE""1"";IF GRADUATE SCHOOL,TYPE""2"";IF NEITHER,TYPE""0""."
490 INPUT B
500 LET A=A+B
512 CLS
514 PRINT
520 PRINT "IF YOU ARE 65 OR OVER AND STILL WORKING,TYPE""1"";OTHERWISE TYPE ""2""."
530 INPUT B
540 IF B=1 THEN LET A=A+3
542 CLS
544 PRINT
550 PRINT "IF ANY OF YOUR GRANDPARENTS LIVED TO BE 85 OR OVER,TYPE""2""IF ALL 4 LIVED TO BE 80 OR OVER TYPE""6"",IF NOT TYPE""0""."
560 INPUT B
570 LET A=A+B
572 CLS
574 PRINT "1=YES","2=NO"
576 PRINT
580 PRINT "DID EITHER OF YOUR PARENTS DIE OF STROKE/HEART ATTACK BEFORE AGE 50?"
590 INPUT B
600 IF B=1 THEN LET A=A-4
602 CLS
604 PRINT "1=YES","2=NO"
606 PRINT
610 PRINT "HAVE ANY OF YOUR PARENTS OR BROTHERS/SISTERS UNDER AGE 50 HAD A HEART CONDITION,CANCER OR CHILDHOOD DIABETES?"
620 INPUT B
630 IF B=1 THEN LET A=A-3
632 CLS
634 PRINT
640 PRINT "IF YOU SMOKE CIGARETTES,TYPE""8"" IF MORE THAN 2 PACKS/DAY;TYPE""6""IF 1-2 PACKS/DAY;TYPE""3""IF 1/2-1 PACK/DAY.TYPE""0""IF YOU DO NOT SMOKE."
650 INPUT B
660 LET A=A-B
662 CLS
664 PRINT "1=YES","2=NO"
666 PRINT
670 PRINT "DO YOU DRINK THE EQUIVALENT OF 1/4 BOTTLE LIQUOR A DAY?"
680 INPUT B
690 IF B=1 THEN LET A=A-1
692 CLS
694 PRINT
700 PRINT "IF YOU ARE OVERWEIGHT,TYPE""8""IF BY >50 LBS.TYPE""4""IF BY 30 TO 50 LBS.TYPE""2""IF BY 10 TO 30 LBS. OTHERWISE TYPE""0""."
710 INPUT B
720 LET A=A-B
722 CLS
724 PRINT
730 PRINT "IF YOU ARE MALE AND HAVE AN ANNUAL CHECK-UP OR IF YOU ARE FEMALE AND SEE A GYNECOLOGIST ANNUALLY,TYPE""2"",OTHERWISE TYPE ""0""."
740 INPUT B
750 LET A=A+B
752 CLS
754 PRINT
760 PRINT "TYPE""2""IF YOU ARE BETWEEN 30-40;""3""IF BETWEEN 40-50;""4"" BETWEEN 50-60;""5""IF>70"
770 INPUT B
780 LET A=A+B
782 CLS
784 PRINT
790 PRINT "YOUR LIFE EXPECTANCY IS:";A;" YEARS"
800 STOPNote: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.