LIFEEXP
FILE INFORMATION
FILENAME(S): LIFEEXP
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 21:23:56
APPEARS ON: 1 disk(s)
FILE HASH
e983300767b3d380d1cefe5d38ac3b0ac8074f21255c41e65087368739c3b0da
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 31 1 | LIFEEXP | PRG | DuncanTwain | 19 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 8C 00 97 35 33 32 38 31 2C 39 3A 97 |.......53281,9:.|
00000010: 35 33 32 38 30 2C 37 00 48 08 96 00 99 C7 28 31 |53280,7.H.....(1|
00000020: 34 37 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |47);" |
00000030: 05 12 4C 49 46 45 20 45 58 50 45 43 54 41 4E 43 |..LIFE EXPECTANC|
00000040: 59 22 3A 99 3A 99 3A 99 00 4E 08 A0 00 8C 00 8C |Y":.:.:..N......|
00000050: 08 AA 00 99 22 54 48 49 53 20 49 53 20 41 20 54 |...."THIS IS A T|
00000060: 45 53 54 20 54 4F 20 50 52 45 44 49 43 54 20 48 |EST TO PREDICT H|
00000070: 4F 57 20 4C 4F 4E 47 20 20 20 20 20 20 59 4F 55 |OW LONG YOU|
00000080: 27 4C 4C 20 4C 49 56 45 2E 20 22 3B 00 C1 08 B4 |'LL LIVE. ";....|
00000090: 00 99 22 49 27 4C 4C 20 41 53 4B 20 59 4F 55 20 |.."I'LL ASK YOU |
000000A0: 41 20 53 45 52 49 45 53 20 4F 46 20 20 20 53 48 |A SERIES OF SH|
000000B0: 4F 52 54 20 51 55 45 53 54 49 4F 4E 53 2C 20 22 |ORT QUESTIONS, "|
000000C0: 3B 00 02 09 BE 00 99 22 57 48 49 43 48 20 59 4F |;......"WHICH YO|
000000D0: 55 20 57 49 4C 4C 20 41 4E 53 57 45 52 20 20 42 |U WILL ANSWER B|
000000E0: 59 20 50 52 45 53 53 49 4E 47 20 54 48 45 20 41 |Y PRESSING THE A|
000000F0: 50 50 52 4F 50 52 49 41 54 45 20 4B 45 59 2E 22 |PPROPRIATE KEY."|
00000100: 3A 99 00 2C 09 C8 00 99 22 11 11 20 20 20 20 20 |:..,....".. |
00000110: 20 20 20 12 57 48 45 4E 20 52 45 41 44 59 20 50 | .WHEN READY P|
00000120: 52 45 53 53 20 52 45 54 55 52 4E 22 00 3F 09 CA |RESS RETURN".?..|
00000130: 00 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 32 30 32 00 |..Z$:.Z$."".202.|
00000140: 52 09 CC 00 8B 5A 24 B3 B1 C7 28 31 33 29 A7 32 |R....Z$...(13).2|
00000150: 30 32 00 62 09 CE 00 99 C7 28 31 34 37 29 3A 99 |02.b.....(147):.|
00000160: 3A 99 00 6B 09 DC 00 52 35 B2 31 00 89 09 E6 00 |:..k...R5.1.....|
00000170: 5A B2 37 32 3A 41 24 B2 22 41 42 43 44 45 4D 47 |Z.72:A$."ABCDEMG|
00000180: 48 49 4A 4B 4C 46 4E 4F 22 00 93 09 F0 00 89 31 |HIJKLFNO"......1|
00000190: 34 34 30 00 9F 09 FA 00 52 35 B2 52 35 AA 31 00 |440.....R5.R5.1.|
000001A0: B0 09 04 01 8B 52 35 B1 32 31 A7 89 31 36 32 30 |.....R5.21..1620|
000001B0: 00 D0 09 0E 01 83 22 2B 2B 2B 2B 2B 2B 2B 2B 2B |......"+++++++++|
000001C0: 2B 53 45 58 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 22 |+SEX+++++++++++"|
000001D0: 00 EF 09 18 01 83 22 41 52 45 20 59 4F 55 20 4D |......"ARE YOU M|
000001E0: 41 4C 45 20 4F 52 20 46 45 4D 41 4C 45 3F 22 00 |ALE OR FEMALE?".|
000001F0: FD 09 22 01 83 22 4D 3D 4D 41 4C 45 22 00 0E 0A |..".."M=MALE"...|
00000200: 2C 01 83 22 20 46 3D 46 45 4D 41 4C 45 22 00 1A |,.." F=FEMALE"..|
00000210: 0A 36 01 83 32 2C 22 4D 46 22 00 3C 0A 40 01 83 |.6..2,"MF".<.@..|
00000220: 22 2B 2B 2B 2B 2B 2B 2B 2B 4C 49 46 45 20 53 54 |"++++++++LIFE ST|
00000230: 59 4C 45 2B 2B 2B 2B 2B 2B 2B 2B 22 00 56 0A 4A |YLE++++++++".V.J|
00000240: 01 83 22 57 48 45 52 45 20 44 4F 20 59 4F 55 20 |.."WHERE DO YOU |
00000250: 4C 49 56 45 3F 22 00 73 0A 54 01 83 22 47 3D 43 |LIVE?".s.T.."G=C|
00000260: 49 54 59 20 4F 56 45 52 20 32 20 4D 49 4C 4C 49 |ITY OVER 2 MILLI|
00000270: 4F 4E 22 00 99 0A 5E 01 83 22 4B 3D 54 4F 57 4E |ON"...^.."K=TOWN|
00000280: 20 55 4E 44 45 52 20 31 30 20 30 30 30 2C 20 4F | UNDER 10 000, O|
00000290: 52 20 41 20 46 41 52 4D 22 00 AB 0A 68 01 83 22 |R A FARM"...h.."|
000002A0: 20 49 3D 4E 45 49 54 48 45 52 22 00 B8 0A 72 01 | I=NEITHER"...r.|
000002B0: 83 33 2C 22 47 4B 49 22 00 D6 0A 7C 01 83 22 2B |.3,"GKI"...|.."+|
000002C0: 2B 2B 48 4F 57 20 44 4F 20 59 4F 55 20 57 4F 52 |++HOW DO YOU WOR|
000002D0: 4B 3F 2B 2B 2B 22 00 E9 0A 86 01 83 22 4D 3D 44 |K?+++"......"M=D|
000002E0: 45 53 4B 20 57 4F 52 4B 22 00 08 0B 90 01 83 22 |ESK WORK"......"|
000002F0: 4C 3D 48 45 41 56 59 20 50 48 59 53 49 43 41 4C |L=HEAVY PHYSICAL|
00000300: 20 4C 41 42 4F 55 52 22 00 1A 0B 9A 01 83 22 20 | LABOUR"......" |
00000310: 49 3D 4E 45 49 54 48 45 52 22 00 27 0B A4 01 83 |I=NEITHER".'....|
00000320: 33 2C 22 4D 4C 49 22 00 54 0B AE 01 83 22 48 4F |3,"MLI".T...."HO|
00000330: 57 20 4C 4F 4E 47 20 44 4F 20 59 4F 55 20 45 58 |W LONG DO YOU EX|
00000340: 45 52 43 49 53 45 20 53 54 52 45 4E 55 4F 55 53 |ERCISE STRENUOUS|
00000350: 4C 59 3A 22 00 73 0B B8 01 83 22 28 54 45 4E 4E |LY:".s...."(TENN|
00000360: 49 53 2C 20 52 55 4E 4E 49 4E 47 2C 20 45 54 43 |IS, RUNNING, ETC|
00000370: 29 3F 22 00 A9 0B C2 01 83 22 46 3D 35 54 49 4D |)?"......"F=5TIM|
00000380: 45 53 20 41 20 57 45 45 4B 20 46 4F 52 20 41 54 |ES A WEEK FOR AT|
00000390: 20 4C 45 41 53 54 20 48 41 4C 46 20 41 4E 20 20 | LEAST HALF AN |
000003A0: 20 20 20 20 48 4F 55 52 22 00 C6 0B CC 01 83 22 | HOUR"......"|
000003B0: 4B 3D 32 20 4F 52 20 33 20 54 49 4D 45 53 20 41 |K=2 OR 3 TIMES A|
000003C0: 20 57 45 45 4B 22 00 D8 0B D6 01 83 22 20 49 3D | WEEK"......" I=|
000003D0: 4E 45 49 54 48 45 52 22 00 E5 0B E0 01 83 33 2C |NEITHER"......3,|
000003E0: 22 46 4B 49 22 00 08 0C EA 01 83 22 2B 2B 2B 57 |"FKI"......"+++W|
000003F0: 48 4F 20 44 4F 20 59 4F 55 20 4C 49 56 45 20 57 |HO DO YOU LIVE W|
00000400: 49 54 48 3F 2B 2B 2B 22 00 29 0C F4 01 83 22 4E |ITH?+++".)...."N|
00000410: 3D 53 50 4F 55 53 45 2C 46 52 49 45 4E 44 20 4F |=SPOUSE,FRIEND O|
00000420: 52 20 46 41 4D 49 4C 59 22 00 4D 0C FE 01 83 22 |R FAMILY".M...."|
00000430: 48 3D 4C 49 56 45 44 20 41 4C 4F 4E 45 20 46 4F |H=LIVED ALONE FO|
00000440: 52 20 31 2D 31 30 20 59 45 41 52 53 22 00 72 0C |R 1-10 YEARS".r.|
00000450: 08 02 83 22 47 3D 4C 49 56 45 44 20 41 4C 4F 4E |..."G=LIVED ALON|
00000460: 45 20 46 4F 52 20 31 31 2D 32 30 20 59 45 41 52 |E FOR 11-20 YEAR|
00000470: 53 22 00 97 0C 12 02 83 22 4D 3D 4C 49 56 45 44 |S"......"M=LIVED|
00000480: 20 41 4C 4F 4E 45 20 46 4F 52 20 32 31 2D 33 30 | ALONE FOR 21-30|
00000490: 20 59 45 41 52 53 22 00 BC 0C 1C 02 83 22 45 3D | YEARS"......"E=|
000004A0: 4C 49 56 45 44 20 41 4C 4F 4E 45 20 46 4F 52 20 |LIVED ALONE FOR |
000004B0: 33 31 2D 34 30 20 59 45 41 52 53 22 00 E9 0C 26 |31-40 YEARS"...&|
000004C0: 02 83 22 20 44 3D 4C 49 56 45 44 20 41 4C 4F 4E |.." D=LIVED ALON|
000004D0: 45 20 46 4F 52 20 4D 4F 52 45 20 54 48 41 4E 20 |E FOR MORE THAN |
000004E0: 34 30 20 59 45 41 52 53 22 00 F9 0C 30 02 83 36 |40 YEARS"...0..6|
000004F0: 2C 22 4E 48 47 4D 45 44 22 00 1B 0D 3A 02 83 22 |,"NHGMED"...:.."|
00000500: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 50 53 59 43 48 45 |++++++++++PSYCHE|
00000510: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 22 00 51 0D 44 02 |++++++++++".Q.D.|
00000520: 83 22 44 4F 20 59 4F 55 20 53 4C 45 45 50 20 4D |."DO YOU SLEEP M|
00000530: 4F 52 45 20 54 48 41 4E 20 31 30 20 48 4F 55 52 |ORE THAN 10 HOUR|
00000540: 53 20 41 20 20 20 20 20 20 20 4E 49 47 48 54 3F |S A NIGHT?|
00000550: 22 00 5D 0D 4E 02 83 22 49 3D 4E 4F 22 00 6B 0D |".].N.."I=NO".k.|
00000560: 58 02 83 22 20 45 3D 59 45 53 22 00 77 0D 62 02 |X.." E=YES".w.b.|
00000570: 83 32 2C 22 49 45 22 00 99 0D 6C 02 83 22 2B 2B |.2,"IE"...l.."++|
00000580: 2B 2B 2B 2B 2B 4D 45 4E 54 41 4C 20 53 54 41 54 |+++++MENTAL STAT|
00000590: 45 2B 2B 2B 2B 2B 2B 2B 22 00 D9 0D 76 02 83 22 |E+++++++"...v.."|
000005A0: 4D 3D 49 46 20 59 4F 55 20 41 52 45 20 49 4E 54 |M=IF YOU ARE INT|
000005B0: 45 4E 53 45 2C 41 47 47 52 45 53 53 49 56 45 20 |ENSE,AGGRESSIVE |
000005C0: 4F 52 20 20 20 20 20 20 20 20 45 41 53 49 4C 59 |OR EASILY|
000005D0: 20 41 4E 47 45 52 45 44 22 00 13 0E 80 02 83 22 | ANGERED"......"|
000005E0: 4C 3D 49 46 20 59 4F 55 20 41 52 45 20 45 41 53 |L=IF YOU ARE EAS|
000005F0: 59 2D 47 4F 49 4E 47 2C 20 52 45 4C 41 58 45 44 |Y-GOING, RELAXED|
00000600: 20 4F 52 20 41 20 20 20 20 20 46 4F 4C 4C 4F 57 | OR A FOLLOW|
00000610: 45 52 22 00 25 0E 8A 02 83 22 20 49 3D 4E 45 49 |ER".%...." I=NEI|
00000620: 54 48 45 52 22 00 32 0E 94 02 83 33 2C 22 4D 4C |THER".2....3,"ML|
00000630: 49 22 00 52 0E 9E 02 83 22 2B 2B 2B 2B 2B 2B 48 |I".R...."++++++H|
00000640: 4F 57 20 59 4F 55 20 46 45 45 4C 2B 2B 2B 2B 2B |OW YOU FEEL+++++|
00000650: 2B 22 00 73 0E A8 02 83 22 41 52 45 20 59 4F 55 |+".s...."ARE YOU|
00000660: 20 48 41 50 50 59 20 4F 52 20 55 4E 48 41 50 50 | HAPPY OR UNHAPP|
00000670: 59 3F 22 00 82 0E B2 02 83 22 4A 3D 48 41 50 50 |Y?"......"J=HAPP|
00000680: 59 22 00 93 0E BC 02 83 22 47 3D 55 4E 48 41 50 |Y"......"G=UNHAP|
00000690: 50 59 22 00 A5 0E C6 02 83 22 20 49 3D 4E 45 49 |PY"......" I=NEI|
000006A0: 54 48 45 52 22 00 B2 0E D0 02 83 33 2C 22 4A 47 |THER"......3,"JG|
000006B0: 49 22 00 CF 0E DA 02 83 22 2B 2B 2B 2B 2B 2B 2B |I"......"+++++++|
000006C0: 46 41 43 54 4F 52 53 2B 2B 2B 2B 2B 2B 2B 22 00 |FACTORS+++++++".|
000006D0: 09 0F E4 02 83 22 48 41 56 45 20 59 4F 55 20 48 |....."HAVE YOU H|
000006E0: 41 44 20 41 20 53 50 45 45 44 49 4E 47 20 54 49 |AD A SPEEDING TI|
000006F0: 43 4B 45 54 20 49 4E 20 54 48 45 20 20 20 4C 41 |CKET IN THE LA|
00000700: 53 54 20 59 45 41 52 3F 22 00 16 0F EE 02 83 22 |ST YEAR?"......"|
00000710: 48 3D 59 45 53 22 00 23 0F F8 02 83 22 20 49 3D |H=YES".#...." I=|
00000720: 4E 4F 22 00 2F 0F 02 03 83 32 2C 22 48 49 22 00 |NO"./....2,"HI".|
00000730: 49 0F 0C 03 83 22 2B 2B 2B 2B 2B 2B 49 4E 43 4F |I...."++++++INCO|
00000740: 4D 45 2B 2B 2B 2B 2B 2B 22 00 76 0F 16 03 83 22 |ME++++++".v...."|
00000750: 44 4F 20 59 4F 55 20 45 41 52 4E 20 4D 4F 52 45 |DO YOU EARN MORE|
00000760: 20 54 48 41 4E 20 24 35 30 20 30 30 30 20 41 20 | THAN $50 000 A |
00000770: 59 45 41 52 3F 22 00 83 0F 20 03 83 22 47 3D 59 |YEAR?"... .."G=Y|
00000780: 45 53 22 00 90 0F 2A 03 83 22 20 49 3D 4E 4F 22 |ES"...*.." I=NO"|
00000790: 00 9C 0F 34 03 83 32 2C 22 47 49 22 00 B9 0F 3E |...4..2,"GI"...>|
000007A0: 03 83 22 2B 2B 2B 2B 2B 2B 53 43 48 4F 4F 4C 49 |.."++++++SCHOOLI|
000007B0: 4E 47 2B 2B 2B 2B 2B 2B 22 00 D3 0F 48 03 83 22 |NG++++++"...H.."|
000007C0: 4A 3D 46 49 4E 49 53 48 45 44 20 43 4F 4C 4C 45 |J=FINISHED COLLE|
000007D0: 47 45 22 00 FC 0F 52 03 83 22 4C 3D 47 52 41 44 |GE"...R.."L=GRAD|
000007E0: 55 41 54 45 20 4F 52 20 50 52 4F 46 45 53 53 49 |UATE OR PROFESSI|
000007F0: 4F 4E 41 4C 20 44 45 47 52 45 45 22 00 0E 10 5C |ONAL DEGREE"...\|
00000800: 03 83 22 20 49 3D 4E 45 49 54 48 45 52 22 00 1B |.." I=NEITHER"..|
00000810: 10 66 03 83 33 2C 22 4A 4C 49 22 00 38 10 70 03 |.f..3,"JLI".8.p.|
00000820: 83 22 2B 2B 2B 2B 2B 2B 2B 2B 2B 41 47 45 2B 2B |."+++++++++AGE++|
00000830: 2B 2B 2B 2B 2B 2B 2B 22 00 66 10 7A 03 83 22 41 |+++++++".f.z.."A|
00000840: 52 45 20 59 4F 55 20 36 35 20 4F 52 20 4F 4C 44 |RE YOU 65 OR OLD|
00000850: 45 52 20 41 4E 44 20 53 54 49 4C 4C 20 57 4F 52 |ER AND STILL WOR|
00000860: 4B 49 4E 47 3F 22 00 73 10 84 03 83 22 4C 3D 59 |KING?".s...."L=Y|
00000870: 45 53 22 00 80 10 8E 03 83 22 20 49 3D 4E 4F 22 |ES"......" I=NO"|
00000880: 00 8C 10 98 03 83 32 2C 22 4C 49 22 00 AC 10 A2 |......2,"LI"....|
00000890: 03 83 22 2B 2B 2B 2B 2B 2B 2B 2B 48 45 52 45 44 |.."++++++++HERED|
000008A0: 49 54 59 2B 2B 2B 2B 2B 2B 2B 2B 22 00 E7 10 AC |ITY++++++++"....|
000008B0: 03 83 22 4B 3D 49 46 20 41 4E 59 20 47 52 41 4E |.."K=IF ANY GRAN|
000008C0: 44 50 41 52 45 4E 54 53 20 4C 49 56 45 44 20 54 |DPARENTS LIVED T|
000008D0: 4F 20 38 35 20 20 20 20 20 20 20 20 20 59 45 41 |O 85 YEA|
000008E0: 52 53 20 4F 4C 44 22 00 22 11 B6 03 83 22 4F 3D |RS OLD"."...."O=|
000008F0: 49 46 20 41 4C 4C 20 47 52 41 4E 44 50 41 52 45 |IF ALL GRANDPARE|
00000900: 4E 54 53 20 4C 49 56 45 44 20 54 4F 20 38 30 20 |NTS LIVED TO 80 |
00000910: 20 20 20 20 20 20 20 20 59 45 41 52 53 20 4F 4C | YEARS OL|
00000920: 44 22 00 34 11 C0 03 83 22 20 49 3D 4E 45 49 54 |D".4...." I=NEIT|
00000930: 48 45 52 22 00 41 11 CA 03 83 33 2C 22 4B 4F 49 |HER".A....3,"KOI|
00000940: 22 00 68 11 D4 03 83 22 48 41 53 20 41 4E 59 20 |".h...."HAS ANY |
00000950: 50 41 52 45 4E 54 20 44 49 45 44 20 4F 46 20 41 |PARENT DIED OF A|
00000960: 20 53 54 52 4F 4B 45 22 00 95 11 DE 03 83 22 4F | STROKE"......"O|
00000970: 52 20 48 45 41 52 54 20 41 54 54 41 43 4B 20 42 |R HEART ATTACK B|
00000980: 45 46 4F 52 45 20 54 48 45 20 41 47 45 20 4F 46 |EFORE THE AGE OF|
00000990: 20 35 30 3F 22 00 A2 11 E8 03 83 22 45 3D 59 45 | 50?"......"E=YE|
000009A0: 53 22 00 AF 11 F2 03 83 22 20 49 3D 4E 4F 22 00 |S"......" I=NO".|
000009B0: BB 11 FC 03 83 32 2C 22 45 49 22 00 D8 11 06 04 |.....2,"EI".....|
000009C0: 83 22 2B 2B 2B 46 41 4D 49 4C 59 20 44 49 53 45 |."+++FAMILY DISE|
000009D0: 41 53 45 53 2B 2B 2B 22 00 15 12 10 04 83 22 41 |ASES+++"......"A|
000009E0: 4E 59 20 50 41 52 45 4E 54 2C 20 42 52 4F 54 48 |NY PARENT, BROTH|
000009F0: 45 52 20 4F 52 20 53 49 53 54 45 52 20 55 4E 44 |ER OR SISTER UND|
00000A00: 45 52 20 35 20 20 20 48 41 53 20 28 4F 52 20 48 |ER 5 HAS (OR H|
00000A10: 41 44 29 3A 22 00 55 12 1A 04 83 22 43 41 4E 43 |AD):".U...."CANC|
00000A20: 45 52 2C 20 41 20 48 45 41 52 54 20 43 4F 4E 44 |ER, A HEART COND|
00000A30: 49 54 49 4F 4E 20 4F 52 20 44 49 41 42 45 54 45 |ITION OR DIABETE|
00000A40: 53 20 20 20 53 49 4E 43 45 20 43 48 49 4C 44 48 |S SINCE CHILDH|
00000A50: 4F 4F 44 3F 22 00 62 12 24 04 83 22 4D 3D 59 45 |OOD?".b.$.."M=YE|
00000A60: 53 22 00 6F 12 2E 04 83 22 20 49 3D 4E 4F 22 00 |S".o...." I=NO".|
00000A70: 7B 12 38 04 83 32 2C 22 4D 49 22 00 93 12 42 04 |{.8..2,"MI"...B.|
00000A80: 83 22 2B 2B 2B 2B 2B 48 45 41 4C 54 48 2B 2B 2B |."+++++HEALTH+++|
00000A90: 2B 2B 22 00 B9 12 4C 04 83 22 48 4F 57 20 4D 55 |++"...L.."HOW MU|
00000AA0: 43 48 20 54 4F 42 41 43 43 4F 20 44 4F 20 59 4F |CH TOBACCO DO YO|
00000AB0: 55 20 53 4D 4F 4B 45 3F 22 00 DA 12 56 04 83 22 |U SMOKE?"...V.."|
00000AC0: 41 3D 4D 4F 52 45 20 54 48 41 4E 20 32 20 50 41 |A=MORE THAN 2 PA|
00000AD0: 43 4B 53 20 41 20 44 41 59 22 00 F6 12 60 04 83 |CKS A DAY"...`..|
00000AE0: 22 43 3D 31 20 54 4F 20 32 20 50 41 43 4B 53 20 |"C=1 TO 2 PACKS |
00000AF0: 41 20 44 41 59 22 00 1A 13 6A 04 83 22 4D 3D 4F |A DAY"...j.."M=O|
00000B00: 4E 45 20 48 41 4C 46 20 54 4F 20 4F 4E 45 20 50 |NE HALF TO ONE P|
00000B10: 41 43 4B 20 41 20 44 41 59 22 00 30 13 74 04 83 |ACK A DAY".0.t..|
00000B20: 22 20 49 3D 44 4F 4E 27 54 20 53 4D 4F 4B 45 22 |" I=DON'T SMOKE"|
00000B30: 00 3E 13 7E 04 83 34 2C 22 41 43 4D 49 22 00 59 |.>.~..4,"ACMI".Y|
00000B40: 13 88 04 83 22 2B 2B 2B 2B 2B 2B 2B 44 52 49 4E |...."+++++++DRIN|
00000B50: 4B 2B 2B 2B 2B 2B 2B 2B 22 00 82 13 92 04 83 22 |K+++++++"......"|
00000B60: 44 4F 20 59 4F 55 20 44 52 49 4E 4B 20 54 48 45 |DO YOU DRINK THE|
00000B70: 20 45 51 55 49 56 41 4C 45 4E 54 20 4F 46 20 41 | EQUIVALENT OF A|
00000B80: 20 22 00 A9 13 9C 04 83 22 51 55 41 52 54 45 52 | "......"QUARTER|
00000B90: 20 42 4F 54 54 4C 45 20 4F 46 20 4C 49 51 55 4F | BOTTLE OF LIQUO|
00000BA0: 52 20 41 20 44 41 59 3F 22 00 B6 13 A6 04 83 22 |R A DAY?"......"|
00000BB0: 48 3D 59 45 53 22 00 C3 13 B0 04 83 22 20 49 3D |H=YES"......" I=|
00000BC0: 4E 4F 22 00 CF 13 BA 04 83 32 2C 22 48 49 22 00 |NO"......2,"HI".|
00000BD0: E9 13 C4 04 83 22 2B 2B 2B 2B 2B 2B 57 45 49 47 |....."++++++WEIG|
00000BE0: 48 54 2B 2B 2B 2B 2B 2B 22 00 12 14 CE 04 83 22 |HT++++++"......"|
00000BF0: 41 3D 4F 56 45 52 57 45 49 47 48 54 20 42 59 20 |A=OVERWEIGHT BY |
00000C00: 35 30 20 50 4F 55 4E 44 53 20 4F 52 20 4D 4F 52 |50 POUNDS OR MOR|
00000C10: 45 22 00 30 14 D8 04 83 22 45 3D 4F 56 45 52 20 |E".0...."E=OVER |
00000C20: 42 59 20 33 30 2D 35 30 20 50 4F 55 4E 44 53 22 |BY 30-50 POUNDS"|
00000C30: 00 4E 14 E2 04 83 22 47 3D 4F 56 45 52 20 42 59 |.N...."G=OVER BY|
00000C40: 20 31 30 2D 33 30 20 50 4F 55 4E 44 53 22 00 67 | 10-30 POUNDS".g|
00000C50: 14 EC 04 83 22 20 49 3D 4E 4F 54 20 4F 56 45 52 |...." I=NOT OVER|
00000C60: 57 45 49 47 48 54 22 00 75 14 F6 04 83 34 2C 22 |WEIGHT".u....4,"|
00000C70: 41 45 47 49 22 00 94 14 00 05 83 22 2B 2B 2B 2B |AEGI"......"++++|
00000C80: 2B 2B 2B 43 48 45 43 4B 2D 55 50 53 2B 2B 2B 2B |+++CHECK-UPS++++|
00000C90: 2B 2B 2B 22 00 E0 14 0A 05 83 22 49 46 20 41 20 |+++"......"IF A |
00000CA0: 4D 41 4C 45 20 4F 56 45 52 20 34 30 3A 20 44 4F |MALE OVER 40: DO|
00000CB0: 20 59 4F 55 20 48 41 56 45 20 41 4E 20 20 20 20 | YOU HAVE AN |
00000CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 | A|
00000CD0: 4E 4E 55 41 4C 20 43 48 45 43 4B 2D 55 50 3F 22 |NNUAL CHECK-UP?"|
00000CE0: 00 ED 14 14 05 83 22 4B 3D 59 45 53 22 00 23 15 |......"K=YES".#.|
00000CF0: 1E 05 83 22 20 49 3D 4E 4F 20 4F 52 20 4E 4F 54 |..." I=NO OR NOT|
00000D00: 20 41 20 4D 41 4C 45 20 4F 52 20 55 4E 44 45 52 | A MALE OR UNDER|
00000D10: 20 34 30 20 59 45 41 52 53 20 20 20 20 20 20 4F | 40 YEARS O|
00000D20: 4C 44 22 00 2F 15 28 05 83 32 2C 22 4B 49 22 00 |LD"./.(..2,"KI".|
00000D30: 77 15 32 05 83 22 49 46 20 41 20 57 4F 4D 41 4E |w.2.."IF A WOMAN|
00000D40: 3A 20 44 4F 20 59 4F 55 20 53 45 45 20 41 20 47 |: DO YOU SEE A G|
00000D50: 59 4E 45 43 4F 4C 4F 47 49 53 54 20 20 20 20 20 |YNECOLOGIST |
00000D60: 20 20 20 20 20 20 20 20 20 20 4F 4E 43 45 20 41 | ONCE A|
00000D70: 20 59 45 41 52 3F 22 00 84 15 3C 05 83 22 4B 3D | YEAR?"...<.."K=|
00000D80: 59 45 53 22 00 A0 15 46 05 83 22 20 49 3D 4E 4F |YES"...F.." I=NO|
00000D90: 20 4F 52 20 4E 4F 54 20 41 20 57 4F 4D 41 4E 22 | OR NOT A WOMAN"|
00000DA0: 00 AC 15 50 05 83 32 2C 22 4B 49 22 00 CB 15 5A |...P..2,"KI"...Z|
00000DB0: 05 83 22 2B 2B 2B 2B 2B 2B 43 55 52 52 45 4E 54 |.."++++++CURRENT|
00000DC0: 20 41 47 45 2B 2B 2B 2B 2B 2B 22 00 DD 15 64 05 | AGE++++++"...d.|
00000DD0: 83 22 49 3D 55 4E 44 45 52 20 33 30 22 00 02 16 |."I=UNDER 30"...|
00000DE0: 6E 05 83 22 4B 3D 42 45 54 57 45 45 4E 20 33 30 |n.."K=BETWEEN 30|
00000DF0: 20 41 4E 44 20 34 30 20 59 45 41 52 53 20 4F 4C | AND 40 YEARS OL|
00000E00: 44 22 00 27 16 78 05 83 22 4C 3D 42 45 54 57 45 |D".'.x.."L=BETWE|
00000E10: 45 4E 20 34 30 20 41 4E 44 20 35 30 20 59 45 41 |EN 40 AND 50 YEA|
00000E20: 52 53 20 4F 4C 44 22 00 4C 16 82 05 83 22 46 3D |RS OLD".L...."F=|
00000E30: 42 45 54 57 45 45 4E 20 35 30 20 41 4E 44 20 37 |BETWEEN 50 AND 7|
00000E40: 30 20 59 45 41 52 53 20 4F 4C 44 22 00 5E 16 8C |0 YEARS OLD".^..|
00000E50: 05 83 22 20 4E 3D 4F 56 45 52 20 37 30 22 00 6D |.." N=OVER 70".m|
00000E60: 16 96 05 83 35 2C 22 4B 4C 46 4E 49 22 00 7B 16 |....5,"KLFNI".{.|
00000E70: A0 05 87 51 24 3A 99 51 24 3A 99 00 8A 16 AA 05 |...Q$:.Q$:......|
00000E80: 81 51 B2 32 A4 37 3A 87 51 24 00 A0 16 B4 05 8B |.Q.2.7:.Q$......|
00000E90: C8 28 51 24 2C 31 29 B2 22 20 22 A7 31 34 39 30 |.(Q$,1)." ".1490|
00000EA0: 00 AD 16 BE 05 99 22 20 20 22 3B 51 24 00 B4 16 |......" ";Q$...|
00000EB0: C8 05 82 51 00 C6 16 D2 05 99 22 20 22 3B 51 24 |...Q......" ";Q$|
00000EC0: 3A 87 43 2C 43 24 00 F0 16 DC 05 99 3A 99 22 43 |:.C,C$......:."C|
00000ED0: 48 4F 4F 53 45 20 4F 4E 45 20 4F 46 20 54 48 45 |HOOSE ONE OF THE|
00000EE0: 20 4C 45 54 54 45 52 53 20 41 42 4F 56 45 22 3B | LETTERS ABOVE";|
00000EF0: 00 04 17 E6 05 A1 47 24 3A 8B 47 24 B2 22 22 A7 |......G$:.G$."".|
00000F00: 31 35 31 30 00 10 17 FA 05 81 43 32 B2 31 A4 43 |1510......C2.1.C|
00000F10: 00 2D 17 04 06 8B C8 28 47 24 2C 31 29 B2 CA 28 |.-.....(G$,1)..(|
00000F20: 43 24 2C 43 32 2C 31 29 A7 31 35 36 35 00 35 17 |C$,C2,1).1565.5.|
00000F30: 0E 06 82 43 32 00 3F 17 18 06 89 31 35 31 30 00 |...C2.?....1510.|
00000F40: 4A 17 1D 06 99 22 20 22 47 24 00 5A 17 22 06 99 |J...." "G$.Z."..|
00000F50: C7 28 31 34 37 29 3A 99 3A 99 00 66 17 2C 06 81 |.(147):.:..f.,..|
00000F60: 4E B2 31 A4 31 35 00 82 17 36 06 8B C8 28 47 24 |N.1.15...6...(G$|
00000F70: 2C 31 29 B2 CA 28 41 24 2C 4E 2C 31 29 A7 31 36 |,1)..(A$,N,1).16|
00000F80: 31 30 00 88 17 40 06 82 00 9D 17 4A 06 4D B2 4E |10...@.....J.M.N|
00000F90: AB 39 3A 5A B2 5A AA 4D 3A 89 32 35 30 00 E1 17 |.9:Z.Z.M:.250...|
00000FA0: 54 06 99 22 11 11 59 4F 55 27 52 45 20 45 58 50 |T.."..YOU'RE EXP|
00000FB0: 45 43 54 45 44 20 54 4F 20 4C 49 56 45 20 54 4F |ECTED TO LIVE TO|
00000FC0: 20 54 48 45 20 41 47 45 20 4F 46 20 12 22 CA 28 | THE AGE OF .".(|
00000FD0: C4 28 5A 29 2C 32 29 22 92 20 59 45 41 52 53 2E |.(Z),2)". YEARS.|
00000FE0: 22 00 F0 17 5E 06 8B 5A B3 36 30 A7 31 37 30 30 |"...^..Z.60.1700|
00000FF0: 00 FE 17 68 06 81 59 B2 36 30 A4 5A A9 35 00 09 |...h..Y.60.Z.5..|
00001000: 18 72 06 87 4D 24 2C 46 24 00 10 18 7C 06 82 59 |.r..M$,F$...|..Y|
00001010: 00 45 18 86 06 83 22 32 36 25 22 2C 22 31 35 25 |.E...."26%","15%|
00001020: 22 2C 22 33 36 25 22 2C 22 32 30 25 22 2C 22 34 |","36%","20%","4|
00001030: 38 25 22 2C 22 33 30 25 22 2C 22 36 31 25 22 2C |8%","30%","61%",|
00001040: 22 33 39 25 22 00 7E 18 90 06 83 22 37 35 25 22 |"39%".~...."75%"|
00001050: 2C 22 35 33 25 22 2C 22 38 37 25 22 2C 22 37 30 |,"53%","87%","70|
00001060: 25 22 2C 22 39 36 25 22 2C 22 38 38 25 22 2C 22 |%","96%","88%","|
00001070: 39 39 2E 39 25 22 2C 22 39 39 2E 36 25 22 00 BB |99.9%","99.6%"..|
00001080: 18 9A 06 99 22 4F 55 54 2D 4C 49 56 49 4E 47 20 |...."OUT-LIVING |
00001090: 12 22 4D 24 22 92 20 4F 46 20 54 48 45 20 4D 45 |."M$". OF THE ME|
000010A0: 4E 20 41 4E 44 20 12 22 46 24 22 92 20 4F 46 20 |N AND ."F$". OF |
000010B0: 54 48 45 20 57 4F 4D 45 4E 2E 22 00 CE 18 A4 06 |THE WOMEN.".....|
000010C0: 81 49 B2 31 A4 39 3A A1 41 41 24 3A 82 49 00 ED |.I.1.9:.AA$:.I..|
000010D0: 18 AE 06 99 3A 99 3A 99 22 41 4E 4F 54 48 45 52 |....:.:."ANOTHER|
000010E0: 20 52 55 4E 20 28 59 2F 4E 29 3F 22 3B 00 03 19 | RUN (Y/N)?";...|
000010F0: B8 06 A1 41 41 24 3A 8B 41 41 24 B2 22 22 A7 31 |...AA$:.AA$."".1|
00001100: 37 32 30 00 19 19 C2 06 99 41 41 24 3A 8B 41 41 |720......AA$:.AA|
00001110: 24 B2 22 59 22 A7 31 35 30 00 3F 19 CC 06 97 35 |$."Y".150.?....5|
00001120: 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 |3281,6:.53280,14|
00001130: 3A 99 C7 28 31 34 37 29 3A 89 35 30 30 30 30 00 |:..(147):.50000.|
00001140: 7D 19 50 C3 4B B2 36 33 31 3A 41 24 B2 22 43 36 |}.P.K.631:A$."C6|
00001150: 34 20 50 41 4B 22 3A 97 4B 2C 37 36 3A 97 4B AA |4 PAK":.K,76:.K.|
00001160: 31 2C 32 30 37 3A 97 4B AA 32 2C 36 35 3A 97 4B |1,207:.K.2,65:.K|
00001170: AA 33 2C 33 36 3A 97 4B AA 34 2C 34 34 00 B4 19 |.3,36:.K.4,44...|
00001180: 38 C7 97 4B AA 35 2C 35 36 3A 97 4B AA 36 2C 31 |8..K.5,56:.K.6,1|
00001190: 33 3A 97 4B AA 37 2C 38 32 3A 97 4B AA 38 2C 32 |3:.K.7,82:.K.8,2|
000011A0: 31 33 3A 97 4B AA 39 2C 31 33 3A 97 31 39 38 2C |13:.K.9,13:.198,|
000011B0: 31 30 3A 80 00 00 00 FF |10:..... |
.......53281,9:.53280,7.H....G(147);"
..LIFE EXPECTANCY":.:.:..N. ....
...."THIS IS A TEST TO PREDICT HOW LONG
YOU'LL LIVE. ";.A...."I'LL ASK YOU
A SERIES OF SHORT QUESTIONS, ";......"
WHICH YOU WILL ANSWER BY PRESSING THE A
PPROPRIATE KEY.":..,.H..".. .WHEN
READY PRESS RETURN".?.J..Z$:.Z$."".202.
R.L..Z$..G(13).202.B.N..G(147):.:..K...R
5.1.....Z.72:A$."ABCDEMGHIJKLFNO"......1
440.....R5.R5.1......R5.21..1620.P...."+
+++++++++SEX+++++++++++"......"ARE YOU M
ALE OR FEMALE?"...".."M=MALE"...,.." F=F
EMALE"...6..2,"MF".<.@.."++++++++LIFE ST
YLE++++++++".V.J.."WHERE DO YOU LIVE?".S
.T.."G=CITY OVER 2 MILLION"...^.."K=TOWN
UNDER 10 000, OR A FARM"...H.." I=NEITH
ER"...R..3,"GKI".V.|.."+++HOW DO YOU WOR
K?+++"......"M=DESK WORK"......"L=HEAVY
PHYSICAL LABOUR"......" I=NEITHER".'....
3,"MLI".T...."HOW LONG DO YOU EXERCISE S
TRENUOUSLY:".S...."(TENNIS, RUNNING, ETC
)?"...B.."F=5TIMES A WEEK FOR AT LEAST H
ALF AN HOUR".F.L.."K=2 OR 3 TIMES A
WEEK".X.V.." I=NEITHER"......3,"FKI"...
..."+++WHO DO YOU LIVE WITH?+++".)...."N
=SPOUSE,FRIEND OR FAMILY".M...."H=LIVED
ALONE FOR 1-10 YEARS".R...."G=LIVED ALON
E FOR 11-20 YEARS"......"M=LIVED ALONE F
OR 21-30 YEARS"......"E=LIVED ALONE FOR
31-40 YEARS"...&.." D=LIVED ALONE FOR MO
RE THAN 40 YEARS"...0..6,"NHGMED"...:.."
++++++++++PSYCHE++++++++++".Q.D.."DO YOU
SLEEP MORE THAN 10 HOURS A NIGHT?
".].N.."I=NO".K.X.." E=YES".W.B..2,"IE".
..L.."+++++++MENTAL STATE+++++++".Y.V.."
M=IF YOU ARE INTENSE,AGGRESSIVE OR
EASILY ANGERED"......"L=IF YOU ARE EAS
Y-GOING, RELAXED OR A FOLLOWER".%...
." I=NEITHER".2....3,"MLI".R...."++++++H
OW YOU FEEL++++++".S...."ARE YOU HAPPY O
R UNHAPPY?"......"J=HAPPY"......"G=UNHAP
PY"...F.." I=NEITHER"...P..3,"JGI".O.Z..
"+++++++FACTORS+++++++"......"HAVE YOU H
AD A SPEEDING TICKET IN THE LAST YEAR?
"......"H=YES".#...." I=NO"./....2,"HI".
I...."++++++INCOME++++++".V...."DO YOU E
ARN MORE THAN $50 000 A YEAR?"... .."G=Y
ES"...*.." I=NO"...4..2,"GI"...>.."+++++
+SCHOOLING++++++".S.H.."J=FINISHED COLLE
GE"...R.."L=GRADUATE OR PROFESSIONAL DEG
REE"...\.." I=NEITHER"...F..3,"JLI".8.P.
."+++++++++AGE+++++++++".F.Z.."ARE YOU 6
5 OR OLDER AND STILL WORKING?".S...."L=Y
ES"......" I=NO"......2,"LI"......"+++++
+++HEREDITY++++++++"......"K=IF ANY GRAN
DPARENTS LIVED TO 85 YEARS OLD".
"...."O=IF ALL GRANDPARENTS LIVED TO 80
YEARS OLD".4...." I=NEITHER".A.J
..3,"KOI".H.T.."HAS ANY PARENT DIED OF A
STROKE"......"OR HEART ATTACK BEFORE TH
E AGE OF 50?"......"E=YES"......" I=NO".
.....2,"EI".X...."+++FAMILY DISEASES+++"
......"ANY PARENT, BROTHER OR SISTER UND
ER 5 HAS (OR HAD):".U...."CANCER, A HE
ART CONDITION OR DIABETES SINCE CHILDH
OOD?".B.$.."M=YES".O...." I=NO".{.8..2,"
MI"...B.."+++++HEALTH+++++"...L.."HOW MU
CH TOBACCO DO YOU SMOKE?".Z.V.."A=MORE T
HAN 2 PACKS A DAY"...`.."C=1 TO 2 PACKS
A DAY"...J.."M=ONE HALF TO ONE PACK A DA
Y".0.T.." I=DON'T SMOKE".>.~..4,"ACMI".Y
...."+++++++DRINK+++++++"......"DO YOU D
RINK THE EQUIVALENT OF A "......"QUARTER
BOTTLE OF LIQUOR A DAY?"......"H=YES".C
...." I=NO".O....2,"HI"...D.."++++++WEIG
HT++++++"...N.."A=OVERWEIGHT BY 50 POUND
S OR MORE".0.X.."E=OVER BY 30-50 POUNDS"
.N...."G=OVER BY 10-30 POUNDS".G...." I=
NOT OVERWEIGHT".U....4,"AEGI"......"++++
+++CHECK-UPS+++++++"......"IF A MALE OVE
R 40: DO YOU HAVE AN A
NNUAL CHECK-UP?"......"K=YES".#...." I=N
O OR NOT A MALE OR UNDER 40 YEARS O
LD"./.(..2,"KI".W.2.."IF A WOMAN: DO YOU
SEE A GYNECOLOGIST ONCE A
YEAR?"...<.."K=YES". .F.." I=NO OR NOT
A WOMAN"...P..2,"KI".K.Z.."++++++CURRENT
AGE++++++"...D.."I=UNDER 30"...N.."K=BE
TWEEN 30 AND 40 YEARS OLD".'.X.."L=BETWE
EN 40 AND 50 YEARS OLD".L...."F=BETWEEN
50 AND 70 YEARS OLD".^...." N=OVER 70".M
....5,"KLFNI".{. ..Q$:.Q$:.......Q.2.7:.
Q$. ....H(Q$,1)." ".1490......" ";Q$...
H..Q.F.R.." ";Q$:.C,C$......:."CHOOSE ON
E OF THE LETTERS ABOVE";......G$:.G$."".
1510......C2.1.C.-....H(G$,1).J(C$,C2,1)
.1565.5....C2.?....1510.J...." "G$.Z."..
G(147):.:..F.,..N.1.15...6..H(G$,1).J(A$
,N,1).1610...@.....J.M.N.9:Z.Z.M:.250...
T.."..YOU'RE EXPECTED TO LIVE TO THE AGE
OF ."J(D(Z),2)". YEARS."...^..Z.60.1700
...H..Y.60.Z.5...R..M$,F$...|..Y.E...."2
6%","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 WOME
N.".N....I.1.9:.AA$:.I......:.:."ANOTHER
RUN (Y/N)?";......AA$:.AA$."".1720...B.
.AA$:.AA$."Y".150.?.L..53281,6:.53280,14
:.G(147):.50000.}.PCK.631:A$."C64 PAK":.
K,76:.K.1,207:.K.2,65:.K.3,36:.K.4,44...
8G.K.5,56:.K.6,13:.K.7,82:.K.8,213:.K.9,
13:.198,10:.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL