Multiple names: LIFE EXPECTANCY, LIFE EXPECT, 6.LIFE EXPECT, LIFE EXPECT.C
FILE INFORMATION
FILENAME(S):
• LIFE EXPECTANCY<br>• LIFE EXPECT<br>• 6.LIFE EXPECT<br>• LIFE EXPECT.C
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-10-19 22:35:37
APPEARS ON: 11 disk(s)
FILE HASH
b7a7b5dda7e89275480e42cc799a05d8a349da496eee16d910f9f3e5d3163119
FOUND ON DISKS (11 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MAGIC TRICKS | LIFE EXPECTANCY | PRG | Radd Maxx | 9 | 2 | DOWNLOAD FILE |
| ECOSOFT FREI PRG | LIFE EXPECT | PRG | Treasure Chest - Klaus Der Suhler | 3 | 1 | DOWNLOAD FILE |
| 64 COLLECTION 2 | LIFE EXPECTANCY | PRG | Treasure Chest - LehrerMIL | 11 | 19 | DOWNLOAD FILE |
| 024A | LIFE EXPECT | PRG | Treasure Chest - Plattfuss | 3 | 1 | DOWNLOAD FILE |
| PUBLIC DOMAIN | LIFE EXPECT | PRG | Treasure Chest - ToGuMi | 1 | 2 | DOWNLOAD FILE |
| D IVERSE | 6.LIFE EXPECT | PRG | Treasure Chest - Wolfgang Rauprich | 23 | 9 | DOWNLOAD FILE |
| PUBLIC DOMAIN | LIFE EXPECT | PRG | Treasure Chest - Wolfgang Rauprich | 7 | 4 | DOWNLOAD FILE |
| FREEWARE DISK NR | 6.LIFE EXPECT | PRG | Treasure Chest - Wolfgang Rauprich | 23 | 9 | DOWNLOAD FILE |
| TALENTED RULERZ | LIFE EXPECTANCY | PRG | High Voltage Complete C64 Collection | 23 | 3 | DOWNLOAD FILE |
| ECOSOFT FREI PRG | LIFE EXPECT | PRG | Curtcool, LPN | 3 | 1 | DOWNLOAD FILE |
| SIKKERHEDSKOPIER | LIFE EXPECT.C | PRG | Curtcool, Misc | 33 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 01 00 8F 20 20 4C 49 46 45 20 45 58 |..$.... LIFE EX|
00000010: 50 45 43 54 41 4E 43 59 20 20 20 53 45 50 54 20 |PECTANCY SEPT |
00000020: 31 39 37 39 00 2A 08 02 00 8F 00 4F 08 03 00 8F |1979.*.....O....|
00000030: 20 20 41 4E 44 59 20 47 41 4D 50 4C 45 20 20 43 | ANDY GAMPLE C|
00000040: 4F 4C 55 4D 42 49 41 20 43 4F 4C 4C 45 47 45 00 |OLUMBIA COLLEGE.|
00000050: 72 08 04 00 8F 20 20 31 36 31 39 20 57 20 31 30 |r.... 1619 W 10|
00000060: 20 41 56 45 20 20 56 41 4E 43 4F 55 56 45 52 20 | AVE VANCOUVER |
00000070: 42 43 00 78 08 05 00 8F 00 9C 08 06 00 8F 20 20 |BC.x.......... |
00000080: 46 52 4F 4D 20 27 50 55 42 4C 49 43 20 44 4F 4D |FROM 'PUBLIC DOM|
00000090: 41 49 4E 27 2C 4D 53 45 2C 53 56 50 00 A2 08 07 |AIN',MSE,SVP....|
000000A0: 00 8F 00 C2 08 08 00 8F 20 20 43 4F 4D 50 55 54 |........ COMPUT|
000000B0: 45 53 20 4C 49 46 45 20 45 58 50 45 43 54 41 4E |ES LIFE EXPECTAN|
000000C0: 43 59 00 D1 08 09 00 8F 20 20 50 45 54 20 20 38 |CY...... PET 8|
000000D0: 4B 00 F7 08 0A 00 8F 20 41 44 41 50 54 45 44 20 |K...... ADAPTED |
000000E0: 46 52 4F 4D 20 43 52 45 41 54 49 56 45 20 43 4F |FROM CREATIVE CO|
000000F0: 4D 50 55 54 49 4E 47 00 05 09 0B 00 8F 20 20 42 |MPUTING...... B|
00000100: 4F 4F 4B 20 32 00 53 09 0C 00 8F 22 B0 C0 C0 C0 |OOK 2.S...."....|
00000110: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000120: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 20 20 20 20 20 |........... |
00000130: 20 20 20 20 DD A0 20 20 20 20 20 20 53 41 4E 20 | .. SAN |
00000140: 4D 41 54 45 4F 20 43 4F 55 4E 54 59 20 20 20 20 |MATEO COUNTY |
00000150: 20 A0 DD 00 A1 09 0D 00 8F 22 DD 20 20 20 20 20 | ........". |
00000160: 4F 46 46 49 43 45 20 4F 46 20 45 44 55 43 41 54 |OFFICE OF EDUCAT|
00000170: 49 4F 4E 20 20 20 20 20 DD 20 20 20 20 20 20 20 |ION . |
00000180: 20 20 DD 20 20 20 20 20 20 20 20 20 20 20 20 20 | . |
00000190: 26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |& |
000001A0: DD 00 EF 09 0E 00 8F 22 DD 20 20 43 4F 4D 50 55 |.......". COMPU|
000001B0: 54 45 52 2D 55 53 49 4E 47 20 45 44 55 43 41 54 |TER-USING EDUCAT|
000001C0: 4F 52 53 20 20 20 DD 20 20 20 20 20 20 20 20 20 |ORS . |
000001D0: DD 20 20 20 20 20 20 20 20 20 20 53 4F 46 54 53 |. SOFTS|
000001E0: 57 41 50 20 20 20 20 20 20 20 20 20 20 20 DD 00 |WAP ..|
000001F0: 3D 0A 0F 00 8F 22 DD 20 20 20 20 20 20 20 20 20 |=....". |
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000210: 20 20 20 20 DD 20 20 20 20 20 20 20 20 20 DD 20 | . . |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 DD 00 8B 0A | ....|
00000240: 10 00 8F 22 DD 33 33 33 20 4D 41 49 4E 20 53 54 |...".333 MAIN ST|
00000250: 52 45 45 54 2C 20 52 45 44 57 4F 4F 44 20 43 49 |REET, REDWOOD CI|
00000260: 54 59 DD 20 20 20 20 20 20 20 20 20 DD 43 41 20 |TY. .CA |
00000270: 39 34 30 36 33 20 28 34 31 35 29 33 36 34 2D 35 |94063 (415)364-5|
00000280: 36 30 30 20 45 58 34 34 30 31 DD 00 D9 0A 11 00 |600 EX4401......|
00000290: 8F 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |."..............|
000002A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000002B0: BD 20 20 20 20 20 20 20 20 20 B0 C0 C0 C0 C0 C0 |. ......|
000002C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000002D0: C0 C0 C0 C0 C0 C0 C0 C0 AE 00 27 0B 12 00 8F 22 |..........'...."|
000002E0: DD 20 50 52 4F 47 52 41 4D 53 20 4D 41 59 20 42 |. PROGRAMS MAY B|
000002F0: 45 20 43 4F 50 49 45 44 20 46 4F 52 20 20 DD 20 |E COPIED FOR . |
00000300: 20 20 20 20 20 20 20 20 DD 20 45 44 55 53 41 54 | . EDUSAT|
00000310: 49 4F 4E 41 4C 20 55 53 45 20 4F 4E 4C 59 20 41 |IONAL USE ONLY A|
00000320: 4E 44 20 20 20 20 DD 00 75 0B 13 00 8F 22 DD 20 |ND ..u....". |
00000330: 41 52 45 20 4E 4F 54 20 54 4F 20 42 45 20 53 4F |ARE NOT TO BE SO|
00000340: 4C 44 2E 20 20 20 20 20 20 20 20 20 DD 20 20 20 |LD. . |
00000350: 20 20 20 20 20 20 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 | ..........|
00000360: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000370: C0 C0 C0 C0 BD 00 9E 0B 96 00 99 C7 28 31 34 37 |............(147|
00000380: 29 3B 22 20 20 20 20 12 4C 49 46 45 20 45 58 50 |);" .LIFE EXP|
00000390: 45 43 54 41 4E 43 59 22 3A 99 3A 99 3A 99 00 A4 |ECTANCY":.:.:...|
000003A0: 0B A0 00 8C 00 E2 0B AA 00 99 22 54 48 49 53 20 |.........."THIS |
000003B0: 49 53 20 41 20 54 45 53 54 20 54 4F 20 50 52 45 |IS A TEST TO PRE|
000003C0: 44 49 43 54 20 48 4F 57 20 4C 4F 4E 47 20 20 20 |DICT HOW LONG |
000003D0: 20 20 20 59 4F 55 27 4C 4C 20 4C 49 56 45 2E 20 | YOU'LL LIVE. |
000003E0: 22 3B 00 17 0C B4 00 99 22 49 27 4C 4C 20 41 53 |";......"I'LL AS|
000003F0: 4B 20 59 4F 55 20 41 20 53 45 52 49 45 53 20 4F |K YOU A SERIES O|
00000400: 46 20 20 20 53 48 4F 52 54 20 51 55 45 53 54 49 |F SHORT QUESTI|
00000410: 4F 4E 53 2C 20 22 3B 00 58 0C BE 00 99 22 57 48 |ONS, ";.X...."WH|
00000420: 49 43 48 20 59 4F 55 20 57 49 4C 4C 20 41 4E 53 |ICH YOU WILL ANS|
00000430: 57 45 52 20 20 42 59 20 50 52 45 53 53 49 4E 47 |WER BY PRESSING|
00000440: 20 54 48 45 20 41 50 50 52 4F 50 52 49 41 54 45 | THE APPROPRIATE|
00000450: 20 4B 45 59 2E 22 3A 99 00 7A 0C C8 00 99 22 20 | KEY.":..z...." |
00000460: 20 20 20 20 20 12 44 4F 20 4E 4F 54 20 50 52 45 | .DO NOT PRE|
00000470: 53 53 20 52 45 54 55 52 4E 22 00 84 0C D2 00 99 |SS RETURN"......|
00000480: 3A 99 3A 99 00 8D 0C DC 00 52 35 B2 31 00 AB 0C |:.:......R5.1...|
00000490: E6 00 5A B2 37 32 3A 41 24 B2 22 41 42 43 44 45 |..Z.72:A$."ABCDE|
000004A0: 4D 47 48 49 4A 4B 4C 46 4E 4F 22 00 B5 0C F0 00 |MGHIJKLFNO".....|
000004B0: 89 31 34 34 30 00 C1 0C FA 00 52 35 B2 52 35 AA |.1440.....R5.R5.|
000004C0: 31 00 D1 0C 04 01 8B 52 35 B1 32 31 A7 31 36 32 |1......R5.21.162|
000004D0: 30 00 F1 0C 0E 01 83 22 2B 2B 2B 2B 2B 2B 2B 2B |0......"++++++++|
000004E0: 2B 2B 53 45 58 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++SEX+++++++++++|
000004F0: 22 00 10 0D 18 01 83 22 41 52 45 20 59 4F 55 20 |"......"ARE YOU |
00000500: 4D 41 4C 45 20 4F 52 20 46 45 4D 41 4C 45 3F 22 |MALE OR FEMALE?"|
00000510: 00 1E 0D 22 01 83 22 4D 3D 4D 41 4C 45 22 00 2F |...".."M=MALE"./|
00000520: 0D 2C 01 83 22 20 46 3D 46 45 4D 41 4C 45 22 00 |.,.." F=FEMALE".|
00000530: 3B 0D 36 01 83 32 2C 22 4D 46 22 00 5E 0D 40 01 |;.6..2,"MF".^.@.|
00000540: 83 22 2B 2B 2B 2B 2B 2B 2B 4C 49 46 45 20 53 54 |."+++++++LIFE ST|
00000550: 59 4C 45 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 22 00 78 |YLE++++++++++".x|
00000560: 0D 4A 01 83 22 57 48 45 52 45 20 44 4F 20 59 4F |.J.."WHERE DO YO|
00000570: 55 20 4C 49 56 45 3F 22 00 95 0D 54 01 83 22 47 |U LIVE?"...T.."G|
00000580: 3D 43 49 54 59 20 4F 56 45 52 20 32 20 4D 49 4C |=CITY OVER 2 MIL|
00000590: 4C 49 4F 4E 22 00 BB 0D 5E 01 83 22 4B 3D 54 4F |LION"...^.."K=TO|
000005A0: 57 4E 20 55 4E 44 45 52 20 31 30 20 30 30 30 2C |WN UNDER 10 000,|
000005B0: 20 4F 52 20 41 20 46 41 52 4D 22 00 CD 0D 68 01 | OR A FARM"...h.|
000005C0: 83 22 20 49 3D 4E 45 49 54 48 45 52 22 00 DA 0D |." I=NEITHER"...|
000005D0: 72 01 83 33 2C 22 47 4B 49 22 00 F8 0D 7C 01 83 |r..3,"GKI"...|..|
000005E0: 22 2B 2B 2B 48 4F 57 20 44 4F 20 59 4F 55 20 57 |"+++HOW DO YOU W|
000005F0: 4F 52 4B 3F 2B 2B 2B 22 00 0B 0E 86 01 83 22 4D |ORK?+++"......"M|
00000600: 3D 44 45 53 4B 20 57 4F 52 4B 22 00 2A 0E 90 01 |=DESK WORK".*...|
00000610: 83 22 4C 3D 48 45 41 56 59 20 50 48 59 53 49 43 |."L=HEAVY PHYSIC|
00000620: 41 4C 20 4C 41 42 4F 55 52 22 00 3C 0E 9A 01 83 |AL LABOUR".<....|
00000630: 22 20 49 3D 4E 45 49 54 48 45 52 22 00 49 0E A4 |" I=NEITHER".I..|
00000640: 01 83 33 2C 22 4D 4C 49 22 00 76 0E AE 01 83 22 |..3,"MLI".v...."|
00000650: 48 4F 57 20 4C 4F 4E 47 20 44 4F 20 59 4F 55 20 |HOW LONG DO YOU |
00000660: 45 58 45 52 43 49 53 45 20 53 54 52 45 4E 55 4F |EXERCISE STRENUO|
00000670: 55 53 4C 59 3A 22 00 95 0E B8 01 83 22 28 54 45 |USLY:"......"(TE|
00000680: 4E 4E 49 53 2C 20 52 55 4E 4E 49 4E 47 2C 20 45 |NNIS, RUNNING, E|
00000690: 54 43 29 3F 22 00 CB 0E C2 01 83 22 46 3D 35 54 |TC)?"......"F=5T|
000006A0: 49 4D 45 53 20 41 20 57 45 45 4B 20 46 4F 52 20 |IMES A WEEK FOR |
000006B0: 41 54 20 4C 45 41 53 54 20 48 41 4C 46 20 41 4E |AT LEAST HALF AN|
000006C0: 20 20 20 20 20 20 48 4F 55 52 22 00 E8 0E CC 01 | HOUR".....|
000006D0: 83 22 4B 3D 32 20 4F 52 20 33 20 54 49 4D 45 53 |."K=2 OR 3 TIMES|
000006E0: 20 41 20 57 45 45 4B 22 00 FA 0E D6 01 83 22 20 | A WEEK"......" |
000006F0: 49 3D 4E 45 49 54 48 45 52 22 00 07 0F E0 01 83 |I=NEITHER"......|
00000700: 33 2C 22 46 4B 49 22 00 2A 0F EA 01 83 22 2B 2B |3,"FKI".*...."++|
00000710: 2B 57 48 4F 20 44 4F 20 59 4F 55 20 4C 49 56 45 |+WHO DO YOU LIVE|
00000720: 20 57 49 54 48 3F 2B 2B 2B 22 00 4B 0F F4 01 83 | WITH?+++".K....|
00000730: 22 4E 3D 53 50 4F 55 53 45 2C 46 52 49 45 4E 44 |"N=SPOUSE,FRIEND|
00000740: 20 4F 52 20 46 41 4D 49 4C 59 22 00 6F 0F FE 01 | OR FAMILY".o...|
00000750: 83 22 48 3D 4C 49 56 45 44 20 41 4C 4F 4E 45 20 |."H=LIVED ALONE |
00000760: 46 4F 52 20 31 2D 31 30 20 59 45 41 52 53 22 00 |FOR 1-10 YEARS".|
00000770: 94 0F 08 02 83 22 47 3D 4C 49 56 45 44 20 41 4C |....."G=LIVED AL|
00000780: 4F 4E 45 20 46 4F 52 20 31 31 2D 32 30 20 59 45 |ONE FOR 11-20 YE|
00000790: 41 52 53 22 00 B9 0F 12 02 83 22 4D 3D 4C 49 56 |ARS"......"M=LIV|
000007A0: 45 44 20 41 4C 4F 4E 45 20 46 4F 52 20 32 31 2D |ED ALONE FOR 21-|
000007B0: 33 30 20 59 45 41 52 53 22 00 DE 0F 1C 02 83 22 |30 YEARS"......"|
000007C0: 45 3D 4C 49 56 45 44 20 41 4C 4F 4E 45 20 46 4F |E=LIVED ALONE FO|
000007D0: 52 20 33 31 2D 34 30 20 59 45 41 52 53 22 00 0B |R 31-40 YEARS"..|
000007E0: 10 26 02 83 22 20 44 3D 4C 49 56 45 44 20 41 4C |.&.." D=LIVED AL|
000007F0: 4F 4E 45 20 46 4F 52 20 4D 4F 52 45 20 54 48 41 |ONE FOR MORE THA|
00000800: 4E 20 34 30 20 59 45 41 52 53 22 00 1B 10 30 02 |N 40 YEARS"...0.|
00000810: 83 36 2C 22 4E 48 47 4D 45 44 22 00 3B 10 3A 02 |.6,"NHGMED".;.:.|
00000820: 83 22 2B 2B 2B 2B 2B 2B 2B 2B 50 53 59 43 48 45 |."++++++++PSYCHE|
00000830: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 22 00 71 10 44 02 |++++++++++".q.D.|
00000840: 83 22 44 4F 20 59 4F 55 20 53 4C 45 45 50 20 4D |."DO YOU SLEEP M|
00000850: 4F 52 45 20 54 48 41 4E 20 31 30 20 48 4F 55 52 |ORE THAN 10 HOUR|
00000860: 53 20 41 20 20 20 20 20 20 20 4E 49 47 48 54 3F |S A NIGHT?|
00000870: 22 00 7D 10 4E 02 83 22 49 3D 4E 4F 22 00 8B 10 |".}.N.."I=NO"...|
00000880: 58 02 83 22 20 45 3D 59 45 53 22 00 97 10 62 02 |X.." E=YES"...b.|
00000890: 83 32 2C 22 49 45 22 00 B8 10 6C 02 83 22 2B 2B |.2,"IE"...l.."++|
000008A0: 2B 2B 2B 2B 4D 45 4E 54 41 4C 20 53 54 41 54 45 |++++MENTAL STATE|
000008B0: 2B 2B 2B 2B 2B 2B 2B 22 00 F8 10 76 02 83 22 4D |+++++++"...v.."M|
000008C0: 3D 49 46 20 59 4F 55 20 41 52 45 20 49 4E 54 45 |=IF YOU ARE INTE|
000008D0: 4E 53 45 2C 41 47 47 52 45 53 53 49 56 45 20 4F |NSE,AGGRESSIVE O|
000008E0: 52 20 20 20 20 20 20 20 20 45 41 53 49 4C 59 20 |R EASILY |
000008F0: 41 4E 47 45 52 45 44 22 00 32 11 80 02 83 22 4C |ANGERED".2...."L|
00000900: 3D 49 46 20 59 4F 55 20 41 52 45 20 45 41 53 59 |=IF YOU ARE EASY|
00000910: 2D 47 4F 49 4E 47 2C 20 52 45 4C 41 58 45 44 20 |-GOING, RELAXED |
00000920: 4F 52 20 41 20 20 20 20 20 46 4F 4C 4C 4F 57 45 |OR A FOLLOWE|
00000930: 52 22 00 44 11 8A 02 83 22 20 49 3D 4E 45 49 54 |R".D...." I=NEIT|
00000940: 48 45 52 22 00 51 11 94 02 83 33 2C 22 4D 4C 49 |HER".Q....3,"MLI|
00000950: 22 00 73 11 9E 02 83 22 2B 2B 2B 2B 2B 2B 48 4F |".s...."++++++HO|
00000960: 57 20 59 4F 55 20 46 45 45 4C 2B 2B 2B 2B 2B 2B |W YOU FEEL++++++|
00000970: 2B 2B 22 00 94 11 A8 02 83 22 41 52 45 20 59 4F |++"......"ARE YO|
00000980: 55 20 48 41 50 50 59 20 4F 52 20 55 4E 48 41 50 |U HAPPY OR UNHAP|
00000990: 50 59 3F 22 00 A3 11 B2 02 83 22 4A 3D 48 41 50 |PY?"......"J=HAP|
000009A0: 50 59 22 00 B4 11 BC 02 83 22 47 3D 55 4E 48 41 |PY"......"G=UNHA|
000009B0: 50 50 59 22 00 C6 11 C6 02 83 22 20 49 3D 4E 45 |PPY"......" I=NE|
000009C0: 49 54 48 45 52 22 00 D3 11 D0 02 83 33 2C 22 4A |ITHER"......3,"J|
000009D0: 47 49 22 00 EF 11 DA 02 83 22 2B 2B 2B 2B 2B 2B |GI"......"++++++|
000009E0: 46 41 43 54 4F 52 53 2B 2B 2B 2B 2B 2B 2B 22 00 |FACTORS+++++++".|
000009F0: 29 12 E4 02 83 22 48 41 56 45 20 59 4F 55 20 48 |)...."HAVE YOU H|
00000A00: 41 44 20 41 20 53 50 45 45 44 49 4E 47 20 54 49 |AD A SPEEDING TI|
00000A10: 43 4B 45 54 20 49 4E 20 54 48 45 20 20 20 4C 41 |CKET IN THE LA|
00000A20: 53 54 20 59 45 41 52 3F 22 00 36 12 EE 02 83 22 |ST YEAR?".6...."|
00000A30: 48 3D 59 45 53 22 00 43 12 F8 02 83 22 20 49 3D |H=YES".C...." I=|
00000A40: 4E 4F 22 00 4F 12 02 03 83 32 2C 22 48 49 22 00 |NO".O....2,"HI".|
00000A50: 69 12 0C 03 83 22 2B 2B 2B 2B 2B 2B 49 4E 43 4F |i...."++++++INCO|
00000A60: 4D 45 2B 2B 2B 2B 2B 2B 22 00 96 12 16 03 83 22 |ME++++++"......"|
00000A70: 44 4F 20 59 4F 55 20 45 41 52 4E 20 4D 4F 52 45 |DO YOU EARN MORE|
00000A80: 20 54 48 41 4E 20 24 35 30 20 30 30 30 20 41 20 | THAN $50 000 A |
00000A90: 59 45 41 52 3F 22 00 A3 12 20 03 83 22 47 3D 59 |YEAR?"... .."G=Y|
00000AA0: 45 53 22 00 B0 12 2A 03 83 22 20 49 3D 4E 4F 22 |ES"...*.." I=NO"|
00000AB0: 00 BC 12 34 03 83 32 2C 22 47 49 22 00 D9 12 3E |...4..2,"GI"...>|
00000AC0: 03 83 22 2B 2B 2B 2B 2B 2B 53 43 48 4F 4F 4C 49 |.."++++++SCHOOLI|
00000AD0: 4E 47 2B 2B 2B 2B 2B 2B 22 00 F3 12 48 03 83 22 |NG++++++"...H.."|
00000AE0: 4A 3D 46 49 4E 49 53 48 45 44 20 43 4F 4C 4C 45 |J=FINISHED COLLE|
00000AF0: 47 45 22 00 1C 13 52 03 83 22 4C 3D 47 52 41 44 |GE"...R.."L=GRAD|
00000B00: 55 41 54 45 20 4F 52 20 50 52 4F 46 45 53 53 49 |UATE OR PROFESSI|
00000B10: 4F 4E 41 4C 20 44 45 47 52 45 45 22 00 2E 13 5C |ONAL DEGREE"...\|
00000B20: 03 83 22 20 49 3D 4E 45 49 54 48 45 52 22 00 3B |.." I=NEITHER".;|
00000B30: 13 66 03 83 33 2C 22 4A 4C 49 22 00 58 13 70 03 |.f..3,"JLI".X.p.|
00000B40: 83 22 2B 2B 2B 2B 2B 2B 2B 2B 41 47 45 2B 2B 2B |."++++++++AGE+++|
00000B50: 2B 2B 2B 2B 2B 2B 2B 22 00 86 13 7A 03 83 22 41 |+++++++"...z.."A|
00000B60: 52 45 20 59 4F 55 20 36 35 20 4F 52 20 4F 4C 44 |RE YOU 65 OR OLD|
00000B70: 45 52 20 41 4E 44 20 53 54 49 4C 4C 20 57 4F 52 |ER AND STILL WOR|
00000B80: 4B 49 4E 47 3F 22 00 93 13 84 03 83 22 4C 3D 59 |KING?"......"L=Y|
00000B90: 45 53 22 00 A0 13 8E 03 83 22 20 49 3D 4E 4F 22 |ES"......" I=NO"|
00000BA0: 00 AC 13 98 03 83 32 2C 22 4C 49 22 00 CB 13 A2 |......2,"LI"....|
00000BB0: 03 83 22 2B 2B 2B 2B 2B 2B 2B 48 45 52 45 44 49 |.."+++++++HEREDI|
00000BC0: 54 59 2B 2B 2B 2B 2B 2B 2B 2B 22 00 06 14 AC 03 |TY++++++++".....|
00000BD0: 83 22 4B 3D 49 46 20 41 4E 59 20 47 52 41 4E 44 |."K=IF ANY GRAND|
00000BE0: 50 41 52 45 4E 54 53 20 4C 49 56 45 44 20 54 4F |PARENTS LIVED TO|
00000BF0: 20 38 35 20 20 20 20 20 20 20 20 20 59 45 41 52 | 85 YEAR|
00000C00: 53 20 4F 4C 44 22 00 41 14 B6 03 83 22 4F 3D 49 |S OLD".A...."O=I|
00000C10: 46 20 41 4C 4C 20 47 52 41 4E 44 50 41 52 45 4E |F ALL GRANDPAREN|
00000C20: 54 53 20 4C 49 56 45 44 20 54 4F 20 38 30 20 20 |TS LIVED TO 80 |
00000C30: 20 20 20 20 20 20 20 59 45 41 52 53 20 4F 4C 44 | YEARS OLD|
00000C40: 22 00 53 14 C0 03 83 22 20 49 3D 4E 45 49 54 48 |".S...." I=NEITH|
00000C50: 45 52 22 00 60 14 CA 03 83 33 2C 22 4B 4F 49 22 |ER".`....3,"KOI"|
00000C60: 00 87 14 D4 03 83 22 48 41 53 20 41 4E 59 20 50 |......"HAS ANY P|
00000C70: 41 52 45 4E 54 20 44 49 45 44 20 4F 46 20 41 20 |ARENT DIED OF A |
00000C80: 53 54 52 4F 4B 45 22 00 B4 14 DE 03 83 22 4F 52 |STROKE"......"OR|
00000C90: 20 48 45 41 52 54 20 41 54 54 41 43 4B 20 42 45 | HEART ATTACK BE|
00000CA0: 46 4F 52 45 20 54 48 45 20 41 47 45 20 4F 46 20 |FORE THE AGE OF |
00000CB0: 35 30 3F 22 00 C1 14 E8 03 83 22 45 3D 59 45 53 |50?"......"E=YES|
00000CC0: 22 00 CE 14 F2 03 83 22 20 49 3D 4E 4F 22 00 DA |"......" I=NO"..|
00000CD0: 14 FC 03 83 32 2C 22 45 49 22 00 F7 14 06 04 83 |....2,"EI"......|
00000CE0: 22 2B 2B 2B 46 41 4D 49 4C 59 20 44 49 53 45 41 |"+++FAMILY DISEA|
00000CF0: 53 45 53 2B 2B 2B 22 00 34 15 10 04 83 22 41 4E |SES+++".4...."AN|
00000D00: 59 20 50 41 52 45 4E 54 2C 20 42 52 4F 54 48 45 |Y PARENT, BROTHE|
00000D10: 52 20 4F 52 20 53 49 53 54 45 52 20 55 4E 44 45 |R OR SISTER UNDE|
00000D20: 52 20 35 20 20 20 48 41 53 20 28 4F 52 20 48 41 |R 5 HAS (OR HA|
00000D30: 44 29 3A 22 00 74 15 1A 04 83 22 43 41 4E 43 45 |D):".t...."CANCE|
00000D40: 52 2C 20 41 20 48 45 41 52 54 20 43 4F 4E 44 49 |R, A HEART CONDI|
00000D50: 54 49 4F 4E 20 4F 52 20 44 49 41 42 45 54 45 53 |TION OR DIABETES|
00000D60: 20 20 20 53 49 4E 43 45 20 43 48 49 4C 44 48 4F | SINCE CHILDHO|
00000D70: 4F 44 3F 22 00 81 15 24 04 83 22 4D 3D 59 45 53 |OD?"...$.."M=YES|
00000D80: 22 00 8E 15 2E 04 83 22 20 49 3D 4E 4F 22 00 9A |"......" I=NO"..|
00000D90: 15 38 04 83 32 2C 22 4D 49 22 00 B2 15 42 04 83 |.8..2,"MI"...B..|
00000DA0: 22 2B 2B 2B 2B 2B 48 45 41 4C 54 48 2B 2B 2B 2B |"+++++HEALTH++++|
00000DB0: 2B 22 00 D8 15 4C 04 83 22 48 4F 57 20 4D 55 43 |+"...L.."HOW MUC|
00000DC0: 48 20 54 4F 42 41 43 43 4F 20 44 4F 20 59 4F 55 |H TOBACCO DO YOU|
00000DD0: 20 53 4D 4F 4B 45 3F 22 00 F9 15 56 04 83 22 41 | SMOKE?"...V.."A|
00000DE0: 3D 4D 4F 52 45 20 54 48 41 4E 20 32 20 50 41 43 |=MORE THAN 2 PAC|
00000DF0: 4B 53 20 41 20 44 41 59 22 00 15 16 60 04 83 22 |KS A DAY"...`.."|
00000E00: 43 3D 31 20 54 4F 20 32 20 50 41 43 4B 53 20 41 |C=1 TO 2 PACKS A|
00000E10: 20 44 41 59 22 00 39 16 6A 04 83 22 4D 3D 4F 4E | DAY".9.j.."M=ON|
00000E20: 45 20 48 41 4C 46 20 54 4F 20 4F 4E 45 20 50 41 |E HALF TO ONE PA|
00000E30: 43 4B 20 41 20 44 41 59 22 00 4F 16 74 04 83 22 |CK A DAY".O.t.."|
00000E40: 20 49 3D 44 4F 4E 27 54 20 53 4D 4F 4B 45 22 00 | I=DON'T SMOKE".|
00000E50: 5D 16 7E 04 83 34 2C 22 41 43 4D 49 22 00 77 16 |].~..4,"ACMI".w.|
00000E60: 88 04 83 22 2B 2B 2B 2B 2B 2B 44 52 49 4E 4B 2B |..."++++++DRINK+|
00000E70: 2B 2B 2B 2B 2B 2B 22 00 A0 16 92 04 83 22 44 4F |++++++"......"DO|
00000E80: 20 59 4F 55 20 44 52 49 4E 4B 20 54 48 45 20 45 | YOU DRINK THE E|
00000E90: 51 55 49 56 41 4C 45 4E 54 20 4F 46 20 41 20 22 |QUIVALENT OF A "|
00000EA0: 00 C7 16 9C 04 83 22 51 55 41 52 54 45 52 20 42 |......"QUARTER B|
00000EB0: 4F 54 54 4C 45 20 4F 46 20 4C 49 51 55 4F 52 20 |OTTLE OF LIQUOR |
00000EC0: 41 20 44 41 59 3F 22 00 D4 16 A6 04 83 22 48 3D |A DAY?"......"H=|
00000ED0: 59 45 53 22 00 E1 16 B0 04 83 22 20 49 3D 4E 4F |YES"......" I=NO|
00000EE0: 22 00 ED 16 BA 04 83 32 2C 22 48 49 22 00 07 17 |"......2,"HI"...|
00000EF0: C4 04 83 22 2B 3B 2B 2B 2B 2B 57 45 49 47 48 54 |..."+;++++WEIGHT|
00000F00: 2B 2B 2B 2B 2B 2B 22 00 30 17 CE 04 83 22 41 3D |++++++".0...."A=|
00000F10: 4F 56 45 52 57 45 49 47 48 54 20 42 59 20 35 30 |OVERWEIGHT BY 50|
00000F20: 20 50 4F 55 4E 44 53 20 4F 52 20 4D 4F 52 45 22 | POUNDS OR MORE"|
00000F30: 00 4E 17 D8 04 83 22 45 3D 4F 56 45 52 20 42 59 |.N...."E=OVER BY|
00000F40: 20 33 30 2D 35 30 20 50 4F 55 4E 44 53 22 00 6C | 30-50 POUNDS".l|
00000F50: 17 E2 04 83 22 47 3D 4F 56 45 52 20 42 59 20 31 |...."G=OVER BY 1|
00000F60: 30 2D 33 30 20 50 4F 55 4E 44 53 22 00 85 17 EC |0-30 POUNDS"....|
00000F70: 04 83 22 20 49 3D 4E 4F 54 20 4F 56 45 52 57 45 |.." I=NOT OVERWE|
00000F80: 49 47 48 54 22 00 93 17 F6 04 83 34 2C 22 41 45 |IGHT"......4,"AE|
00000F90: 47 49 22 00 B1 17 00 05 83 22 2B 2B 2B 2B 2B 2B |GI"......"++++++|
00000FA0: 43 48 45 43 4B 2D 55 50 53 2B 2B 2B 2B 2B 2B 2B |CHECK-UPS+++++++|
00000FB0: 22 00 FD 17 0A 05 83 22 49 46 20 41 20 4D 41 4C |"......"IF A MAL|
00000FC0: 45 20 4F 56 45 52 20 34 30 3A 20 44 4F 20 59 4F |E OVER 40: DO YO|
00000FD0: 55 20 48 41 56 45 20 41 4E 20 20 20 20 20 20 20 |U HAVE AN |
00000FE0: 20 20 20 20 20 20 20 20 20 20 20 20 41 4E 4E 55 | ANNU|
00000FF0: 41 4C 20 43 48 45 43 4B 2D 55 50 3F 22 00 0A 18 |AL CHECK-UP?"...|
00001000: 14 05 83 22 4B 3D 59 45 53 22 00 40 18 1E 05 83 |..."K=YES".@....|
00001010: 22 20 49 3D 4E 4F 20 4F 52 20 4E 4F 54 20 41 20 |" I=NO OR NOT A |
00001020: 4D 41 4C 45 20 4F 52 20 55 4E 44 45 52 20 34 30 |MALE OR UNDER 40|
00001030: 20 59 45 41 52 53 20 20 20 20 20 20 4F 4C 44 22 | YEARS OLD"|
00001040: 00 4C 18 28 05 83 32 2C 22 4B 49 22 00 94 18 32 |.L.(..2,"KI"...2|
00001050: 05 83 22 49 46 20 41 20 57 4F 4D 41 4E 3A 20 44 |.."IF A WOMAN: D|
00001060: 4F 20 59 4F 55 20 53 45 45 20 41 20 47 59 4E 45 |O YOU SEE A GYNE|
00001070: 43 4F 4C 4F 47 49 53 54 20 20 20 20 20 20 20 20 |COLOGIST |
00001080: 20 20 20 20 20 20 20 4F 4E 43 45 20 41 20 59 45 | ONCE A YE|
00001090: 41 52 3F 22 00 A1 18 3C 05 83 22 4B 3D 59 45 53 |AR?"...<.."K=YES|
000010A0: 22 00 BD 18 46 05 83 22 20 49 3D 4E 4F 20 4F 52 |"...F.." I=NO OR|
000010B0: 20 4E 4F 54 20 41 20 57 4F 4D 41 4E 22 00 C9 18 | NOT A WOMAN"...|
000010C0: 50 05 83 32 2C 22 4B 49 22 00 E8 18 5A 05 83 22 |P..2,"KI"...Z.."|
000010D0: 2B 2B 2B 2B 2B 2B 43 55 52 52 45 4E 54 20 41 47 |++++++CURRENT AG|
000010E0: 45 2B 2B 2B 2B 2B 2B 22 00 FA 18 64 05 83 22 49 |E++++++"...d.."I|
000010F0: 3D 55 4E 44 45 52 20 33 30 22 00 1F 19 6E 05 83 |=UNDER 30"...n..|
00001100: 22 4B 3D 42 45 54 57 45 45 4E 20 33 30 20 41 4E |"K=BETWEEN 30 AN|
00001110: 44 20 34 30 20 59 45 41 52 53 20 4F 4C 44 22 00 |D 40 YEARS OLD".|
00001120: 44 19 78 05 83 22 4C 3D 42 45 54 57 45 45 4E 20 |D.x.."L=BETWEEN |
00001130: 34 30 20 41 4E 44 20 35 30 20 59 45 41 52 53 20 |40 AND 50 YEARS |
00001140: 4F 4C 44 22 00 69 19 82 05 83 22 46 3D 42 45 54 |OLD".i...."F=BET|
00001150: 57 45 45 4E 20 35 30 20 41 4E 44 20 37 30 20 59 |WEEN 50 AND 70 Y|
00001160: 45 41 52 53 20 4F 4C 44 22 00 7B 19 8C 05 83 22 |EARS OLD".{...."|
00001170: 20 4E 3D 4F 56 45 52 20 37 30 22 00 8A 19 96 05 | N=OVER 70".....|
00001180: 83 35 2C 22 4B 4C 46 4E 49 22 00 98 19 A0 05 87 |.5,"KLFNI"......|
00001190: 51 24 3A 99 51 24 3A 99 00 A7 19 AA 05 81 51 B2 |Q$:.Q$:.......Q.|
000011A0: 32 A4 37 3A 87 51 24 00 BD 19 B4 05 8B C8 28 51 |2.7:.Q$.......(Q|
000011B0: 24 2C 31 29 B2 22 20 22 A7 31 34 39 30 00 CA 19 |$,1)." ".1490...|
000011C0: BE 05 99 22 20 20 22 3B 51 24 00 D1 19 C8 05 82 |..." ";Q$......|
000011D0: 51 00 E3 19 D2 05 99 22 20 22 3B 51 24 3A 87 43 |Q......" ";Q$:.C|
000011E0: 2C 43 24 00 0D 1A DC 05 99 3A 99 22 43 48 4F 4F |,C$......:."CHOO|
000011F0: 53 45 20 4F 4E 45 20 4F 46 20 54 48 45 20 4C 45 |SE ONE OF THE LE|
00001200: 54 54 45 52 53 20 41 42 4F 56 45 22 3B 00 21 1A |TTERS ABOVE";.!.|
00001210: E6 05 A1 47 24 3A 8B 47 24 B2 22 22 A7 31 35 31 |...G$:.G$."".151|
00001220: 30 00 29 1A F0 05 99 47 24 00 35 1A FA 05 81 43 |0.)....G$.5....C|
00001230: 32 B2 31 A4 43 00 52 1A 04 06 8B C8 28 47 24 2C |2.1.C.R.....(G$,|
00001240: 31 29 B2 CA 28 43 24 2C 43 32 2C 31 29 A7 31 35 |1)..(C$,C2,1).15|
00001250: 37 30 00 5A 1A 0E 06 82 43 32 00 64 1A 18 06 89 |70.Z....C2.d....|
00001260: 31 35 30 30 00 74 1A 22 06 99 C7 28 31 34 37 29 |1500.t."...(147)|
00001270: 3A 99 3A 99 00 80 1A 2C 06 81 4E B2 31 A4 31 35 |:.:....,..N.1.15|
00001280: 00 9C 1A 36 06 8B C8 28 47 24 2C 31 29 B2 CA 28 |...6...(G$,1)..(|
00001290: 41 24 2C 4E 2C 31 29 A7 31 36 31 30 00 A2 1A 40 |A$,N,1).1610...@|
000012A0: 06 82 00 B7 1A 4A 06 4D B2 4E AB 39 3A 5A B2 5A |.....J.M.N.9:Z.Z|
000012B0: AA 4D 3A 89 32 35 30 00 F5 1A 54 06 99 3A 99 3A |.M:.250...T..:.:|
000012C0: 99 22 59 4F 55 20 41 52 45 20 45 58 50 45 43 54 |."YOU ARE EXPECT|
000012D0: 45 44 20 54 4F 20 4C 49 56 45 20 54 4F 20 54 48 |ED TO LIVE TO TH|
000012E0: 45 20 41 47 45 20 4F 46 20 20 22 5A 22 20 59 45 |E AGE OF "Z" YE|
000012F0: 41 52 53 2E 22 00 04 1B 5E 06 8B 5A B3 36 30 A7 |ARS."...^..Z.60.|
00001300: 31 37 30 30 00 12 1B 68 06 81 59 B2 36 30 A4 5A |1700...h..Y.60.Z|
00001310: A9 35 00 1D 1B 72 06 87 4D 24 2C 46 24 00 24 1B |.5...r..M$,F$.$.|
00001320: 7C 06 82 59 00 59 1B 86 06 83 22 32 36 25 22 2C ||..Y.Y...."26%",|
00001330: 22 31 35 25 22 2C 22 33 36 25 22 2C 22 32 30 25 |"15%","36%","20%|
00001340: 22 2C 22 34 38 25 22 2C 22 33 30 25 22 2C 22 36 |","48%","30%","6|
00001350: 31 25 22 2C 22 33 39 25 22 00 92 1B 90 06 83 22 |1%","39%"......"|
00001360: 37 35 25 22 2C 22 35 33 25 22 2C 22 38 37 25 22 |75%","53%","87%"|
00001370: 2C 22 37 30 25 22 2C 22 39 36 25 22 2C 22 38 38 |,"70%","96%","88|
00001380: 25 22 2C 22 39 39 2E 39 25 22 2C 22 39 39 2E 36 |%","99.9%","99.6|
00001390: 25 22 00 CB 1B 9A 06 99 22 4F 55 54 2D 4C 49 56 |%"......"OUT-LIV|
000013A0: 49 4E 47 20 22 4D 24 22 20 4F 46 20 54 48 45 20 |ING "M$" OF THE |
000013B0: 4D 45 4E 20 41 4E 44 20 22 46 24 22 20 4F 46 20 |MEN AND "F$" OF |
000013C0: 54 48 45 20 57 4F 4D 45 4E 2E 22 00 DE 1B A4 06 |THE WOMEN.".....|
000013D0: 81 49 B2 31 A4 39 3A A1 41 41 24 3A 82 49 00 FD |.I.1.9:.AA$:.I..|
000013E0: 1B AE 06 99 3A 99 3A 99 22 41 4E 4F 54 48 45 52 |....:.:."ANOTHER|
000013F0: 20 52 55 4E 20 28 59 2F 4E 29 3F 22 3B 00 13 1C | RUN (Y/N)?";...|
00001400: B8 06 A1 41 41 24 3A 8B 41 41 24 B2 22 22 A7 31 |...AA$:.AA$."".1|
00001410: 37 32 30 00 29 1C C2 06 99 41 41 24 3A 8B 41 41 |720.)....AA$:.AA|
00001420: 24 B2 22 59 22 A7 31 31 30 00 2F 1C CC 06 80 00 |$."Y".110./.....|
00001430: 00 00 |.. |
..$.... LIFE EXPECTANCY SEPT 1979.*..
...O.... ANDY GAMPLE COLUMBIA COLLEGE.
R.... 1619 W 10 AVE VANCOUVER BC.X....
...... FROM 'PUBLIC DOMAIN',MSE,SVP....
...B.... COMPUTES LIFE EXPECTANCY.Q....
PET 8K...... ADAPTED FROM CREATIVE CO
MPUTING...... BOOK 2.S...."............
................... . SAN
MATEO COUNTY .......". OFFICE O
F EDUCATION . .
& .......". COMPUTER-USIN
G EDUCATORS . . SOFTS
WAP ..=....".
. .
.......".333 MAIN STREET, RE
DWOOD CITY. .CA 94063 (415)364-5
600 EX4401..Y...."......................
......... ......................
..........'....". PROGRAMS MAY BE COPIED
FOR . . EDUSATIONAL USE ONLY A
ND ..U....". ARE NOT TO BE SOLD.
. ..........................
...........G(147);" .LIFE EXPECTANCY"
:.:.:.... ........"THIS IS A TEST TO PRE
DICT HOW LONG YOU'LL LIVE. ";......
"I'LL ASK YOU A SERIES OF SHORT QUESTI
ONS, ";.X...."WHICH YOU WILL ANSWER BY
PRESSING THE APPROPRIATE KEY.":..Z.H.."
.DO NOT PRESS RETURN"...R..:.:.....
.R5.1.....Z.72:A$."ABCDEMGHIJKLFNO".....
.1440.A...R5.R5.1.Q....R5.21.1620......"
++++++++++SEX+++++++++++"......"ARE YOU
MALE OR FEMALE?"...".."M=MALE"./.,.." F=
FEMALE".;.6..2,"MF".^.@.."+++++++LIFE ST
YLE++++++++++".X.J.."WHERE DO YOU LIVE?"
...T.."G=CITY OVER 2 MILLION"...^.."K=TO
WN UNDER 10 000, OR A FARM".M.H.." I=NEI
THER".Z.R..3,"GKI"...|.."+++HOW DO YOU W
ORK?+++"......"M=DESK WORK".*...."L=HEAV
Y PHYSICAL LABOUR".<...." I=NEITHER".I..
..3,"MLI".V...."HOW LONG DO YOU EXERCISE
STRENUOUSLY:"......"(TENNIS, RUNNING, E
TC)?".K.B.."F=5TIMES A WEEK FOR AT LEAST
HALF AN HOUR"...L.."K=2 OR 3 TIMES
A WEEK"...V.." I=NEITHER"......3,"FKI".
*...."+++WHO DO YOU LIVE WITH?+++".K....
"N=SPOUSE,FRIEND OR FAMILY".O...."H=LIVE
D ALONE FOR 1-10 YEARS"......"G=LIVED AL
ONE FOR 11-20 YEARS"......"M=LIVED ALONE
FOR 21-30 YEARS"......"E=LIVED ALONE FO
R 31-40 YEARS"...&.." D=LIVED ALONE FOR
MORE THAN 40 YEARS"...0..6,"NHGMED".;.:.
."++++++++PSYCHE++++++++++".Q.D.."DO YOU
SLEEP MORE THAN 10 HOURS A NIGHT?
".}.N.."I=NO"...X.." E=YES"...B..2,"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".Q....3,"MLI".S...."++++++HO
W YOU FEEL++++++++"......"ARE YOU HAPPY
OR UNHAPPY?"......"J=HAPPY"......"G=UNHA
PPY".F.F.." I=NEITHER".S.P..3,"JGI"...Z.
."++++++FACTORS+++++++".)...."HAVE YOU H
AD A SPEEDING TICKET IN THE LAST YEAR?
".6...."H=YES".C...." I=NO".O....2,"HI".
I...."++++++INCOME++++++"......"DO YOU E
ARN MORE THAN $50 000 A YEAR?"... .."G=Y
ES"...*.." I=NO"...4..2,"GI".Y.>.."+++++
+SCHOOLING++++++"...H.."J=FINISHED COLLE
GE"...R.."L=GRADUATE OR PROFESSIONAL DEG
REE"...\.." I=NEITHER".;.F..3,"JLI".X.P.
."++++++++AGE++++++++++"...Z.."ARE YOU 6
5 OR OLDER AND STILL WORKING?"......"L=Y
ES". ...." I=NO"......2,"LI".K...."+++++
++HEREDITY++++++++"......"K=IF ANY GRAND
PARENTS LIVED TO 85 YEARS OLD".A
...."O=IF ALL GRANDPARENTS LIVED TO 80
YEARS OLD".S...." I=NEITHER".`.J.
.3,"KOI"...T.."HAS ANY PARENT DIED OF A
STROKE"......"OR HEART ATTACK BEFORE THE
AGE OF 50?".A...."E=YES".N...." I=NO".Z
....2,"EI"......"+++FAMILY DISEASES+++".
4...."ANY PARENT, BROTHER OR SISTER UNDE
R 5 HAS (OR HAD):".T...."CANCER, A HEA
RT CONDITION OR DIABETES SINCE CHILDHO
OD?"...$.."M=YES"......" I=NO"...8..2,"M
I"...B.."+++++HEALTH+++++".X.L.."HOW MUC
H TOBACCO DO YOU SMOKE?"...V.."A=MORE TH
AN 2 PACKS A DAY"...`.."C=1 TO 2 PACKS A
DAY".9.J.."M=ONE HALF TO ONE PACK A DAY
".O.T.." I=DON'T SMOKE".].~..4,"ACMI".W.
..."++++++DRINK+++++++". ...."DO YOU DRI
NK THE EQUIVALENT OF A ".G...."QUARTER B
OTTLE OF LIQUOR A DAY?".T...."H=YES"....
.." I=NO"......2,"HI"...D.."+;++++WEIGHT
++++++".0.N.."A=OVERWEIGHT BY 50 POUNDS
OR MORE".N.X.."E=OVER BY 30-50 POUNDS".L
...."G=OVER BY 10-30 POUNDS"......" I=NO
T OVERWEIGHT"......4,"AEGI"......"++++++
CHECK-UPS+++++++"......"IF A MALE OVER 4
0: DO YOU HAVE AN ANNU
AL CHECK-UP?"......"K=YES".@...." I=NO O
R NOT A MALE OR UNDER 40 YEARS OLD"
.L.(..2,"KI"...2.."IF A WOMAN: DO YOU SE
E A GYNECOLOGIST ONCE A YE
AR?"...<.."K=YES"...F.." I=NO OR NOT A W
OMAN".I.P..2,"KI"...Z.."++++++CURRENT AG
E++++++"...D.."I=UNDER 30"...N.."K=BETWE
EN 30 AND 40 YEARS OLD".D.X.."L=BETWEEN
40 AND 50 YEARS OLD".I...."F=BETWEEN 50
AND 70 YEARS OLD".{...." N=OVER 70".....
.5,"KLFNI"... ..Q$:.Q$:.......Q.2.7:.Q$.
.....H(Q$,1)." ".1490.J...." ";Q$.Q.H..
Q...R.." ";Q$:.C,C$......:."CHOOSE ONE O
F THE LETTERS ABOVE";.!....G$:.G$."".151
0.)....G$.5....C2.1.C.R....H(G$,1).J(C$,
C2,1).1570.Z....C2.D....1500.T."..G(147)
:.:....,..N.1.15...6..H(G$,1).J(A$,N,1).
1610...@.....J.M.N.9:Z.Z.M:.250...T..:.:
."YOU ARE EXPECTED TO LIVE TO THE AGE OF
"Z" YEARS."...^..Z.60.1700...H..Y.60.Z
.5...R..M$,F$.$.|..Y.Y...."26%","15%","3
6%","20%","48%","30%","61%","39%"......"
75%","53%","87%","70%","96%","88%","99.9
%","99.6%".K...."OUT-LIVING "M$" OF THE
MEN AND "F$" OF THE WOMEN."......I.1.9:.
AA$:.I......:.:."ANOTHER RUN (Y/N)?";...
...AA$:.AA$."".1720.).B..AA$:.AA$."Y".11
0./.L.....
> CLICK IMAGE PREVIEW FOR FULL MODAL