--- title: "Life Expectancy (Syntax)" id: 76489 type: "computer_media" slug: "life-expectancy-syntax" url: "http://localhost/computer_media/life-expectancy-syntax/" markdown_url: "http://localhost/computer_media/life-expectancy-syntax.md" published_at: "2026-11-11T08:02:31+00:00" modified_at: "2026-11-11T08:02:31+00:00" author: "David Anderson" featured_image: url: "http://localhost/wp-content/uploads/2026/11/life-expectancy-syntax-1.png" excerpt: "Answer 22 questions about your health, habits and family, and the program estimates your life expectancy." post_tag: - name: "Downloadable" slug: "downloadable" taxonomy: "post_tag" url: "http://localhost/tag/downloadable/" - name: "TS 1000" slug: "ts1000" taxonomy: "post_tag" url: "http://localhost/tag/ts1000/" - name: "ZX81" slug: "zx81" taxonomy: "post_tag" url: "http://localhost/tag/zx81/" model: - name: "Sinclair ZX81" slug: "zx81" taxonomy: "model" url: "http://localhost/model/zx81/" - name: "Timex/Sinclair 1000" slug: "ts-1000" taxonomy: "model" url: "http://localhost/model/ts-1000/" indiv: - name: "Wilfried Eder" slug: "wilfried-eder" taxonomy: "indiv" url: "http://localhost/indiv/wilfried-eder/" genre: - name: "Home" slug: "home" taxonomy: "genre" url: "http://localhost/type/home/" media_type: "Program" programmers: - name: "Wilfried Eder" slug: "wilfried-eder" taxonomy: "indiv" url: "http://localhost/indiv/wilfried-eder/" download_url: "https://archive.org/download/timex-sinclair-software-archive/Life%20Expectancy%20%281983%29%28Eder%2C%20Wilfried%29%28TS1000%29%28US%29%28Program%29.zip" mediadate: "1983" images: - url: "http://localhost/wp-content/uploads/2026/11/life-expectancy-syntax-1.png" - url: "http://localhost/wp-content/uploads/2026/11/life-expectancy-syntax-2.png" - url: "http://localhost/wp-content/uploads/2026/11/life-expectancy-syntax-3.png" article_media: - id: 19463 title: "Life Expectancy" type: "article" url: "http://localhost/article/life-expectancy/" media_type_tags: "Home" license: false --- # Life Expectancy (Syntax) 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](https://timexsinclair.com/article/life-expectancy/)). ## 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 STOP ```