LIFE EXPECTANCY
FILE INFORMATION
FILENAME(S): LIFE EXPECTANCY
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-11-30 01:08:05
APPEARS ON: 3 disk(s)
FILE HASH
97d3432d971b6a1c65b8fdedd90454af38afa66d416b9d9075197096c32f3624
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| S PIELE | LIFE EXPECTANCY | PRG | Treasure Chest - Wolfgang Rauprich | 16 | 0 | DOWNLOAD FILE |
| SPIELE | LIFE EXPECTANCY | PRG | Treasure Chest - Wolfgang Rauprich | 16 | 0 | DOWNLOAD FILE |
| FREESOFT DISK NR | LIFE EXPECTANCY | PRG | Treasure Chest - Wolfgang Rauprich | 14 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 64 00 99 22 93 1D 1D 1D 00 16 08 6E |....d..".......n|
00000010: 00 99 3A 99 3A 99 00 3B 08 78 00 99 22 54 48 49 |..:.:..;.x.."THI|
00000020: 53 20 49 53 20 41 20 4C 49 46 45 20 45 58 50 45 |S IS A LIFE EXPE|
00000030: 43 54 41 4E 43 59 20 54 45 53 54 00 44 08 82 00 |CTANCY TEST.D...|
00000040: 52 35 B2 31 00 4D 08 8C 00 5A B2 37 32 00 66 08 |R5.1.M...Z.72.f.|
00000050: 96 00 41 24 B2 22 41 42 43 44 45 4D 47 48 49 4A |..A$."ABCDEMGHIJ|
00000060: 4B 4C 46 4E 4F 22 00 71 08 A0 00 89 20 31 37 38 |KLFNO".q.... 178|
00000070: 30 00 7D 08 AA 00 52 35 B2 52 35 AA 31 00 90 08 |0.}...R5.R5.1...|
00000080: B4 00 8B 20 52 35 B1 32 31 20 A7 20 31 39 38 30 |... R5.21 . 1980|
00000090: 00 96 08 BE 00 83 00 A8 08 C8 00 83 20 22 2B 2B |............ "++|
000000A0: 2B 53 45 58 2B 2B 2B 22 00 AE 08 D2 00 83 00 CE |+SEX+++"........|
000000B0: 08 DC 00 83 20 22 41 52 45 20 59 4F 55 20 4D 41 |.... "ARE YOU MA|
000000C0: 4C 45 20 4F 52 20 46 45 4D 41 4C 45 3F 22 00 DF |LE OR FEMALE?"..|
000000D0: 08 E6 00 83 20 22 4D 3D 20 4D 41 4C 45 2E 22 00 |.... "M= MALE.".|
000000E0: F3 08 F0 00 83 20 22 20 46 3D 20 46 45 4D 41 4C |..... " F= FEMAL|
000000F0: 45 2E 22 00 00 09 FA 00 83 20 32 2C 22 4D 46 22 |E."...... 2,"MF"|
00000100: 00 1A 09 04 01 83 20 22 93 2B 2B 2B 4C 49 46 45 |...... ".+++LIFE|
00000110: 20 53 54 59 4C 45 2B 2B 2B 22 00 20 09 0E 01 83 | STYLE+++". ....|
00000120: 00 26 09 18 01 83 00 41 09 22 01 83 20 22 57 48 |.&.....A.".. "WH|
00000130: 45 52 45 20 44 4F 20 59 4F 55 20 4C 49 56 45 3F |ERE DO YOU LIVE?|
00000140: 22 00 87 09 2C 01 83 20 22 47 3D 20 49 46 20 59 |"...,.. "G= IF Y|
00000150: 4F 55 20 4C 49 56 45 20 49 4E 20 41 4E 20 55 52 |OU LIVE IN AN UR|
00000160: 42 41 4E 20 41 52 45 41 20 57 49 54 48 20 41 20 |BAN AREA WITH A |
00000170: 50 4F 50 55 4C 41 54 49 4F 4E 20 4F 56 45 52 20 |POPULATION OVER |
00000180: 32 20 4D 49 4C 2E 22 00 C3 09 36 01 83 20 22 4B |2 MIL."...6.. "K|
00000190: 3D 20 49 46 20 59 4F 55 20 4C 49 56 45 20 49 4E |= IF YOU LIVE IN|
000001A0: 20 41 20 54 4F 57 4E 20 55 4E 44 45 52 20 31 30 | A TOWN UNDER 10|
000001B0: 2C 30 30 30 20 4F 52 20 4F 4E 20 41 20 46 41 52 |,000 OR ON A FAR|
000001C0: 4D 2E 22 00 D8 09 40 01 83 20 22 20 49 3D 20 4E |M."...@.. " I= N|
000001D0: 45 49 54 48 45 52 2E 22 00 E6 09 4A 01 83 20 33 |EITHER."...J.. 3|
000001E0: 2C 22 47 4B 49 22 00 00 0A 54 01 83 20 22 93 48 |,"GKI"...T.. ".H|
000001F0: 4F 57 20 44 4F 20 59 4F 55 20 57 4F 52 4B 3F 22 |OW DO YOU WORK?"|
00000200: 00 06 0A 5E 01 83 00 0C 0A 68 01 83 00 32 0A 72 |...^.....h...2.r|
00000210: 01 83 20 22 4D 3D 20 49 46 20 59 4F 55 20 57 4F |.. "M= IF YOU WO|
00000220: 52 4B 20 42 45 48 49 4E 44 20 41 20 44 45 53 4B |RK BEHIND A DESK|
00000230: 2E 22 00 69 0A 7C 01 83 20 22 4C 3D 20 49 46 20 |.".i.|.. "L= IF |
00000240: 59 4F 55 52 20 57 4F 52 4B 20 52 45 51 55 49 52 |YOUR WORK REQUIR|
00000250: 45 53 20 48 45 41 56 59 20 50 48 59 53 49 43 41 |ES HEAVY PHYSICA|
00000260: 4C 20 4C 41 42 4F 52 2E 22 00 88 0A 86 01 83 20 |L LABOR."...... |
00000270: 22 20 49 3D 20 4E 4F 4E 45 20 4F 46 20 54 48 45 |" I= NONE OF THE|
00000280: 20 41 42 4F 56 45 2E 22 00 96 0A 90 01 83 20 33 | ABOVE."...... 3|
00000290: 2C 22 4D 4C 49 22 00 C4 0A 9A 01 83 20 22 93 48 |,"MLI"...... ".H|
000002A0: 4F 57 20 4C 4F 4E 47 20 44 4F 20 59 4F 55 20 45 |OW LONG DO YOU E|
000002B0: 58 45 52 43 49 53 45 20 53 54 52 45 4E 55 4F 53 |XERCISE STRENUOS|
000002C0: 4C 59 2C 22 00 EF 0A A4 01 83 20 22 28 54 45 4E |LY,"...... "(TEN|
000002D0: 4E 49 53 2C 20 52 55 4E 4E 49 4E 47 2C 20 53 57 |NIS, RUNNING, SW|
000002E0: 49 4D 4D 49 4E 47 2C 20 45 54 43 2E 29 3F 22 00 |IMMING, ETC.)?".|
000002F0: F5 0A AE 01 83 00 FB 0A B8 01 83 00 32 0B C2 01 |............2...|
00000300: 83 20 22 46 3D 20 46 49 56 45 20 54 49 4D 45 53 |. "F= FIVE TIMES|
00000310: 20 41 20 57 45 45 4B 20 46 4F 52 20 41 54 20 4C | A WEEK FOR AT L|
00000320: 45 41 53 54 20 41 20 48 41 4C 46 20 48 4F 55 52 |EAST A HALF HOUR|
00000330: 2E 22 00 5D 0B CC 01 83 20 22 4B 3D 20 4A 55 53 |.".].... "K= JUS|
00000340: 54 20 54 57 4F 20 4F 52 20 54 48 52 45 45 20 54 |T TWO OR THREE T|
00000350: 49 4D 45 53 20 41 20 57 45 45 4B 2E 22 00 8A 0B |IMES A WEEK."...|
00000360: D6 01 83 20 22 20 49 3D 20 44 4F 20 4E 4F 54 20 |... " I= DO NOT |
00000370: 45 58 45 52 43 49 53 45 20 49 4E 20 54 48 49 53 |EXERCISE IN THIS|
00000380: 20 46 41 53 48 49 4F 4E 2E 22 00 98 0B E0 01 83 | FASHION."......|
00000390: 20 33 2C 22 46 4B 49 22 00 B7 0B EA 01 83 20 22 | 3,"FKI"...... "|
000003A0: 93 57 48 4F 20 44 4F 20 59 4F 55 20 4C 49 56 45 |.WHO DO YOU LIVE|
000003B0: 20 57 49 54 48 3F 22 00 BD 0B F4 01 83 00 C3 0B | WITH?".........|
000003C0: FE 01 83 00 01 0C 08 02 83 20 22 4E 3D 20 49 46 |......... "N= IF|
000003D0: 20 59 4F 55 20 4C 49 56 45 20 57 49 54 48 20 41 | YOU LIVE WITH A|
000003E0: 20 53 50 4F 55 53 45 2C 46 52 49 45 4E 44 2C 20 | SPOUSE,FRIEND, |
000003F0: 20 4F 52 20 49 4E 20 41 20 46 41 4D 49 4C 59 2E | OR IN A FAMILY.|
00000400: 22 00 43 0C 12 02 83 20 22 48 3D 20 49 46 20 59 |".C.... "H= IF Y|
00000410: 4F 55 27 56 45 20 4C 49 56 45 44 20 41 4C 4F 4E |OU'VE LIVED ALON|
00000420: 45 20 46 4F 52 20 31 2D 31 30 20 20 20 20 20 59 |E FOR 1-10 Y|
00000430: 45 41 52 53 20 53 49 4E 43 45 20 41 47 45 20 32 |EARS SINCE AGE 2|
00000440: 35 2E 22 00 5F 0C 1C 02 83 20 22 47 3D 20 46 4F |5."._.... "G= FO|
00000450: 52 20 31 31 2D 32 30 20 59 45 41 52 53 2E 22 00 |R 11-20 YEARS.".|
00000460: 7B 0C 26 02 83 20 22 4D 3D 20 46 4F 52 20 32 31 |{.&.. "M= FOR 21|
00000470: 2D 33 30 20 59 45 41 52 53 2E 22 00 97 0C 30 02 |-30 YEARS."...0.|
00000480: 83 20 22 45 3D 20 46 4F 52 20 33 31 2D 34 30 20 |. "E= FOR 31-40 |
00000490: 59 45 41 52 53 2E 22 00 BB 0C 3A 02 83 20 22 20 |YEARS."...:.. " |
000004A0: 4D 3D 20 46 4F 52 20 4D 4F 52 45 20 54 48 41 4E |M= FOR MORE THAN|
000004B0: 20 34 30 20 59 45 41 52 53 2E 22 00 CC 0C 44 02 | 40 YEARS."...D.|
000004C0: 83 20 36 2C 22 4E 48 47 4D 45 44 22 00 E2 0C 4E |. 6,"NHGMED"...N|
000004D0: 02 83 20 22 93 2B 2B 2B 50 53 59 43 48 45 2B 2B |.. ".+++PSYCHE++|
000004E0: 2B 22 00 13 0D 58 02 83 20 22 44 4F 20 59 4F 55 |+"...X.. "DO YOU|
000004F0: 20 53 4C 45 45 50 20 4D 4F 52 45 20 54 48 41 4E | SLEEP MORE THAN|
00000500: 20 31 30 20 48 4F 55 52 53 20 41 20 4E 49 47 48 | 10 HOURS A NIGH|
00000510: 54 3F 22 00 19 0D 62 02 83 00 28 0D 6C 02 83 20 |T?"...b...(.l.. |
00000520: 22 49 3D 20 4E 4F 2E 22 00 39 0D 76 02 83 20 22 |"I= NO.".9.v.. "|
00000530: 20 45 3D 20 59 45 53 2E 22 00 46 0D 80 02 83 20 | E= YES.".F.... |
00000540: 32 2C 22 49 45 22 00 62 0D 8A 02 83 20 22 93 2B |2,"IE".b.... ".+|
00000550: 2B 2B 4D 45 4E 54 41 4C 20 53 54 41 54 45 2B 2B |++MENTAL STATE++|
00000560: 2B 22 00 68 0D 94 02 83 00 6E 0D 9E 02 83 00 AC |+".h.....n......|
00000570: 0D A8 02 83 20 22 4D 3D 20 49 46 20 59 4F 55 20 |.... "M= IF YOU |
00000580: 41 52 45 20 49 4E 54 45 4E 53 45 2C 20 41 47 47 |ARE INTENSE, AGG|
00000590: 52 45 53 53 49 56 45 2C 20 4F 52 20 45 41 53 49 |RESSIVE, OR EASI|
000005A0: 4C 59 20 41 4E 47 45 52 45 44 2E 22 00 E6 0D B2 |LY ANGERED."....|
000005B0: 02 83 20 22 4C 3D 20 49 46 20 59 4F 55 20 41 52 |.. "L= IF YOU AR|
000005C0: 45 20 45 41 53 59 20 47 4F 49 4E 47 2C 20 52 45 |E EASY GOING, RE|
000005D0: 4C 41 58 45 44 2C 20 4F 52 20 41 20 46 4F 4C 4C |LAXED, OR A FOLL|
000005E0: 4F 57 45 52 2E 22 00 FB 0D BC 02 83 20 22 20 49 |OWER."...... " I|
000005F0: 3D 20 4E 45 49 54 48 45 52 2E 22 00 09 0E C6 02 |= NEITHER.".....|
00000600: 83 20 33 2C 22 4D 4C 49 22 00 28 0E D0 02 83 20 |. 3,"MLI".(.... |
00000610: 22 93 2B 2B 2B 48 4F 57 20 44 4F 20 59 4F 55 20 |".+++HOW DO YOU |
00000620: 46 45 45 4C 2B 2B 2B 22 00 2E 0E DA 02 83 00 34 |FEEL+++".......4|
00000630: 0E E4 02 83 00 56 0E EE 02 83 20 22 41 52 45 20 |.....V.... "ARE |
00000640: 59 4F 55 20 48 41 50 50 59 20 4F 52 20 55 4E 48 |YOU HAPPY OR UNH|
00000650: 41 50 50 59 3F 22 00 68 0E F8 02 83 20 22 4A 3D |APPY?".h.... "J=|
00000660: 20 48 41 50 50 59 2E 22 00 7C 0E 02 03 83 20 22 | HAPPY.".|.... "|
00000670: 47 3D 20 55 4E 48 41 50 50 59 2E 22 00 91 0E 0C |G= UNHAPPY."....|
00000680: 03 83 20 22 20 49 3D 20 4E 45 49 54 48 45 52 2E |.. " I= NEITHER.|
00000690: 22 00 9E 0E 16 03 83 33 2C 22 4A 47 49 22 00 B5 |"......3,"JGI"..|
000006A0: 0E 20 03 83 20 22 93 2B 2B 2B 46 41 43 54 4F 52 |. .. ".+++FACTOR|
000006B0: 53 2B 2B 2B 22 00 BB 0E 2A 03 83 00 C1 0E 34 03 |S+++"...*.....4.|
000006C0: 83 00 FA 0E 3E 03 83 20 22 48 41 56 45 20 59 4F |....>.. "HAVE YO|
000006D0: 55 20 48 41 44 20 41 20 53 50 45 45 44 49 4E 47 |U HAD A SPEEDING|
000006E0: 20 54 49 43 4B 45 54 20 49 4E 20 54 48 45 20 4C | TICKET IN THE L|
000006F0: 41 53 54 20 59 45 41 52 3F 22 00 0A 0F 48 03 83 |AST YEAR?"...H..|
00000700: 20 22 48 3D 20 59 45 53 2E 22 00 1A 0F 52 03 83 | "H= YES."...R..|
00000710: 20 22 20 49 3D 20 4E 4F 2E 22 00 27 0F 5C 03 83 | " I= NO.".'.\..|
00000720: 20 32 2C 22 48 49 22 00 3D 0F 66 03 83 20 22 93 | 2,"HI".=.f.. ".|
00000730: 2B 2B 2B 49 4E 43 4F 4D 45 2B 2B 2B 22 00 43 0F |+++INCOME+++".C.|
00000740: 70 03 83 00 49 0F 7A 03 83 00 77 0F 84 03 83 20 |p...I.z...w.... |
00000750: 22 44 4F 20 59 4F 55 20 45 41 52 4E 20 4D 4F 52 |"DO YOU EARN MOR|
00000760: 45 20 54 48 41 4E 20 24 35 30 2C 30 30 30 20 41 |E THAN $50,000 A|
00000770: 20 59 45 41 52 3F 22 00 87 0F 8E 03 83 20 22 47 | YEAR?"...... "G|
00000780: 3D 20 59 45 53 2E 22 00 97 0F 98 03 83 20 22 20 |= YES."...... " |
00000790: 49 3D 20 4E 4F 2E 22 00 A4 0F A2 03 83 20 32 2C |I= NO."...... 2,|
000007A0: 22 47 49 22 00 BD 0F AC 03 83 20 22 93 2B 2B 2B |"GI"...... ".+++|
000007B0: 53 43 48 4F 4F 4C 49 4E 47 2B 2B 2B 22 00 C3 0F |SCHOOLING+++"...|
000007C0: B6 03 83 00 C9 0F C0 03 83 00 F2 0F CA 03 83 20 |............... |
000007D0: 22 4A 3D 20 49 46 20 59 4F 55 20 48 41 56 45 20 |"J= IF YOU HAVE |
000007E0: 46 49 4E 49 53 48 45 44 20 43 4F 4C 4C 45 47 45 |FINISHED COLLEGE|
000007F0: 2E 22 00 2A 10 D4 03 83 20 22 4C 3D 20 49 46 20 |.".*.... "L= IF |
00000800: 59 4F 55 20 48 41 56 45 20 46 49 4E 49 53 48 45 |YOU HAVE FINISHE|
00000810: 44 20 43 4F 4C 4C 45 47 45 20 57 49 54 48 20 41 |D COLLEGE WITH A|
00000820: 20 47 52 41 44 55 41 54 45 22 00 4A 10 DE 03 83 | GRADUATE".J....|
00000830: 20 22 4F 52 20 50 52 4F 46 45 53 53 49 4F 4E 41 | "OR PROFESSIONA|
00000840: 4C 20 44 45 47 52 45 45 2E 22 00 66 10 E8 03 83 |L DEGREE.".f....|
00000850: 20 22 20 49 3D 20 4E 4F 54 48 49 4E 47 20 4C 49 | " I= NOTHING LI|
00000860: 53 54 45 44 2E 22 00 74 10 F2 03 83 20 33 2C 22 |STED.".t.... 3,"|
00000870: 4A 4C 49 22 00 87 10 FC 03 83 20 22 93 2B 2B 2B |JLI"...... ".+++|
00000880: 41 47 45 2B 2B 2B 22 00 8D 10 06 04 83 00 93 10 |AGE+++".........|
00000890: 10 04 83 00 C2 10 1A 04 83 20 22 41 52 45 20 59 |......... "ARE Y|
000008A0: 4F 55 20 36 35 20 4F 52 20 4F 4C 44 45 52 20 41 |OU 65 OR OLDER A|
000008B0: 4E 44 20 53 54 49 4C 4C 20 57 4F 52 4B 49 4E 47 |ND STILL WORKING|
000008C0: 3F 22 00 D2 10 24 04 83 20 22 4C 3D 20 59 45 53 |?"...$.. "L= YES|
000008D0: 2E 22 00 E2 10 2E 04 83 20 22 20 49 3D 20 4E 4F |."...... " I= NO|
000008E0: 2E 22 00 EF 10 38 04 83 20 32 2C 22 4C 49 22 00 |."...8.. 2,"LI".|
000008F0: 07 11 42 04 83 20 22 93 2B 2B 2B 48 45 52 45 44 |..B.. ".+++HERED|
00000900: 49 54 59 2B 2B 2B 22 00 0D 11 4C 04 83 00 13 11 |ITY+++"...L.....|
00000910: 56 04 83 00 49 11 60 04 83 20 22 4B 3D 20 49 46 |V...I.`.. "K= IF|
00000920: 20 41 4E 59 20 47 52 41 4E 44 50 41 52 45 4E 54 | ANY GRANDPARENT|
00000930: 53 20 4C 49 56 45 44 20 54 4F 20 38 35 20 59 45 |S LIVED TO 85 YE|
00000940: 41 52 53 20 4F 4C 44 2E 22 00 84 11 6A 04 83 20 |ARS OLD."...j.. |
00000950: 22 4F 3D 20 49 46 20 41 4C 4C 20 46 4F 55 52 20 |"O= IF ALL FOUR |
00000960: 47 52 41 4E 44 50 41 52 45 4E 54 53 20 4C 49 56 |GRANDPARENTS LIV|
00000970: 45 44 20 54 4F 20 38 30 20 59 45 41 52 53 20 4F |ED TO 80 YEARS O|
00000980: 4C 44 2E 22 00 B6 11 74 04 83 20 22 20 49 3D 20 |LD."...t.. " I= |
00000990: 4E 4F 20 47 52 41 4E 44 50 41 52 45 4E 54 53 20 |NO GRANDPARENTS |
000009A0: 51 55 41 4C 49 46 59 20 49 4E 20 54 48 45 20 41 |QUALIFY IN THE A|
000009B0: 42 4F 56 45 2E 22 00 C4 11 7E 04 83 20 33 2C 22 |BOVE."...~.. 3,"|
000009C0: 4B 4F 49 22 00 FD 11 88 04 83 20 22 93 48 41 53 |KOI"...... ".HAS|
000009D0: 20 41 4E 59 20 50 41 52 45 4E 54 20 44 49 45 44 | ANY PARENT DIED|
000009E0: 20 4F 46 20 41 20 53 54 52 4F 4B 45 20 4F 52 20 | OF A STROKE OR |
000009F0: 48 45 41 52 54 20 41 54 54 41 43 4B 22 00 03 12 |HEART ATTACK"...|
00000A00: 92 04 83 00 09 12 9C 04 83 00 27 12 A6 04 83 20 |..........'.... |
00000A10: 22 42 45 46 4F 52 45 20 54 48 45 20 41 47 45 20 |"BEFORE THE AGE |
00000A20: 4F 46 20 35 30 3F 22 00 37 12 B0 04 83 20 22 45 |OF 50?".7.... "E|
00000A30: 3D 20 59 45 53 2E 22 00 47 12 BA 04 83 20 22 20 |= YES.".G.... " |
00000A40: 49 3D 20 4E 4F 2E 22 00 54 12 C4 04 83 20 32 2C |I= NO.".T.... 2,|
00000A50: 22 45 49 22 00 72 12 CE 04 83 20 22 93 2B 2B 2B |"EI".r.... ".+++|
00000A60: 46 41 4D 49 4C 59 20 44 49 53 45 41 53 45 2B 2B |FAMILY DISEASE++|
00000A70: 2B 22 00 78 12 D8 04 83 00 7E 12 E2 04 83 00 BB |+".x.....~......|
00000A80: 12 EC 04 83 20 22 41 4E 59 20 50 41 52 45 4E 54 |.... "ANY PARENT|
00000A90: 2C 20 42 52 4F 54 48 45 52 2C 20 4F 52 20 53 49 |, BROTHER, OR SI|
00000AA0: 53 54 45 52 20 55 4E 44 45 52 20 35 30 20 48 41 |STER UNDER 50 HA|
00000AB0: 53 20 28 4F 52 20 48 41 44 29 22 00 FB 12 F6 04 |S (OR HAD)".....|
00000AC0: 83 20 22 43 41 4E 43 45 52 2C 20 41 20 48 45 41 |. "CANCER, A HEA|
00000AD0: 52 54 20 43 4F 4E 44 49 54 49 4F 4E 2C 20 4F 52 |RT CONDITION, OR|
00000AE0: 20 44 49 41 42 45 54 45 53 20 53 49 4E 43 45 20 | DIABETES SINCE |
00000AF0: 43 48 49 4C 44 48 4F 4F 44 3F 22 00 0B 13 00 05 |CHILDHOOD?".....|
00000B00: 83 20 22 4D 3D 20 59 45 53 2E 22 00 1B 13 0A 05 |. "M= YES.".....|
00000B10: 83 20 22 20 49 3D 20 4E 4F 2E 22 00 28 13 14 05 |. " I= NO.".(...|
00000B20: 83 20 32 2C 22 4D 49 22 00 3E 13 1E 05 83 20 22 |. 2,"MI".>.... "|
00000B30: 93 2B 2B 2B 48 45 41 4C 54 48 2B 2B 2B 22 00 44 |.+++HEALTH+++".D|
00000B40: 13 28 05 83 00 4A 13 32 05 83 00 69 13 3C 05 83 |.(...J.2...i.<..|
00000B50: 20 22 48 4F 57 20 4D 55 43 48 20 44 4F 20 59 4F | "HOW MUCH DO YO|
00000B60: 55 20 53 4D 4F 4B 45 3F 22 00 9C 13 46 05 83 20 |U SMOKE?"...F.. |
00000B70: 22 41 3D 20 49 46 20 59 4F 55 20 53 4D 4F 4B 45 |"A= IF YOU SMOKE|
00000B80: 20 4D 4F 52 45 20 54 48 41 4E 20 54 57 4F 20 50 | MORE THAN TWO P|
00000B90: 41 43 4B 53 20 41 20 44 41 59 2E 22 00 BF 13 50 |ACKS A DAY."...P|
00000BA0: 05 83 20 22 43 3D 20 4F 4E 45 20 54 4F 20 54 57 |.. "C= ONE TO TW|
00000BB0: 4F 20 50 41 43 4B 53 20 41 20 44 41 59 2E 22 00 |O PACKS A DAY.".|
00000BC0: E6 13 5A 05 83 20 22 4D 3D 20 4F 4E 45 20 48 41 |..Z.. "M= ONE HA|
00000BD0: 4C 46 20 54 4F 20 4F 4E 45 20 50 41 43 4B 20 41 |LF TO ONE PACK A|
00000BE0: 20 44 41 59 2E 22 00 FF 13 64 05 83 20 22 20 49 | DAY."...d.. " I|
00000BF0: 3D 20 44 4F 4E 27 54 20 53 4D 4F 4B 45 2E 22 00 |= DON'T SMOKE.".|
00000C00: 0E 14 6E 05 83 20 34 2C 22 41 43 4D 49 22 00 23 |..n.. 4,"ACMI".#|
00000C10: 14 78 05 83 20 22 93 2B 2B 2B 44 52 49 4E 4B 2B |.x.. ".+++DRINK+|
00000C20: 2B 2B 22 00 29 14 82 05 83 00 2F 14 8C 05 83 00 |++".)...../.....|
00000C30: 53 14 96 05 83 20 22 44 4F 20 59 4F 55 20 54 48 |S.... "DO YOU TH|
00000C40: 45 20 45 51 55 49 56 41 4C 45 4E 54 20 4F 46 20 |E EQUIVALENT OF |
00000C50: 41 20 22 00 87 14 A0 05 83 20 22 51 55 41 52 54 |A "...... "QUART|
00000C60: 45 52 20 42 4F 54 54 4C 45 20 4F 46 20 41 4C 43 |ER BOTTLE OF ALC|
00000C70: 4F 48 4F 4C 49 43 20 42 45 56 45 52 41 47 45 20 |OHOLIC BEVERAGE |
00000C80: 41 20 44 41 59 3F 22 00 97 14 AA 05 83 20 22 48 |A DAY?"...... "H|
00000C90: 3D 20 59 45 53 2E 22 00 A7 14 B4 05 83 20 22 20 |= YES."...... " |
00000CA0: 49 3D 20 4E 4F 2E 22 00 B4 14 BE 05 83 20 32 2C |I= NO."...... 2,|
00000CB0: 22 48 49 22 00 CA 14 C8 05 83 20 22 93 2B 2B 2B |"HI"...... ".+++|
00000CC0: 57 45 49 47 48 54 2B 2B 2B 22 00 D0 14 D2 05 83 |WEIGHT+++"......|
00000CD0: 00 D6 14 DC 05 83 00 0D 15 E6 05 83 20 22 41 3D |............ "A=|
00000CE0: 20 49 46 20 59 4F 55 20 41 52 45 20 4F 56 45 52 | IF YOU ARE OVER|
00000CF0: 57 45 49 47 48 54 20 42 59 20 35 30 20 50 4F 55 |WEIGHT BY 50 POU|
00000D00: 4E 44 53 20 4F 52 20 4D 4F 52 45 2E 22 00 2E 15 |NDS OR MORE."...|
00000D10: F0 05 83 20 22 45 3D 20 4F 56 45 52 20 42 59 20 |... "E= OVER BY |
00000D20: 33 30 2D 35 30 20 50 4F 55 4E 44 53 2E 22 00 4F |30-50 POUNDS.".O|
00000D30: 15 FA 05 83 20 22 47 3D 20 4F 56 45 52 20 42 59 |.... "G= OVER BY|
00000D40: 20 31 30 2D 33 30 20 50 4F 55 4E 44 53 2E 22 00 | 10-30 POUNDS.".|
00000D50: 6C 15 04 06 83 20 22 20 49 3D 20 4E 4F 54 20 4F |l.... " I= NOT O|
00000D60: 56 45 52 20 57 45 49 47 48 54 2E 22 00 7B 15 0E |VER WEIGHT.".{..|
00000D70: 06 83 20 34 2C 22 41 45 47 49 22 00 93 15 18 06 |.. 4,"AEGI".....|
00000D80: 83 20 22 93 2B 2B 2B 43 48 45 43 4B 55 50 53 2B |. ".+++CHECKUPS+|
00000D90: 2B 2B 22 00 99 15 22 06 83 00 9F 15 2C 06 83 00 |++"...".....,...|
00000DA0: E1 15 36 06 83 20 22 44 4F 20 59 4F 55 3F 20 49 |..6.. "DO YOU? I|
00000DB0: 46 20 59 4F 55 20 41 52 45 20 41 20 4D 41 4C 45 |F YOU ARE A MALE|
00000DC0: 20 4F 56 45 52 20 34 30 20 48 41 56 45 20 41 4E | OVER 40 HAVE AN|
00000DD0: 20 41 4E 4E 55 41 4C 20 43 48 45 43 4B 55 50 3F | ANNUAL CHECKUP?|
00000DE0: 22 00 F1 15 40 06 83 20 22 4B 3D 20 59 45 53 2E |"...@.. "K= YES.|
00000DF0: 22 00 28 16 4A 06 83 20 22 20 49 3D 20 49 46 20 |".(.J.. " I= IF |
00000E00: 4E 4F 20 4F 52 20 4E 4F 54 20 41 20 4D 41 4C 45 |NO OR NOT A MALE|
00000E10: 20 4F 52 20 55 4E 44 45 52 20 34 30 20 59 45 41 | OR UNDER 40 YEA|
00000E20: 52 53 20 4F 4C 44 2E 22 00 35 16 54 06 83 20 32 |RS OLD.".5.T.. 2|
00000E30: 2C 22 4B 49 22 00 79 16 5E 06 83 20 22 93 44 4F |,"KI".y.^.. ".DO|
00000E40: 20 59 4F 55 3F 20 49 46 20 59 4F 55 20 41 52 45 | YOU? IF YOU ARE|
00000E50: 20 41 20 57 4F 4D 41 4E 20 53 45 45 20 41 20 47 | A WOMAN SEE A G|
00000E60: 59 4E 45 43 4F 4C 4F 47 49 53 54 20 4F 4E 43 45 |YNECOLOGIST ONCE|
00000E70: 20 41 20 59 45 41 52 3F 22 00 7F 16 68 06 83 00 | A YEAR?"...h...|
00000E80: 85 16 72 06 83 00 95 16 7C 06 83 20 22 4B 3D 20 |..r.....|.. "K= |
00000E90: 59 45 53 2E 22 00 B7 16 86 06 83 20 22 20 49 3D |YES."...... " I=|
00000EA0: 20 49 46 20 4E 4F 20 4F 52 20 4E 4F 54 20 41 20 | IF NO OR NOT A |
00000EB0: 57 4F 4D 41 4E 2E 22 00 C4 16 90 06 83 20 32 2C |WOMAN."...... 2,|
00000EC0: 22 4B 49 22 00 DF 16 9A 06 83 20 22 93 2B 2B 2B |"KI"...... ".+++|
00000ED0: 43 55 52 52 45 4E 54 20 41 47 45 2B 2B 2B 22 00 |CURRENT AGE+++".|
00000EE0: E5 16 A4 06 83 00 EB 16 AE 06 83 00 14 17 B8 06 |................|
00000EF0: 83 20 22 4B 3D 20 49 46 20 59 4F 55 20 41 52 45 |. "K= IF YOU ARE|
00000F00: 20 42 45 54 57 45 45 4E 20 33 30 20 41 4E 44 20 | BETWEEN 30 AND |
00000F10: 34 30 2E 22 00 32 17 C2 06 83 20 22 4C 3D 20 42 |40.".2.... "L= B|
00000F20: 45 54 57 45 45 4E 20 34 30 20 41 4E 44 20 35 30 |ETWEEN 40 AND 50|
00000F30: 2E 22 00 50 17 CC 06 83 20 22 46 3D 20 42 45 54 |.".P.... "F= BET|
00000F40: 57 45 45 4E 20 35 30 20 41 4E 44 20 37 30 2E 22 |WEEN 50 AND 70."|
00000F50: 00 64 17 D6 06 83 20 22 4E 3D 20 4F 56 45 52 20 |.d.... "N= OVER |
00000F60: 37 30 2E 22 00 7A 17 E0 06 83 20 22 20 49 3D 20 |70.".z.... " I= |
00000F70: 55 4E 44 45 52 20 33 30 2E 22 00 8A 17 EA 06 83 |UNDER 30."......|
00000F80: 20 35 2C 22 4B 4C 46 4E 49 22 00 99 17 F4 06 81 | 5,"KLFNI"......|
00000F90: 20 51 B2 31 20 A4 20 31 30 00 A2 17 FE 06 87 20 | Q.1 . 10...... |
00000FA0: 51 24 00 BA 17 08 07 8B 20 C8 28 51 24 2C 31 29 |Q$...... .(Q$,1)|
00000FB0: B2 22 20 22 20 A7 31 38 33 30 00 C7 17 12 07 99 |." " .1830......|
00000FC0: 22 20 20 22 3B 51 24 00 CF 17 1C 07 82 20 51 00 |" ";Q$...... Q.|
00000FD0: DC 17 26 07 99 22 20 20 22 3B 51 24 00 E7 17 30 |..&.." ";Q$...0|
00000FE0: 07 87 20 43 2C 43 24 00 11 18 3A 07 99 22 11 20 |.. C,C$...:..". |
00000FF0: 43 48 4F 4F 53 45 20 4F 4E 45 20 4F 46 20 54 48 |CHOOSE ONE OF TH|
00001000: 45 20 4C 45 54 54 45 52 53 20 41 42 4F 56 45 22 |E LETTERS ABOVE"|
00001010: 3B 00 1A 18 44 07 85 20 47 24 00 29 18 4E 07 81 |;...D.. G$.).N..|
00001020: 20 43 32 B2 31 20 A4 20 43 00 49 18 58 07 8B 20 | C2.1 . C.I.X.. |
00001030: C8 28 47 24 2C 31 29 B2 CA 28 43 24 2C 43 32 2C |.(G$,1)..(C$,C2,|
00001040: 31 29 20 A7 20 31 39 31 30 00 52 18 62 07 82 20 |1) . 1910.R.b.. |
00001050: 43 32 00 5D 18 6C 07 89 20 31 38 35 30 00 63 18 |C2.].l.. 1850.c.|
00001060: 76 07 99 00 73 18 80 07 81 20 4E B2 20 31 20 A4 |v...s.... N. 1 .|
00001070: 20 31 35 00 91 18 8A 07 8B 20 C8 28 47 24 2C 31 | 15...... .(G$,1|
00001080: 29 B2 CA 28 41 24 2C 4E 2C 31 29 20 A7 31 39 35 |)..(A$,N,1) .195|
00001090: 30 00 99 18 94 07 82 20 4E 00 A3 18 9E 07 4D B2 |0...... N.....M.|
000010A0: 4E AB 39 00 AD 18 A8 07 5A B2 5A AA 4D 00 B6 18 |N.9.....Z.Z.M...|
000010B0: B2 07 89 31 37 30 00 E3 18 BC 07 99 22 93 59 4F |...170......".YO|
000010C0: 55 20 41 52 45 20 45 58 50 45 43 54 45 44 20 54 |U ARE EXPECTED T|
000010D0: 4F 20 4C 49 56 45 20 22 3B 5A 3B 22 20 59 45 41 |O LIVE ";Z;" YEA|
000010E0: 52 53 22 00 E9 18 C6 07 99 00 FC 18 D0 07 8B 20 |RS"............ |
000010F0: 5A B3 20 36 30 20 A7 20 32 30 38 30 00 0F 19 DA |Z. 60 . 2080....|
00001100: 07 81 20 59 B2 36 30 20 A4 20 5A 20 A9 20 35 00 |.. Y.60 . Z . 5.|
00001110: 1B 19 E4 07 87 20 4D 24 2C 46 24 00 23 19 EE 07 |..... M$,F$.#...|
00001120: 82 20 59 00 58 19 F8 07 83 22 32 36 25 22 2C 22 |. Y.X...."26%","|
00001130: 31 35 25 22 2C 22 33 36 25 22 2C 22 32 30 25 22 |15%","36%","20%"|
00001140: 2C 22 34 38 25 22 2C 22 33 30 25 22 2C 22 36 31 |,"48%","30%","61|
00001150: 25 22 2C 22 33 39 25 22 00 91 19 02 08 83 22 37 |%","39%"......"7|
00001160: 35 25 22 2C 22 35 33 25 22 2C 22 38 37 25 22 2C |5%","53%","87%",|
00001170: 22 37 30 25 22 2C 22 39 36 25 22 2C 22 38 38 25 |"70%","96%","88%|
00001180: 22 2C 22 39 39 2E 39 25 22 2C 22 39 39 2E 36 25 |","99.9%","99.6%|
00001190: 22 00 B5 19 0C 08 99 22 4F 55 54 20 4C 49 56 49 |"......"OUT LIVI|
000011A0: 4E 47 20 22 3B 4D 24 3B 22 20 4F 46 20 54 48 45 |NG ";M$;" OF THE|
000011B0: 20 4D 45 4E 2E 00 D6 19 16 08 99 22 11 41 4E 44 | MEN.......".AND|
000011C0: 20 22 3B 46 24 3B 22 20 4F 46 20 54 48 45 20 57 | ";F$;" OF THE W|
000011D0: 4F 4D 45 4E 2E 22 00 DC 19 20 08 80 00 00 00 |OMEN."... ..... |
....D..".......N..:.:..;.X.."THIS IS A L
IFE EXPECTANCY TEST.D...R5.1.M...Z.72.F.
..A$."ABCDEMGHIJKLFNO".Q. .. 1780.}...R5
.R5.1...... R5.21 . 1980.........H.. "++
+SEX+++"...R...N.... "ARE YOU MALE OR FE
MALE?"...... "M= MALE."...... " F= FEMAL
E."...... 2,"MF"...... ".+++LIFE STYLE++
+". .....&.....A.".. "WHERE DO YOU LIVE?
"...,.. "G= IF YOU LIVE IN AN URBAN AREA
WITH A POPULATION OVER 2 MIL.".C.6.. "K
= IF YOU LIVE IN A TOWN UNDER 10,000 OR
ON A FARM.".X.@.. " I= NEITHER."...J.. 3
,"GKI"...T.. ".HOW DO YOU WORK?"...^....
.H...2.R.. "M= IF YOU WORK BEHIND A DESK
.".I.|.. "L= IF YOUR WORK REQUIRES HEAVY
PHYSICAL LABOR."...... " I= NONE OF THE
ABOVE."...... 3,"MLI".D.... ".HOW LONG
DO YOU EXERCISE STRENUOSLY,"...... "(TEN
NIS, RUNNING, SWIMMING, ETC.)?".........
....2.B.. "F= FIVE TIMES A WEEK FOR AT L
EAST A HALF HOUR.".].L.. "K= JUST TWO OR
THREE TIMES A WEEK."...V.. " I= DO NOT
EXERCISE IN THIS FASHION."...... 3,"FKI"
...... ".WHO DO YOU LIVE WITH?".......C.
......... "N= IF YOU LIVE WITH A SPOUSE,
FRIEND, OR IN A FAMILY.".C.... "H= IF Y
OU'VE LIVED ALONE FOR 1-10 YEARS SIN
CE AGE 25."._.... "G= FOR 11-20 YEARS.".
{.&.. "M= FOR 21-30 YEARS."...0.. "E= FO
R 31-40 YEARS."...:.. " M= FOR MORE THAN
40 YEARS.".L.D.. 6,"NHGMED"...N.. ".+++
PSYCHE+++"...X.. "DO YOU SLEEP MORE THAN
10 HOURS A NIGHT?"...B...(.L.. "I= NO."
.9.V.. " E= YES.".F.... 2,"IE".B.... ".+
++MENTAL STATE+++".H.....N.......... "M=
IF YOU ARE INTENSE, AGGRESSIVE, OR EASI
LY ANGERED."...... "L= IF YOU ARE EASY G
OING, RELAXED, OR A FOLLOWER."...... " I
= NEITHER."...F.. 3,"MLI".(.P.. ".+++HOW
DO YOU FEEL+++"...Z...4.....V.... "ARE
YOU HAPPY OR UNHAPPY?".H.... "J= HAPPY."
.|.... "G= UNHAPPY."...... " I= NEITHER.
"......3,"JGI"... .. ".+++FACTORS+++"...
*...A.4.....>.. "HAVE YOU HAD A SPEEDING
TICKET IN THE LAST YEAR?"...H.. "H= YES
."...R.. " I= NO.".'.\.. 2,"HI".=.F.. ".
+++INCOME+++".C.P...I.Z...W.... "DO YOU
EARN MORE THAN $50,000 A YEAR?"...... "G
= YES."...... " I= NO."...... 2,"GI"....
.. ".+++SCHOOLING+++".C.....I.......J..
"J= IF YOU HAVE FINISHED COLLEGE.".*.T..
"L= IF YOU HAVE FINISHED COLLEGE WITH A
GRADUATE".J.... "OR PROFESSIONAL DEGREE
.".F.... " I= NOTHING LISTED.".T.... 3,"
JLI"...... ".+++AGE+++".............B...
. "ARE YOU 65 OR OLDER AND STILL WORKING
?".R.$.. "L= YES."...... " I= NO."...8..
2,"LI"...B.. ".+++HEREDITY+++"...L.....
V...I.`.. "K= IF ANY GRANDPARENTS LIVED
TO 85 YEARS OLD."...J.. "O= IF ALL FOUR
GRANDPARENTS LIVED TO 80 YEARS OLD."...T
.. " I= NO GRANDPARENTS QUALIFY IN THE A
BOVE.".D.~.. 3,"KOI"...... ".HAS ANY PAR
ENT DIED OF A STROKE OR HEART ATTACK"...
..........'.... "BEFORE THE AGE OF 50?".
7.... "E= YES.".G.... " I= NO.".T.D.. 2,
"EI".R.N.. ".+++FAMILY DISEASE+++".X.X..
.~.......... "ANY PARENT, BROTHER, OR SI
STER UNDER 50 HAS (OR HAD)"...... "CANCE
R, A HEART CONDITION, OR DIABETES SINCE
CHILDHOOD?"...... "M= YES."...... " I= N
O.".(.... 2,"MI".>.... ".+++HEALTH+++".D
.(...J.2...I.<.. "HOW MUCH DO YOU SMOKE?
"...F.. "A= IF YOU SMOKE MORE THAN TWO P
ACKS A DAY."...P.. "C= ONE TO TWO PACKS
A DAY."...Z.. "M= ONE HALF TO ONE PACK A
DAY."...D.. " I= DON'T SMOKE."...N.. 4,
"ACMI".#.X.. ".+++DRINK+++".)...../.....
S.... "DO YOU THE EQUIVALENT OF A "... .
. "QUARTER BOTTLE OF ALCOHOLIC BEVERAGE
A DAY?"...... "H= YES."...... " I= NO.".
..... 2,"HI".J.H.. ".+++WEIGHT+++".P.R..
.V.......... "A= IF YOU ARE OVERWEIGHT B
Y 50 POUNDS OR MORE."...... "E= OVER BY
30-50 POUNDS.".O.... "G= OVER BY 10-30 P
OUNDS.".L.... " I= NOT OVER WEIGHT.".{..
.. 4,"AEGI"...... ".+++CHECKUPS+++"...".
....,.....6.. "DO YOU? IF YOU ARE A MALE
OVER 40 HAVE AN ANNUAL CHECKUP?"...@..
"K= YES.".(.J.. " I= IF NO OR NOT A MALE
OR UNDER 40 YEARS OLD.".5.T.. 2,"KI".Y.
^.. ".DO YOU? IF YOU ARE A WOMAN SEE A G
YNECOLOGIST ONCE A YEAR?"..H.....R.....
|.. "K= YES."...... " I= IF NO OR NOT A
WOMAN.".D.... 2,"KI"...... ".+++CURRENT
AGE+++".................. "K= IF YOU ARE
BETWEEN 30 AND 40.".2.B.. "L= BETWEEN 4
0 AND 50.".P.L.. "F= BETWEEN 50 AND 70."
.D.V.. "N= OVER 70.".Z.... " I= UNDER 30
."...... 5,"KLFNI"...... Q.1 . 10......
Q$...... H(Q$,1)." " .1830.G...." ";Q$.
O.... Q...&.." ";Q$...0.. C,C$...:..".
CHOOSE ONE OF THE LETTERS ABOVE";...D..
G$.).N.. C2.1 . C.I.X.. H(G$,1).J(C$,C2,
1) . 1910.R.B.. C2.].L.. 1850.C.V...S...
. N. 1 . 15...... H(G$,1).J(A$,N,1) .195
0...... N.....M.N.9.....Z.Z.M......170..
....".YOU ARE EXPECTED TO LIVE ";Z;" YEA
RS"...F.....P.. Z. 60 . 2080...Z.. Y.60
. Z . 5...... M$,F$.#.... Y.X...."26%","
15%","36%","20%","48%","30%","61%","39%"
......"75%","53%","87%","70%","96%","88%
","99.9%","99.6%"......"OUT LIVING ";M$;
" OF THE MEN..V....".AND ";F$;" OF THE W
OMEN."... .....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL