Life Expectancy

This program calculates your life expectancy based on data you input on habits and family history.

Enter Life Expectancy as listed and RUN. Follow the directions on the screen. If you make a mistake, enter XX to restart. You’ll get an error code followed by a line number. Subtract 10 from the line number and GOTO the result to continue with Life Expectancy.

By subtracting 10 and going back to the previous line number, you can continue instead of starting over in the middle of program execution. The method that allows this is an input after a prompt and incrementing in your program by 10.–Ed.

   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 STOP
SYNTACTIC SUM:  57181, 8K ROM