LIFESPAN
FILE INFORMATION
FILENAME(S): LIFESPAN
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-12-02 02:14:52
APPEARS ON: 1 disk(s)
FILE HASH
876d4433449d3c11c03fe24303244eaa55b0a7fbec5976b05de620fd07bf3067
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PANS TOOLS 07 | LIFESPAN | PRG | The BAM Archive | 14 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 48 08 0A 00 8F 20 22 4C 49 46 45 53 50 41 |..H.... "LIFESPA| 00000010: 4E 22 20 42 41 53 45 44 20 4F 4E 20 22 4C 49 46 |N" BASED ON "LIF| 00000020: 45 20 20 20 20 20 20 20 20 20 20 20 45 58 50 45 |E EXPE| 00000030: 43 54 41 4E 43 59 22 20 42 59 20 48 41 52 54 4E |CTANCY" BY HARTN| 00000040: 45 4C 4C 20 31 39 38 32 00 53 08 14 00 99 22 93 |ELL 1982.S....".| 00000050: 22 3A 99 00 65 08 1E 00 54 24 B2 22 4C 49 46 45 |":..e...T$."LIFE| 00000060: 53 50 41 4E 22 00 7C 08 28 00 99 20 A3 32 30 AB |SPAN".|.(.. .20.| 00000070: C3 28 54 24 29 AD 32 29 54 24 3A 99 00 90 08 32 |.(T$).2)T$:....2| 00000080: 00 54 24 B2 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |.T$."**********"| 00000090: 00 A9 08 37 00 99 20 A3 32 30 AB C3 28 54 24 29 |...7.. .20..(T$)| 000000A0: AD 32 29 54 24 3A 99 3A 99 00 E9 08 3C 00 99 22 |.2)T$:.:....<.."| 000000B0: 50 52 45 44 49 43 54 49 4F 4E 53 20 41 52 45 20 |PREDICTIONS ARE | 000000C0: 4E 4F 54 20 47 55 41 52 41 4E 54 45 45 44 20 54 |NOT GUARANTEED T| 000000D0: 4F 20 42 45 20 20 20 20 41 43 43 55 52 41 54 45 |O BE ACCURATE| 000000E0: 20 21 21 21 22 3A 99 3A 99 00 0D 09 46 00 99 22 | !!!":.:....F.."| 000000F0: 41 52 45 20 59 4F 55 20 4D 41 4C 45 20 4F 52 20 |ARE YOU MALE OR | 00000100: 46 45 4D 41 4C 45 2C 4D 2F 46 20 3F 22 00 22 09 |FEMALE,M/F ?".".| 00000110: 4B 00 A1 20 53 24 3A 8B 20 53 24 B2 22 22 A7 20 |K.. S$:. S$."". | 00000120: 37 35 00 3E 09 50 00 8B 20 53 24 B3 B1 22 4D 22 |75.>.P.. S$.."M"| 00000130: 20 AF 20 53 24 B3 B1 22 46 22 A7 20 37 35 00 47 | . S$.."F". 75.G| 00000140: 09 5A 00 41 B2 37 31 00 4F 09 5F 00 43 B2 30 00 |.Z.A.71.O._.C.0.| 00000150: 5A 09 64 00 8D 20 31 30 30 30 00 7C 09 6E 00 85 |Z.d.. 1000.|.n..| 00000160: 22 48 4F 57 20 4F 4C 44 20 41 52 45 20 59 4F 55 |"HOW OLD ARE YOU| 00000170: 20 49 4E 20 59 45 41 52 53 22 3B 42 00 86 09 78 | IN YEARS";B...x| 00000180: 00 8D 31 30 30 30 00 A3 09 82 00 99 22 41 52 45 |..1000......"ARE| 00000190: 20 59 4F 55 20 4D 41 52 52 49 45 44 2C 59 2F 4E | YOU MARRIED,Y/N| 000001A0: 20 3F 22 00 B9 09 8C 00 A1 20 51 24 3A 8B 20 51 | ?"...... Q$:. Q| 000001B0: 24 B2 22 22 A7 20 31 34 30 00 D3 09 96 00 8B 51 |$."". 140......Q| 000001C0: 24 B3 B1 22 59 22 AF 20 51 24 B3 B1 22 4E 22 A7 |$.."Y". Q$.."N".| 000001D0: 31 34 30 00 E7 09 A0 00 8B 20 51 24 B2 22 59 22 |140...... Q$."Y"| 000001E0: A7 20 41 B2 41 AA 35 00 F1 09 A5 00 8D 31 30 30 |. A.A.5......100| 000001F0: 30 00 09 0A AA 00 99 22 48 41 56 45 20 59 4F 55 |0......"HAVE YOU| 00000200: 20 42 45 45 4E 20 3A 2D 22 00 30 0A B4 00 99 20 | BEEN :-".0.... | 00000210: A3 34 29 22 31 20 2D 20 52 49 43 48 20 4D 4F 53 |.4)"1 - RICH MOS| 00000220: 54 20 4F 46 20 59 4F 55 52 20 4C 49 46 45 3F 22 |T OF YOUR LIFE?"| 00000230: 00 57 0A BE 00 99 20 A3 34 29 22 32 20 2D 20 50 |.W.... .4)"2 - P| 00000240: 4F 4F 52 20 4D 4F 53 54 20 4F 46 20 59 4F 55 52 |OOR MOST OF YOUR| 00000250: 20 4C 49 46 45 3F 22 00 75 0A C8 00 99 20 A3 34 | LIFE?".u.... .4| 00000260: 29 22 33 20 2D 20 4F 52 20 49 4E 20 42 45 54 57 |)"3 - OR IN BETW| 00000270: 45 45 4E 3F 22 00 91 0A D2 00 99 3A 99 20 A3 36 |EEN?"......:. .6| 00000280: 29 22 45 4E 54 45 52 20 31 2C 32 20 4F 52 20 33 |)"ENTER 1,2 OR 3| 00000290: 22 00 A6 0A DC 00 A1 20 51 24 3A 8B 20 51 24 B2 |"...... Q$:. Q$.| 000002A0: 22 22 A7 32 32 30 00 C3 0A E6 00 51 B2 C5 28 51 |"".220.....Q..(Q| 000002B0: 24 29 3A 8B 20 51 B3 31 20 B0 20 51 B1 33 20 A7 |$):. Q.1 . Q.3 .| 000002C0: 32 32 30 00 D6 0A F0 00 8B 20 51 B3 B1 33 20 A7 |220...... Q..3 .| 000002D0: 20 41 B2 41 AB 33 00 E0 0A FA 00 8D 31 30 30 30 | A.A.3......1000| 000002E0: 00 FD 0A 04 01 99 22 41 52 45 20 59 4F 55 20 4F |......"ARE YOU O| 000002F0: 56 45 52 20 57 45 49 47 48 54 A0 3F 22 00 17 0B |VER WEIGHT.?"...| 00000300: 0E 01 99 20 A3 34 29 22 45 4E 54 45 52 3A 20 31 |... .4)"ENTER: 1| 00000310: 20 2D 20 59 45 53 22 00 29 0B 18 01 99 A3 31 31 | - YES".).....11| 00000320: 29 22 32 20 2D 20 4E 4F 22 00 42 0B 22 01 99 A3 |)"2 - NO".B."...| 00000330: 31 31 29 22 33 20 2D 20 44 4F 4E 54 20 4B 4E 4F |11)"3 - DONT KNO| 00000340: 57 22 00 56 0B 2C 01 A1 20 51 24 3A 8B 51 24 B2 |W".V.,.. Q$:.Q$.| 00000350: 22 22 A7 33 30 30 00 73 0B 36 01 51 B2 C5 28 51 |"".300.s.6.Q..(Q| 00000360: 24 29 3A 8B 20 51 B3 31 20 B0 20 51 B1 33 20 A7 |$):. Q.1 . Q.3 .| 00000370: 33 30 30 00 8A 0B 40 01 91 20 51 20 89 20 33 33 |300...@.. Q . 33| 00000380: 30 2C 33 36 30 2C 32 30 30 30 00 9B 0B 4A 01 8B |0,360,2000...J..| 00000390: 20 42 B3 34 30 20 89 20 33 36 30 00 B9 0B 54 01 | B.40 . 360...T.| 000003A0: 99 3A 85 22 42 59 20 48 4F 57 20 4D 41 4E 59 20 |.:."BY HOW MANY | 000003B0: 4B 49 4C 4F 53 20 22 3B 50 00 D1 0B 5E 01 50 B2 |KILOS ";P...^.P.| 000003C0: B5 28 50 AA 2E 35 29 3A 43 B2 43 AA 50 AC 32 2E |.(P..5):C.C.P.2.| 000003D0: 32 00 DB 0B 68 01 8D 31 30 30 30 00 FF 0B 72 01 |2...h..1000...r.| 000003E0: 99 22 48 4F 57 20 4F 46 54 45 4E 20 44 4F 20 59 |."HOW OFTEN DO Y| 000003F0: 4F 55 20 45 58 43 45 52 43 49 53 45 20 3F 22 00 |OU EXCERCISE ?".| 00000400: 1B 0C 7C 01 99 20 A3 34 29 22 45 4E 54 45 52 3A |..|.. .4)"ENTER:| 00000410: 20 31 20 2D 20 4E 45 56 45 52 22 00 35 0C 86 01 | 1 - NEVER".5...| 00000420: 99 20 A3 31 31 29 22 32 20 2D 20 53 4F 4D 45 54 |. .11)"2 - SOMET| 00000430: 49 4D 45 53 22 00 4B 0C 90 01 99 20 A3 31 31 29 |IMES".K.... .11)| 00000440: 22 33 20 2D 20 4F 46 54 45 4E 22 00 60 0C 9A 01 |"3 - OFTEN".`...| 00000450: A1 20 51 24 3A 8B 20 51 24 B2 22 22 A7 34 31 30 |. Q$:. Q$."".410| 00000460: 00 7D 0C A4 01 51 B2 C5 28 51 24 29 3A 8B 20 51 |.}...Q..(Q$):. Q| 00000470: B3 31 20 B0 20 51 B1 33 20 A7 34 31 30 00 8F 0C |.1 . Q.3 .410...| 00000480: AE 01 8B 20 51 B2 32 20 A7 20 41 B2 41 AA 33 00 |... Q.2 . A.A.3.| 00000490: A1 0C B8 01 8B 20 51 B2 33 20 A7 20 41 B2 41 AA |..... Q.3 . A.A.| 000004A0: 35 00 AB 0C D6 01 8D 31 30 30 30 00 C8 0C E0 01 |5......1000.....| 000004B0: 99 22 41 52 45 20 59 4F 55 20 4F 46 54 45 4E 20 |."ARE YOU OFTEN | 000004C0: 54 45 4E 53 45 20 3F 22 00 E2 0C EA 01 99 20 A3 |TENSE ?"...... .| 000004D0: 34 29 22 45 4E 54 45 52 3A 20 31 20 2D 20 59 45 |4)"ENTER: 1 - YE| 000004E0: 53 22 00 F4 0C F4 01 99 A3 31 31 29 22 32 20 2D |S".......11)"2 -| 000004F0: 20 4E 4F 22 00 0D 0D FE 01 99 A3 31 31 29 22 33 | NO".......11)"3| 00000500: 20 2D 20 44 4F 4E 54 20 4B 4E 4F 57 22 00 21 0D | - DONT KNOW".!.| 00000510: 08 02 A1 20 51 24 3A 8B 51 24 B2 22 22 A7 35 32 |... Q$:.Q$."".52| 00000520: 30 00 3E 0D 12 02 51 B2 C5 28 51 24 29 3A 8B 20 |0.>...Q..(Q$):. | 00000530: 51 B3 31 20 B0 20 51 B1 33 20 A7 35 32 30 00 54 |Q.1 . Q.3 .520.T| 00000540: 0D 1C 02 91 20 51 20 89 20 35 35 30 2C 35 37 30 |.... Q . 550,570| 00000550: 2C 35 39 30 00 5E 0D 26 02 41 B2 41 AB 33 00 68 |,590.^.&.A.A.3.h| 00000560: 0D 30 02 89 20 35 39 35 00 72 0D 3A 02 41 B2 41 |.0.. 595.r.:.A.A| 00000570: AA 33 00 7C 0D 44 02 89 20 35 39 35 00 86 0D 4E |.3.|.D.. 595...N| 00000580: 02 8D 33 30 30 30 00 90 0D 53 02 8D 31 30 30 30 |..3000...S..1000| 00000590: 00 AE 0D 58 02 99 22 44 4F 20 59 4F 55 20 44 52 |...X.."DO YOU DR| 000005A0: 49 4E 4B 20 41 4C 43 4F 48 4F 4C 20 3F 22 00 CA |INK ALCOHOL ?"..| 000005B0: 0D 62 02 99 20 A3 34 29 22 45 4E 54 45 52 3A 20 |.b.. .4)"ENTER: | 000005C0: 31 20 2D 20 4E 45 56 45 52 22 00 E5 0D 6C 02 99 |1 - NEVER"...l..| 000005D0: A3 31 31 29 22 32 20 2D 20 56 45 52 59 20 4C 49 |.11)"2 - VERY LI| 000005E0: 54 54 4C 45 22 00 FF 0D 76 02 99 A3 31 31 29 22 |TTLE"...v...11)"| 000005F0: 33 20 2D 20 4D 4F 44 45 52 41 54 45 4C 59 22 00 |3 - MODERATELY".| 00000600: 1D 0E 80 02 99 A3 31 31 29 22 34 20 2D 20 46 41 |......11)"4 - FA| 00000610: 49 52 4C 59 20 48 45 41 56 49 4C 59 22 00 31 0E |IRLY HEAVILY".1.| 00000620: 8A 02 A1 20 51 24 3A 8B 51 24 B2 22 22 A7 36 35 |... Q$:.Q$."".65| 00000630: 30 00 4E 0E 94 02 51 B2 C5 28 51 24 29 3A 8B 20 |0.N...Q..(Q$):. | 00000640: 51 B3 31 20 B0 20 51 B1 34 20 A7 36 35 30 00 5F |Q.1 . Q.4 .650._| 00000650: 0E 9E 02 8B 20 51 B3 B2 32 20 A7 20 47 B2 30 00 |.... Q..2 . G.0.| 00000660: 6F 0E A8 02 8B 20 51 B2 33 20 A7 20 47 B2 35 00 |o.... Q.3 . G.5.| 00000670: 80 0E B2 02 8B 20 51 B2 34 20 A7 20 47 B2 31 30 |..... Q.4 . G.10| 00000680: 00 8A 0E BC 02 8D 31 30 30 30 00 A6 0E C6 02 99 |......1000......| 00000690: 22 44 4F 20 59 4F 55 20 53 4D 4F 4B 45 20 2C 20 |"DO YOU SMOKE , | 000006A0: 59 2F 4E 20 3F 22 00 BC 0E D0 02 A1 20 51 24 3A |Y/N ?"...... Q$:| 000006B0: 8B 20 51 24 B2 22 22 A7 20 37 32 30 00 D1 0E DA |. Q$."". 720....| 000006C0: 02 8B 20 51 24 B2 22 59 22 20 A7 20 41 B2 41 AB |.. Q$."Y" . A.A.| 000006D0: 35 00 ED 0E E4 02 8B 20 51 24 B3 B1 22 4E 22 AF |5...... Q$.."N".| 000006E0: 20 51 24 B3 B1 22 59 22 A7 20 37 32 30 00 F7 0E | Q$.."Y". 720...| 000006F0: EE 02 8D 31 30 30 30 00 18 0F F8 02 99 22 41 52 |...1000......"AR| 00000700: 45 20 59 4F 55 20 4F 46 54 45 4E 20 49 4C 4C 20 |E YOU OFTEN ILL | 00000710: 2C 20 59 2F 4E 20 3F 22 00 2E 0F 02 03 A1 20 51 |, Y/N ?"...... Q| 00000720: 24 3A 8B 20 51 24 B2 22 22 A7 20 37 37 30 00 43 |$:. Q$."". 770.C| 00000730: 0F 0C 03 8B 20 51 24 B2 22 4E 22 20 A7 20 41 B2 |.... Q$."N" . A.| 00000740: 41 AA 36 00 5F 0F 16 03 8B 20 51 24 B3 B1 22 59 |A.6._.... Q$.."Y| 00000750: 22 AF 20 51 24 B3 B1 22 4E 22 A7 20 37 37 30 00 |". Q$.."N". 770.| 00000760: 69 0F 20 03 8D 31 30 30 30 00 7D 0F 2A 03 41 B2 |i. ..1000.}.*.A.| 00000770: B5 28 41 AB 43 AD 35 AB 47 AA 2E 35 29 00 91 0F |.(A.C.5.G..5)...| 00000780: 34 03 8B 20 53 24 B2 22 46 22 A7 20 41 B2 41 AA |4.. S$."F". A.A.| 00000790: 37 00 AF 0F 3E 03 8B 20 42 B1 41 20 A7 20 41 B2 |7...>.. B.A . A.| 000007A0: B5 28 42 AA 28 42 AB 41 29 AD 32 AA 2E 35 29 00 |.(B.(B.A).2..5).| 000007B0: DE 0F 48 03 99 22 59 4F 55 52 20 45 53 54 49 4D |..H.."YOUR ESTIM| 000007C0: 41 54 45 44 20 4C 49 46 45 53 50 41 4E 20 49 53 |ATED LIFESPAN IS| 000007D0: 20 22 3B 41 3B 22 20 59 45 41 52 53 2E 22 00 E8 | ";A;" YEARS."..| 000007E0: 0F 52 03 8D 31 30 30 30 00 F2 0F 5C 03 8D 31 30 |.R..1000...\..10| 000007F0: 30 30 00 F8 0F 66 03 80 00 1E 10 E8 03 99 3A 99 |00...f........:.| 00000800: 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"***************| 00000810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 31 |*************".1| 00000820: 10 F2 03 81 20 4A B2 31 20 A4 20 31 30 30 30 3A |.... J.1 . 1000:| 00000830: 82 00 37 10 FC 03 99 00 3D 10 06 04 8E 00 65 10 |..7.....=.....e.| 00000840: D0 07 99 3A 85 22 57 48 41 54 20 49 53 20 59 4F |...:."WHAT IS YO| 00000850: 55 52 20 57 45 49 47 48 54 20 49 4E 20 4B 49 4C |UR WEIGHT IN KIL| 00000860: 4F 53 22 3B 4B 00 93 10 DA 07 99 3A 85 22 57 48 |OS";K......:."WH| 00000870: 41 54 20 49 53 20 59 4F 55 52 20 48 45 49 47 48 |AT IS YOUR HEIGH| 00000880: 54 20 49 4E 20 43 45 4E 54 49 4D 45 54 45 52 53 |T IN CENTIMETERS| 00000890: 22 3B 48 00 A4 10 E4 07 8B 20 42 B3 34 30 20 A7 |";H...... B.40 .| 000008A0: 20 33 36 4F 00 B3 10 EE 07 57 B2 30 2E 38 AC 48 | 36O.....W.0.8.H| 000008B0: AB 37 37 00 C4 10 F8 07 8B 20 4B B1 57 20 A7 20 |.77...... K.W . | 000008C0: 32 30 36 30 00 CE 10 02 08 89 20 33 36 30 00 DE |2060...... 360..| 000008D0: 10 0C 08 50 B2 4B AB 57 3A 89 20 33 35 30 00 E7 |...P.K.W:. 350..| 000008E0: 10 B8 0B 43 52 B2 30 00 27 11 C2 0B 99 3A 99 22 |...CR.0.'....:."| 000008F0: 44 4F 20 59 4F 55 20 4F 46 54 45 4E 20 57 41 4E |DO YOU OFTEN WAN| 00000900: 54 20 41 20 44 52 49 4E 4B 20 4F 52 20 43 49 47 |T A DRINK OR CIG| 00000910: 41 52 45 54 54 45 20 20 57 48 45 4E 20 59 4F 55 |ARETTE WHEN YOU| 00000920: 20 48 41 56 45 22 3B 00 43 11 CC 0B 99 22 20 46 | HAVE";.C...." F| 00000930: 49 4E 49 53 48 45 44 20 57 4F 52 4B 20 3F 20 59 |INISHED WORK ? Y| 00000940: 2F 4E 22 00 4E 11 D6 0B 8D 20 33 35 30 30 00 95 |/N".N.... 3500..| 00000950: 11 E0 0B 99 3A 99 22 44 4F 20 59 4F 55 20 48 41 |....:."DO YOU HA| 00000960: 56 45 20 44 49 46 46 49 43 55 4C 54 59 20 47 4F |VE DIFFICULTY GO| 00000970: 49 4E 47 20 54 4F 20 53 4C 45 45 50 20 20 20 57 |ING TO SLEEP W| 00000980: 48 45 4E 20 53 4F 4D 45 54 48 49 4E 47 20 49 53 |HEN SOMETHING IS| 00000990: 20 4F 4E 22 3B 00 AD 11 EA 0B 99 22 20 59 4F 55 | ON";......" YOU| 000009A0: 52 20 4D 49 4E 44 20 3F 20 59 2F 4E 22 00 B8 11 |R MIND ? Y/N"...| 000009B0: F4 0B 8D 20 33 35 30 30 00 F7 11 FE 0B 99 3A 99 |... 3500......:.| 000009C0: 22 44 4F 20 59 4F 55 20 48 41 56 45 20 44 49 46 |"DO YOU HAVE DIF| 000009D0: 46 49 43 55 4C 54 59 20 4B 45 45 50 49 4E 47 20 |FICULTY KEEPING | 000009E0: 59 4F 55 52 20 20 20 20 20 54 45 4D 50 45 52 20 |YOUR TEMPER | 000009F0: 49 4E 20 41 4E 22 3B 00 0E 12 08 0C 99 22 20 41 |IN AN";......" A| 00000A00: 52 47 55 4D 45 4E 54 20 3F 20 59 2F 4E 22 00 19 |RGUMENT ? Y/N"..| 00000A10: 12 12 0C 8D 20 33 35 30 30 00 2C 12 1C 0C 8B 20 |.... 3500.,.... | 00000A20: 43 52 B2 30 20 A7 20 41 B2 41 AA 33 00 3F 12 26 |CR.0 . A.A.3.?.&| 00000A30: 0C 8B 20 43 52 B2 31 20 A7 20 41 B2 41 AA 31 00 |.. CR.1 . A.A.1.| 00000A40: 52 12 30 0C 8B 20 43 52 B2 32 20 A7 20 41 B2 41 |R.0.. CR.2 . A.A| 00000A50: AB 31 00 65 12 3A 0C 8B 20 43 52 B2 33 20 A7 20 |.1.e.:.. CR.3 . | 00000A60: 41 B2 41 AB 33 00 6B 12 44 0C 8E 00 82 12 AC 0D |A.A.3.k.D.......| 00000A70: A1 20 51 24 3A 8B 20 51 24 B2 22 22 A7 20 33 35 |. Q$:. Q$."". 35| 00000A80: 30 30 00 98 12 B6 0D 8B 20 51 24 B2 22 59 22 A7 |00...... Q$."Y".| 00000A90: 20 43 52 B2 43 52 AA 31 00 B5 12 C0 0D 8B 20 51 | CR.CR.1...... Q| 00000AA0: 24 B3 B1 22 59 22 AF 20 51 24 B3 B1 22 4E 22 A7 |$.."Y". Q$.."N".| 00000AB0: 20 33 35 30 30 00 BB 12 CA 0D 8E 00 00 00 00 | 3500.......... |
..H.... "LIFESPAN" BASED ON "LIFE
EXPECTANCY" BY HARTNELL 1982.S....".
":..E...T$."LIFESPAN".|.(.. .20.C(T$).2)
T$:....2.T$."**********"...7.. .20.C(T$)
.2)T$:.:....<.."PREDICTIONS ARE NOT GUAR
ANTEED TO BE ACCURATE !!!":.:....F.."
ARE YOU MALE OR FEMALE,M/F ?".".K.. S$:.
S$."". 75.>.P.. S$.."M" . S$.."F". 75.G
.Z.A.71.O._.C.0.Z.D.. 1000.|.N.."HOW OLD
ARE YOU IN YEARS";B...X..1000......"ARE
YOU MARRIED,Y/N ?"...... Q$:. Q$."". 14
0.S....Q$.."Y". Q$.."N".140... .. Q$."Y"
. A.A.5......1000......"HAVE YOU BEEN :-
".0.... .4)"1 - RICH MOST OF YOUR LIFE?"
.W.... .4)"2 - POOR MOST OF YOUR LIFE?".
U.H.. .4)"3 - OR IN BETWEEN?"...R..:. .6
)"ENTER 1,2 OR 3"...... Q$:. Q$."".220.C
...Q.E(Q$):. Q.1 . Q.3 .220.V.... Q..3 .
A.A.3......1000......"ARE YOU OVER WEIG
HT ?"...... .4)"ENTER: 1 - YES".).....11
)"2 - NO".B."...11)"3 - DONT KNOW".V.,..
Q$:.Q$."".300.S.6.Q.E(Q$):. Q.1 . Q.3 .
300...@.. Q . 330,360,2000...J.. B.40 .
360...T..:."BY HOW MANY KILOS ";P.Q.^.P.
.(P..5):C.C.P.2.2...H..1000...R.."HOW OF
TEN DO YOU EXCERCISE ?"...|.. .4)"ENTER:
1 - NEVER".5.... .11)"2 - SOMETIMES".K.
... .11)"3 - OFTEN".`.... Q$:. Q$."".410
.}...Q.E(Q$):. Q.1 . Q.3 .410...... Q.2
. A.A.3...... Q.3 . A.A.5...V..1000.H...
."ARE YOU OFTEN TENSE ?"...... .4)"ENTER
: 1 - YES".......11)"2 - NO".......11)"3
- DONT KNOW".!.... Q$:.Q$."".520.>...Q.
E(Q$):. Q.1 . Q.3 .520.T.... Q . 550,570
,590.^.&.A.A.3.H.0.. 595.R.:.A.A.3.|.D..
595...N..3000...S..1000...X.."DO YOU DR
INK ALCOHOL ?".J.B.. .4)"ENTER: 1 - NEVE
R"...L...11)"2 - VERY LITTLE"...V...11)"
3 - MODERATELY".......11)"4 - FAIRLY HEA
VILY".1.... Q$:.Q$."".650.N...Q.E(Q$):.
Q.1 . Q.4 .650._.... Q..2 . G.0.O.... Q.
3 . G.5...... Q.4 . G.10......1000...F..
"DO YOU SMOKE , Y/N ?"...P.. Q$:. Q$."".
720.Q.Z.. Q$."Y" . A.A.5...... Q$.."N".
Q$.."Y". 720......1000......"ARE YOU OF
TEN ILL , Y/N ?"...... Q$:. Q$."". 770.C
.... Q$."N" . A.A.6._.... Q$.."Y". Q$.."
N". 770.I. ..1000.}.*.A..(A.C.5.G..5)...
4.. S$."F". A.A.7...>.. B.A . A..(B.(B.A
).2..5)...H.."YOUR ESTIMATED LIFESPAN IS
";A;" YEARS."...R..1000...\..1000...F..
......:."****************************".1
.... J.1 . 1000:..7.....=.....E.P..:."WH
AT IS YOUR WEIGHT IN KILOS";K...Z..:."WH
AT IS YOUR HEIGHT IN CENTIMETERS";H.....
. B.40 . 36O.....W.0.8.H.77.D.... K.W .
2060.N.... 360.....P.K.W:. 350.....CR.0.
'.B..:."DO YOU OFTEN WANT A DRINK OR CIG
ARETTE WHEN YOU HAVE";.C.L.." FINISHED
WORK ? Y/N".N.V.. 3500......:."DO YOU HA
VE DIFFICULTY GOING TO SLEEP WHEN SOME
THING IS ON";......" YOUR MIND ? Y/N"...
... 3500......:."DO YOU HAVE DIFFICULTY
KEEPING YOUR TEMPER IN AN";......" A
RGUMENT ? Y/N"...... 3500.,.... CR.0 . A
.A.3.?.&.. CR.1 . A.A.1.R.0.. CR.2 . A.A
.1.E.:.. CR.3 . A.A.3.K.D........ Q$:. Q
$."". 3500...... Q$."Y". CR.CR.1...... Q
$.."Y". Q$.."N". 3500...J......
> CLICK IMAGE PREVIEW FOR FULL MODAL