$ LIFE EXPECTANCY SEPT 1979*O ANDY GAMPLE COLUMBIA COLLEGEr 1619 W 10 AVE VANCOUVER BCx FROM 'PUBLIC DOMAIN',MSE,SVP COMPUTES LIFE EXPECTANCY PET 8K ADAPTED FROM CREATIVE COMPUTING BOOK 2S " ݠ SAN MATEO COUNTY " OFFICE OF EDUCATION & " COMPUTER-USING EDUCATORS SOFTSWAP = " "333 MAIN STREET, REDWOOD CITY CA 94063 (415)364-5600 EX4401 " ' " PROGRAMS MAY BE COPIED FOR EDUSATIONAL USE ONLY AND u " ARE NOT TO BE SOLD. (147);" LIFE EXPECTANCY"::: "THIS IS A TEST TO PREDICT HOW LONG YOU'LL LIVE. "; "I'LL ASK YOU A SERIES OF SHORT QUESTIONS, ";X "WHICH YOU WILL ANSWER BY PRESSING THE APPROPRIATE KEY.":z " DO NOT PRESS RETURN" :: R51 Z72:A$"ABCDEMGHIJKLFNO" 1440 R5R51 R5211620 "++++++++++SEX+++++++++++" "ARE YOU MALE OR FEMALE?" ""M=MALE"/ ," F=FEMALE"; 62,"MF"^ @"+++++++LIFE STYLE++++++++++"x J"WHERE DO YOU LIVE?" T"G=CITY OVER 2 MILLION" ^"K=TOWN UNDER 10 000, OR A FARM" h" I=NEITHER" r3,"GKI" |"+++HOW DO YOU WORK?+++" "M=DESK WORK"*"L=HEAVY PHYSICAL LABOUR"<" I=NEITHER"I3,"MLI"v"HOW LONG DO YOU EXERCISE STRENUOUSLY:""(TENNIS, RUNNING, ETC)?""F=5TIMES A WEEK FOR AT LEAST HALF AN HOUR""K=2 OR 3 TIMES A WEEK"" I=NEITHER"3,"FKI"*"+++WHO DO YOU LIVE WITH?+++"K"N=SPOUSE,FRIEND OR FAMILY"o"H=LIVED ALONE FOR 1-10 YEARS""G=LIVED ALONE FOR 11-20 YEARS""M=LIVED ALONE FOR 21-30 YEARS""E=LIVED ALONE FOR 31-40 YEARS" &" D=LIVED ALONE FOR MORE THAN 40 YEARS"06,"NHGMED";:"++++++++PSYCHE++++++++++"qD"DO YOU SLEEP MORE THAN 10 HOURS A NIGHT?"}N"I=NO"X" E=YES"b2,"IE"l"++++++MENTAL STATE+++++++"v"M=IF YOU ARE INTENSE,AGGRESSIVE OR EASILY ANGERED"2"L=IF YOU ARE EASY-GOING, RELAXED OR A FOLLOWER"D" I=NEITHER"Q3,"MLI"s"++++++HOW YOU FEEL++++++++""ARE YOU HAPPY OR UNHAPPY?""J=HAPPY""G=UNHAPPY"" I=NEITHER"3,"JGI""++++++FACTORS+++++++")"HAVE YOU HAD A SPEEDING TICKET IN THE LAST YEAR?"6"H=YES"C" I=NO"O2,"HI"i "++++++INCOME++++++""DO YOU EARN MORE THAN $50 000 A YEAR?" "G=YES"*" I=NO"42,"GI">"++++++SCHOOLING++++++"H"J=FINISHED COLLEGE"R"L=GRADUATE OR PROFESSIONAL DEGREE".\" I=NEITHER";f3,"JLI"Xp"++++++++AGE++++++++++"z"ARE YOU 65 OR OLDER AND STILL WORKING?""L=YES"" I=NO"2,"LI""+++++++HEREDITY++++++++""K=IF ANY GRANDPARENTS LIVED TO 85 YEARS OLD"A"O=IF ALL GRANDPARENTS LIVED TO 80 YEARS OLD"S" I=NEITHER"`3,"KOI""HAS ANY PARENT DIED OF A STROKE""OR HEART ATTACK BEFORE THE AGE OF 50?""E=YES"" I=NO"2,"EI""+++FAMILY DISEASES+++"4"ANY PARENT, BROTHER OR SISTER UNDER 5 HAS (OR HAD):"t"CANCER, A HEART CONDITION OR DIABETES SINCE CHILDHOOD?"$"M=YES"." I=NO"82,"MI"B"+++++HEALTH+++++"L"HOW MUCH TOBACCO DO YOU SMOKE?"V"A=MORE THAN 2 PACKS A DAY"`"C=1 TO 2 PACKS A DAY"9j"M=ONE HALF TO ONE PACK A DAY"Ot" I=DON'T SMOKE"]~4,"ACMI"w"++++++DRINK+++++++""DO YOU DRINK THE EQUIVALENT OF A ""QUARTER BOTTLE OF LIQUOR A DAY?""H=YES"" I=NO"2,"HI""+;++++WEIGHT++++++"0"A=OVERWEIGHT BY 50 POUNDS OR MORE"N"E=OVER BY 30-50 POUNDS"l"G=OVER BY 10-30 POUNDS"" I=NOT OVERWEIGHT"4,"AEGI""++++++CHECK-UPS+++++++" "IF A MALE OVER 40: DO YOU HAVE AN ANNUAL CHECK-UP?" "K=YES"@" I=NO OR NOT A MALE OR UNDER 40 YEARS OLD"L(2,"KI"2"IF A WOMAN: DO YOU SEE A GYNECOLOGIST ONCE A YEAR?"<"K=YES"F" I=NO OR NOT A WOMAN"P2,"KI"Z"++++++CURRENT AGE++++++"d"I=UNDER 30"n"K=BETWEEN 30 AND 40 YEARS OLD"Dx"L=BETWEEN 40 AND 50 YEARS OLD"i"F=BETWEEN 50 AND 70 YEARS OLD"{" N=OVER 70"5,"KLFNI"Q$:Q$:Q27:Q$(Q$,1)" "1490" ";Q$Q" ";Q$:C,C$ :"CHOOSE ONE OF THE LETTERS ABOVE";!G$:G$""1510)G$5C21CR(G$,1)(C$,C2,1)1570ZC2d1500t"(147)::,N1156(G$,1)(A$,N,1)1610@JMN9:ZZM:250T::"YOU ARE EXPECTED TO LIVE TO THE AGE OF "Z" YEARS."^Z601700hY60Z5rM$,F$$|YY"26%","15%","36%","20%","48%","30%","61%","39%""75%","53%","87%","70%","96%","88%","99.9%","99.6%""OUT-LIVING "M$" OF THE MEN AND "F$" OF THE WOMEN."I19:AA$:I::"ANOTHER RUN (Y/N)?";AA$:AA$""1720)AA$:AA$"Y"110/ MEN AND "F$" OF THE WOMEN."I19:AA$:I::"ANOTHER RUN (Y/N)?";