HEALTH ADVICE
FILE INFORMATION
FILENAME(S): HEALTH ADVICE
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-30 21:05:42
APPEARS ON: 1 disk(s)
FILE HASH
1a8aa6f03c8cb0309d5ab20076d2cf06f92874e61d212dea442c8897e55351ee
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| APPLE A DAY | HEALTH ADVICE | PRG | DuncanTwain | 17 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 00 00 97 20 34 35 2C C2 28 31 37 34 |....... 45,.(174| 00000010: 29 3A 97 20 34 36 2C C2 28 31 37 35 29 3A 9C 00 |):. 46,.(175):..| 00000020: 70 08 01 00 86 20 54 25 28 33 30 29 2C 59 25 28 |p.... T%(30),Y%(| 00000030: 33 30 29 2C 4E 25 28 33 30 29 2C 4C 49 24 28 33 |30),N%(30),LI$(3| 00000040: 30 2C 31 30 30 29 2C 46 24 28 35 30 29 3A 42 4C |0,100),F$(50):BL| 00000050: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00000070: 00 91 08 02 00 9F 20 31 35 2C 38 2C 31 35 3A 8B |...... 15,8,15:.| 00000080: C2 28 38 37 38 29 B3 B1 32 33 A7 9E 36 34 37 33 |.(878)..23..6473| 00000090: 38 00 D0 08 03 00 4D 53 24 28 31 29 B2 22 C4 CF |8.....MS$(1)."..| 000000A0: A0 D4 C8 C5 A0 C6 CF CC CC CF D7 C9 CE C7 3A 22 |..............:"| 000000B0: 3A 4D 53 24 28 32 29 B2 22 D3 C5 C5 A0 C1 A0 C4 |:MS$(2).".......| 000000C0: CF C3 D4 CF D2 22 3A 43 52 24 B2 C7 28 31 33 29 |.....":CR$..(13)| 000000D0: 00 20 09 04 00 4D 53 24 28 33 29 B2 4D 53 24 28 |. ...MS$(3).MS$(| 000000E0: 32 29 AA 22 20 C9 CD CD C5 C4 C9 C1 D4 C5 CC D9 |2)." ...........| 000000F0: 22 3A 4D 53 24 28 34 29 B2 22 C7 CF A0 D4 CF A0 |":MS$(4)."......| 00000100: D4 C8 C5 A0 C5 CD C5 D2 C7 C5 CE C3 D9 A0 D2 CF |................| 00000110: CF CD A0 C9 CD CD C5 C4 C9 C1 D4 C5 CC D9 2E 22 |..............."| 00000120: 00 49 09 05 00 4D 53 24 28 35 29 B2 22 C7 CF 20 |.I...MS$(5).".. | 00000130: D4 CF A0 D4 C8 C5 A0 C5 CD C5 D2 C7 C5 CE C3 D9 |................| 00000140: A0 D2 CF CF CD A0 CF D2 22 00 89 09 06 00 4D 53 |........".....MS| 00000150: 24 28 35 29 B2 4D 53 24 28 35 29 AA 43 52 24 AA |$(5).MS$(5).CR$.| 00000160: 43 52 24 AA 22 D3 C5 C5 A0 D9 CF D5 D2 A0 C4 CF |CR$."...........| 00000170: C3 D4 CF D2 A0 C1 D3 A0 D3 CF CF CE A0 C1 D3 A0 |................| 00000180: D0 CF D3 D3 C9 C2 CC C5 22 00 B8 09 07 00 96 20 |........"...... | 00000190: A5 41 28 58 29 B2 B5 28 58 AD 32 35 36 29 3A 96 |.A(X)..(X.256):.| 000001A0: 20 A5 42 28 58 29 B2 58 AB A5 41 28 58 29 AC 32 | .B(X).X..A(X).2| 000001B0: 35 36 3A 4C 46 B2 AB 31 00 BE 09 0A 00 3A 00 E1 |56:LF..1.....:..| 000001C0: 09 0F 00 8F 20 20 20 20 20 47 45 54 20 4D 45 4E |.... GET MEN| 000001D0: 55 20 49 54 45 4D 53 20 46 52 4F 4D 20 44 49 53 |U ITEMS FROM DIS| 000001E0: 4B 00 03 0A 19 00 9F 20 33 2C 38 2C 33 2C 22 50 |K...... 3,8,3,"P| 000001F0: 52 4F 42 4C 45 4D 53 2C 53 2C 52 22 3A 8D 20 32 |ROBLEMS,S,R":. 2| 00000200: 30 30 30 00 0B 0A 1E 00 43 B2 30 00 36 0A 23 00 |000.....C.0.6.#.| 00000210: 84 33 2C 46 24 28 43 29 3A 8B 20 46 24 28 43 29 |.3,F$(C):. F$(C)| 00000220: B2 22 45 4E 44 22 A7 4E 49 25 B2 43 AB 31 3A A0 |."END".NI%.C.1:.| 00000230: 33 3A 89 31 30 30 00 57 0A 28 00 43 B2 43 AA 31 |3:.100.W.(.C.C.1| 00000240: 3A 4C 4D B2 C2 28 35 35 29 3A 48 4D B2 C2 28 35 |:LM..(55):HM..(5| 00000250: 36 29 3A 89 20 33 35 00 7D 0A 64 00 8F 20 2A 2A |6):. 35.}.d.. **| 00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 99 0A |*************...| 00000280: 6E 00 8F 20 20 20 20 20 20 20 20 20 20 4D 45 4E |n.. MEN| 00000290: 55 20 52 4F 55 54 49 4E 45 00 BF 0A 78 00 8F 20 |U ROUTINE...x.. | 000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000002B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 000002C0: C7 0A 7D 00 43 B2 30 00 FF 0A 82 00 99 22 93 12 |..}.C.0......"..| 000002D0: 9C 20 20 20 20 20 20 20 20 20 20 C8 45 41 4C 54 |. .EALT| 000002E0: 48 20 C1 44 56 49 43 45 20 CD 45 4E 55 20 20 20 |H .DVICE .ENU | 000002F0: 20 20 20 20 20 20 20 20 20 22 3A 50 4C B2 30 00 | ":PL.0.| 00000300: 08 0B 87 00 50 4C B2 30 00 54 0B 88 00 99 22 D4 |....PL.0.T....".| 00000310: 4F 20 53 45 45 20 4D 4F 52 45 20 50 52 4F 42 4C |O SEE MORE PROBL| 00000320: 45 4D 53 2C 20 50 52 45 53 53 20 46 33 22 3A 99 |EMS, PRESS F3":.| 00000330: 22 D4 4F 20 52 45 54 55 52 4E 20 54 4F 20 CD 41 |".O RETURN TO .A| 00000340: 49 4E 20 CD 45 4E 55 2C 20 50 52 45 53 53 20 46 |IN .ENU, PRESS F| 00000350: 31 11 11 22 00 8E 0B 8C 00 99 22 90 22 43 AA 31 |1.."......"."C.1| 00000360: 3B A3 34 29 46 24 28 43 29 3A 99 3A 8B 20 46 24 |;.4)F$(C):.:. F$| 00000370: 28 43 AA 31 29 B2 22 45 4E 44 22 A7 20 43 B2 30 |(C.1)."END". C.0| 00000380: 3A 99 3A 99 3A 99 3A 99 3A 89 20 31 37 30 00 AE |:.:.:.:.:. 170..| 00000390: 0B 91 00 50 4C B2 50 4C AA 32 3A 43 B2 43 AA 31 |...PL.PL.2:C.C.1| 000003A0: 3A 8B 20 50 4C B3 31 35 20 A7 20 31 34 30 00 E0 |:. PL.15 . 140..| 000003B0: 0B AA 00 99 22 9C 11 C5 4E 54 45 52 20 41 20 4E |...."...NTER A N| 000003C0: 55 4D 42 45 52 20 41 4E 44 20 50 52 45 53 53 20 |UMBER AND PRESS | 000003D0: D2 C5 D4 D5 D2 CE 3A 90 22 3B 3A 53 24 B2 22 22 |......:.";:S$.""| 000003E0: 00 06 0C B4 00 A1 20 41 4B 24 3A 41 B2 C6 28 41 |...... AK$:A..(A| 000003F0: 4B 24 AA C7 28 30 29 29 3A 8B 20 41 4B 24 B2 22 |K$..(0)):. AK$."| 00000400: 22 A7 20 31 38 30 00 22 0C BE 00 8B 20 41 B1 34 |". 180.".... A.4| 00000410: 37 AF 41 B3 35 38 AF C3 28 53 24 29 B3 32 A7 32 |7.A.58..(S$).2.2| 00000420: 31 30 00 49 0C C3 00 8B 20 41 B2 32 30 B0 41 B2 |10.I.... A.20.A.| 00000430: 31 35 37 B0 41 B2 31 33 B0 41 B2 31 33 34 B0 41 |157.A.13.A.134.A| 00000440: B2 31 33 33 A7 20 32 34 30 00 53 0C C8 00 89 20 |.133. 240.S.... | 00000450: 31 38 30 00 6F 0C D2 00 8F 20 3D 3D 3D 3D 3D 3D |180.o.... ======| 00000460: 5D 4E 55 4D 42 45 52 20 50 52 45 53 53 45 44 00 |]NUMBER PRESSED.| 00000470: 84 0C DC 00 53 24 B2 53 24 AA 41 4B 24 3A 99 20 |....S$.S$.AK$:. | 00000480: 41 4B 24 3B 00 8E 0C E6 00 89 20 31 38 30 00 AF |AK$;...... 180..| 00000490: 0C F0 00 8F 20 3D 3D 3D 3D 3D 3D 5D 43 4F 4E 54 |.... ======]CONT| 000004A0: 52 4F 4C 20 4B 45 59 20 50 52 45 53 53 45 44 00 |ROL KEY PRESSED.| 000004B0: EB 0C FA 00 8B 28 41 B2 32 30 B0 41 B2 31 35 37 |.....(A.20.A.157| 000004C0: 29 AF C3 28 53 24 29 B1 30 A7 41 4B 24 B2 C7 28 |)..(S$).0.AK$..(| 000004D0: 32 30 29 3A 53 24 B2 C8 28 53 24 2C C3 28 53 24 |20):S$..(S$,.(S$| 000004E0: 29 AB 31 29 3A 99 41 4B 24 3B 3A 00 21 0D 04 01 |).1):.AK$;:.!...| 000004F0: 8B 28 41 B2 31 33 20 B0 41 B2 31 34 31 29 AF 20 |.(A.13 .A.141). | 00000500: C5 28 53 24 29 B2 B3 4E 49 25 AA 31 AF C3 28 53 |.(S$)..NI%.1..(S| 00000510: 24 29 B1 30 20 AF C5 28 53 24 29 20 A7 20 32 39 |$).0 ..(S$) . 29| 00000520: 30 00 33 0D 0E 01 8B 20 41 B2 31 33 34 20 A7 20 |0.3.... A.134 . | 00000530: 31 33 30 00 46 0D 13 01 8B 20 41 B2 31 33 33 20 |130.F.... A.133 | 00000540: A7 20 32 31 30 30 00 50 0D 18 01 89 20 31 38 30 |. 2100.P.... 180| 00000550: 00 6F 0D 22 01 41 44 B2 C5 28 53 24 29 AB 31 3A |.o.".AD..(S$).1:| 00000560: 8B 20 41 44 B3 B1 4C 46 20 A7 8D 31 30 30 30 00 |. AD..LF ..1000.| 00000570: 7F 0D 2C 01 8D 20 35 30 30 3A 89 20 31 30 30 00 |..,.. 500:. 100.| 00000580: A5 0D F4 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********| 00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005A0: 2A 2A 2A 2A 2A 00 C0 0D FE 01 8F 20 20 20 20 20 |*****...... | 000005B0: 20 20 52 55 4E 20 41 4C 47 4F 52 49 54 48 49 4D | RUN ALGORITHIM| 000005C0: 00 E6 0D 08 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********| 000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005E0: 2A 2A 2A 2A 2A 2A 00 F4 0D 0D 02 58 31 B2 31 3A |******.....X1.1:| 000005F0: 58 32 B2 30 00 0D 0E 0E 02 54 42 25 B2 28 34 30 |X2.0.....TB%.(40| 00000600: AB C3 28 46 24 28 41 44 29 29 29 AD 32 00 4D 0E |..(F$(AD))).2.M.| 00000610: 12 02 50 4C B2 30 3A 99 22 93 1F 12 22 C8 28 42 |..PL.0:."...".(B| 00000620: 4C 24 2C 54 42 25 29 3B 46 24 28 41 44 29 3B C8 |L$,TB%);F$(AD);.| 00000630: 28 42 4C 24 2C 34 30 AB 28 54 42 25 AA C3 28 46 |(BL$,40.(TB%..(F| 00000640: 24 28 41 44 29 29 29 29 22 90 91 22 3B 00 77 0E |$(AD))))"..";.w.| 00000650: 1C 02 8B 20 C8 28 4C 49 24 28 58 31 2C 58 32 29 |... .(LI$(X1,X2)| 00000660: 2C 33 29 B2 22 2E CE C5 22 A7 58 32 B2 58 32 AA |,3)."...".X2.X2.| 00000670: 31 3A 89 20 35 34 30 00 A7 0E 1D 02 99 3A 99 4C |1:. 540......:.L| 00000680: 49 24 28 58 31 2C 58 32 29 3B 3A 58 32 B2 58 32 |I$(X1,X2);:X2.X2| 00000690: AA 31 3A 8B 20 4C 49 24 28 58 31 2C 58 32 29 B2 |.1:. LI$(X1,X2).| 000006A0: 22 22 A7 20 35 37 30 00 CA 0E 26 02 50 4C B2 50 |"". 570...&.PL.P| 000006B0: 4C AA 32 3A 99 3A 8B 20 50 4C B1 31 38 20 A7 20 |L.2:.:. PL.18 . | 000006C0: 8D 36 34 30 3A 89 20 35 33 30 00 D4 0E 30 02 89 |.640:. 530...0..| 000006D0: 20 35 34 30 00 F0 0E 3A 02 8F 20 3D 3D 3D 3D 3D | 540...:.. =====| 000006E0: 3D 5D 43 4F 4D 4D 41 4E 44 20 43 4F 4E 54 4F 4C |=]COMMAND CONTOL| 000006F0: 00 14 0F 44 02 8B 54 25 28 58 31 29 B2 30 A7 8D |...D..T%(X1).0..| 00000700: 36 34 30 3A 8B 20 41 4B 24 B3 B1 C7 28 31 33 33 |640:. AK$...(133| 00000710: 29 A7 20 8E 00 29 0F 45 02 8B 20 54 25 28 58 31 |). ..).E.. T%(X1| 00000720: 29 B2 30 20 A7 20 35 33 30 00 39 0F 4E 02 99 22 |).0 . 530.9.N.."| 00000730: 3F 22 3B 3A 8D 20 36 37 30 00 4E 0F 53 02 8B 20 |?";:. 670.N.S.. | 00000740: 41 4B 24 B2 C7 28 31 33 33 29 A7 35 33 30 00 65 |AK$..(133).530.e| 00000750: 0F 58 02 8B 20 41 20 A7 20 58 31 B2 58 31 AA 59 |.X.. A . X1.X1.Y| 00000760: 25 28 58 31 29 00 7E 0F 62 02 8B 20 41 B2 30 20 |%(X1).~.b.. A.0 | 00000770: A7 20 58 31 B2 58 31 AA 4E 25 28 58 31 29 00 87 |. X1.X1.N%(X1)..| 00000780: 0F 6C 02 58 32 B2 30 00 91 0F 76 02 89 20 35 33 |.l.X2.0...v.. 53| 00000790: 30 00 AF 0F 80 02 8F 20 3D 3D 3D 3D 3D 5D 50 55 |0...... =====]PU| 000007A0: 53 48 20 41 4E 59 20 4B 45 59 2F 50 41 47 45 00 |SH ANY KEY/PAGE.| 000007B0: F0 0F 81 02 99 22 1F 13 11 11 11 11 11 11 11 11 |....."..........| 000007C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 D0 52 |...............R| 000007D0: 45 53 53 20 54 48 45 20 53 50 41 43 45 20 42 41 |ESS THE SPACE BA| 000007E0: 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 22 3B |R TO CONTINUE ";| 000007F0: 00 24 10 83 02 8B 20 58 32 B1 31 30 A7 99 22 4F |.$.... X2.10.."O| 00000800: 52 22 3A 99 22 D0 52 45 53 53 20 46 31 20 54 4F |R":.".RESS F1 TO| 00000810: 20 53 45 45 20 50 52 45 56 49 4F 55 53 20 50 41 | SEE PREVIOUS PA| 00000820: 47 45 22 3B 00 3C 10 8A 02 A1 20 41 4B 24 3A 8B |GE";.<.... AK$:.| 00000830: 20 41 4B 24 B2 22 22 A7 20 36 35 30 00 63 10 94 | AK$."". 650.c..| 00000840: 02 8B 20 41 4B 24 B2 C7 28 31 33 33 29 A7 58 32 |.. AK$..(133).X2| 00000850: B2 58 32 AB 32 30 3A 8B 20 58 32 B3 30 A7 20 58 |.X2.20:. X2.0. X| 00000860: 32 B2 30 00 69 10 99 02 8E 00 84 10 9E 02 8F 20 |2.0.i.......... | 00000870: 3D 3D 3D 3D 3D 5D 59 45 53 2F 4E 4F 20 52 4F 55 |=====]YES/NO ROU| 00000880: 54 49 4E 45 00 B4 10 9F 02 48 43 B2 C2 28 32 31 |TINE.....HC..(21| 00000890: 30 29 3A 4C 43 B2 C2 28 32 30 39 29 3A 43 50 B2 |0):LC..(209):CP.| 000008A0: C2 28 32 31 31 29 3A 41 B2 32 3A 43 43 B2 C2 28 |.(211):A.2:CC..(| 000008B0: 32 31 34 29 00 E9 10 A8 02 99 22 13 11 11 11 11 |214)......".....| 000008C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 000008D0: 11 11 11 1F D9 2F CE 20 41 4E 44 20 54 48 45 4E |...../. AND THEN| 000008E0: 20 D2 C5 D4 D5 D2 CE 22 3B 00 21 11 A9 02 8B 20 | ......";.!.... | 000008F0: 58 32 B1 31 30 20 A7 20 99 22 20 4F 52 22 3A 99 |X2.10 . ." OR":.| 00000900: 22 D0 52 45 53 53 20 46 31 20 54 4F 20 53 45 45 |".RESS F1 TO SEE| 00000910: 20 50 52 45 56 49 4F 55 53 20 50 41 47 45 90 22 | PREVIOUS PAGE."| 00000920: 3B 00 50 11 AA 02 97 20 32 30 39 2C 4C 43 3A 97 |;.P.... 209,LC:.| 00000930: 32 31 30 2C 48 43 3A 97 32 31 31 2C 43 50 3A 97 |210,HC:.211,CP:.| 00000940: 32 31 34 2C 43 43 3A 99 43 52 24 A3 31 37 29 3B |214,CC:.CR$.17);| 00000950: 00 68 11 B2 02 A1 20 41 4B 24 3A 8B 20 41 4B 24 |.h.... AK$:. AK$| 00000960: B2 22 22 A7 20 36 39 30 00 8D 11 B3 02 8B 20 41 |."". 690...... A| 00000970: 4B 24 B2 C7 28 31 33 33 29 A7 58 32 B2 58 32 AB |K$..(133).X2.X2.| 00000980: 32 31 3A 8B 58 32 B3 30 A7 58 32 B2 30 00 A1 11 |21:.X2.0.X2.0...| 00000990: B4 02 8B 20 41 4B 24 B2 C7 28 31 33 33 29 A7 20 |... AK$..(133). | 000009A0: 8E 00 B9 11 B7 02 8B 20 41 4B 24 B2 C7 28 31 33 |....... AK$..(13| 000009B0: 29 AF 41 B3 B1 32 A7 20 8E 00 E2 11 BC 02 8B 20 |).A..2. ....... | 000009C0: 41 4B 24 B2 22 59 22 B0 41 4B 24 B2 22 D9 22 A7 |AK$."Y".AK$.".".| 000009D0: 41 B2 31 3A 99 22 20 12 D9 C5 D3 92 9D 9D 9D 9D |A.1:." .........| 000009E0: 22 3B 00 0B 12 C6 02 8B 20 41 4B 24 B2 22 4E 22 |";...... AK$."N"| 000009F0: B0 41 4B 24 B2 22 CE 22 A7 41 B2 30 3A 99 22 20 |.AK$.".".A.0:." | 00000A00: 12 20 CE CF 92 9D 9D 9D 9D 22 3B 00 15 12 D0 02 |. .......";.....| 00000A10: 89 20 36 39 30 00 2D 12 DA 02 8F 20 3D 3D 3D 3D |. 690.-.... ====| 00000A20: 3D 5D 2E 4E 45 20 52 4F 55 54 49 4E 45 00 57 12 |=].NE ROUTINE.W.| 00000A30: E4 02 57 56 24 B2 C9 28 4C 49 24 28 58 31 2C 58 |..WV$..(LI$(X1,X| 00000A40: 32 29 2C C3 28 4C 49 24 28 58 31 2C 58 32 29 29 |2),.(LI$(X1,X2))| 00000A50: AB 33 3A 99 57 56 24 00 5F 12 D6 03 41 B2 32 00 |.3:.WV$._...A.2.| 00000A60: 83 12 E8 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********| 00000A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A80: 2A 2A 2A 00 A3 12 F2 03 8F 20 20 20 20 4C 4F 41 |***...... LOA| 00000A90: 44 20 46 52 4F 4D 20 44 49 53 4B 20 52 4F 55 54 |D FROM DISK ROUT| 00000AA0: 49 4E 45 00 C7 12 FC 03 8F 20 2A 2A 2A 2A 2A 2A |INE...... ******| 00000AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000AC0: 2A 2A 2A 2A 2A 2A 2A 00 DB 12 FD 03 97 20 35 35 |*******...... 55| 00000AD0: 2C 4C 4D 3A 97 20 35 36 2C 48 4D 00 F3 12 FE 03 |,LM:. 56,HM.....| 00000AE0: 81 20 43 B2 30 A4 32 35 3A 54 25 28 43 29 B2 30 |. C.0.25:T%(C).0| 00000AF0: 3A 82 43 00 3F 13 01 04 99 22 13 11 11 11 11 11 |:.C.?...."......| 00000B00: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000B10: 22 3B 22 12 9C 20 20 20 20 20 20 20 20 20 20 20 |";".. | 00000B20: 20 20 20 20 20 CC CF C1 C4 C9 CE C7 20 20 20 20 | ....... | 00000B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 | ";.| 00000B40: 70 13 02 04 99 22 20 20 20 20 20 20 20 20 20 20 |p...." | 00000B50: 20 20 20 C8 C5 C1 CC D4 C8 20 A0 C1 C4 D6 C9 C3 | ...... ......| 00000B60: C5 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B |. ";| 00000B70: 00 A1 13 03 04 99 22 20 20 20 20 20 20 20 20 20 |......" | 00000B80: 20 20 20 20 20 D0 4C 45 41 53 45 20 D7 41 49 54 | .LEASE .AIT| 00000B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00000BA0: 3B 00 ED 13 05 04 99 22 92 13 11 11 20 20 20 20 |;......".... | 00000BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000BE0: 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 08 14 | ";...| 00000BF0: 06 04 99 20 22 20 20 20 20 20 20 20 20 20 20 20 |... " | 00000C00: 20 20 20 20 20 20 20 22 00 2F 14 07 04 9F 20 33 | "./.... 3| 00000C10: 2C 38 2C 33 2C C8 28 46 24 28 41 44 29 2C 31 34 |,8,3,.(F$(AD),14| 00000C20: 29 AA 22 2A 2C 53 2C 52 22 3A 4C 46 B2 41 44 00 |)."*,S,R":LF.AD.| 00000C30: 3D 14 10 04 58 31 B2 30 3A 58 32 B2 30 00 47 14 |=...X1.0:X2.0.G.| 00000C40: 1A 04 53 24 B2 22 22 00 68 14 1B 04 84 33 2C 41 |..S$."".h....3,A| 00000C50: 24 3A 8D 32 30 30 30 3A 8B 20 41 24 B2 22 45 4E |$:.2000:. A$."EN| 00000C60: 44 22 A7 20 31 30 38 36 00 81 14 1C 04 8B 20 C3 |D". 1086...... .| 00000C70: 28 53 24 AA 41 24 29 B1 34 30 20 A7 20 31 30 38 |(S$.A$).40 . 108| 00000C80: 35 00 AD 14 1E 04 41 31 B2 C2 28 35 35 29 3A 41 |5.....A1..(55):A| 00000C90: 32 B2 C2 28 35 36 29 3A 97 20 35 35 2C C2 28 35 |2..(56):. 55,.(5| 00000CA0: 31 29 3A 97 20 35 36 2C C2 28 35 32 29 00 C9 14 |1):. 56,.(52)...| 00000CB0: 1F 04 57 56 B2 B8 28 30 29 3A 97 20 35 35 2C 41 |..WV..(0):. 55,A| 00000CC0: 31 3A 97 20 35 36 2C 41 32 00 F0 14 22 04 91 20 |1:. 56,A2...".. | 00000CD0: C6 28 C9 28 41 24 2C 31 29 AA C7 28 30 29 29 20 |.(.(A$,1)..(0)) | 00000CE0: 89 20 31 30 38 31 2C 31 30 38 32 2C 31 30 38 33 |. 1081,1082,1083| 00000CF0: 00 FD 14 23 04 53 24 B2 53 24 AA 41 24 00 15 15 |...#.S$.S$.A$...| 00000D00: 24 04 8B 20 C8 28 53 24 2C 31 29 B2 22 2E 22 A7 |$.. .(S$,1).".".| 00000D10: 20 31 30 39 30 00 3D 15 2E 04 4C 49 24 28 58 31 | 1090.=...LI$(X1| 00000D20: 2C 58 32 29 B2 53 24 3A 58 32 B2 58 32 AA 31 3A |,X2).S$:X2.X2.1:| 00000D30: 4C 49 24 28 58 31 2C 58 32 29 B2 22 22 00 69 15 |LI$(X1,X2)."".i.| 00000D40: 2F 04 41 31 B2 C2 28 35 35 29 3A 41 32 B2 C2 28 |/.A1..(55):A2..(| 00000D50: 35 36 29 3A 97 20 35 35 2C C2 28 35 31 29 3A 97 |56):. 55,.(51):.| 00000D60: 20 35 36 2C C2 28 35 32 29 00 85 15 32 04 57 56 | 56,.(52)...2.WV| 00000D70: B2 B8 28 30 29 3A 97 20 35 35 2C 41 31 3A 97 20 |..(0):. 55,A1:. | 00000D80: 35 36 2C 41 32 00 90 15 38 04 89 20 31 30 35 30 |56,A2...8.. 1050| 00000D90: 00 C2 15 39 04 8B 20 C9 28 41 24 2C 31 29 B2 C7 |...9.. .(A$,1)..| 00000DA0: 28 31 29 A7 53 24 B2 53 24 AA C8 28 41 24 2C C3 |(1).S$.S$..(A$,.| 00000DB0: 28 41 24 29 AB 31 29 AA 22 2C 22 3A 89 20 31 30 |(A$).1).",":. 10| 00000DC0: 35 31 00 F4 15 3A 04 8B 20 C9 28 41 24 2C 31 29 |51...:.. .(A$,1)| 00000DD0: B2 C7 28 32 29 A7 53 24 B2 53 24 AA C8 28 41 24 |..(2).S$.S$..(A$| 00000DE0: 2C C3 28 41 24 29 AB 31 29 AA 22 3B 22 3A 89 20 |,.(A$).1).";":. | 00000DF0: 31 30 35 31 00 26 16 3B 04 8B 20 C9 28 41 24 2C |1051.&.;.. .(A$,| 00000E00: 31 29 B2 C7 28 33 29 A7 53 24 B2 53 24 AA C8 28 |1)..(3).S$.S$..(| 00000E10: 41 24 2C C3 28 41 24 29 AB 31 29 AA 22 3A 22 3A |A$,.(A$).1).":":| 00000E20: 89 20 31 30 35 31 00 5B 16 3C 04 4C 49 24 28 58 |. 1051.[.<.LI$(X| 00000E30: 31 2C 58 32 29 B2 C8 28 53 24 2C 33 39 29 3A 4C |1,X2)..(S$,39):L| 00000E40: 49 24 28 58 31 2C 58 32 AA 31 29 B2 22 22 3A A0 |I$(X1,X2.1)."":.| 00000E50: 33 3A 57 56 B2 B8 28 30 29 3A 8E 00 9B 16 3D 04 |3:WV..(0):....=.| 00000E60: 4C 49 24 28 58 31 2C 58 32 29 B2 C8 28 53 24 AA |LI$(X1,X2)..(S$.| 00000E70: C7 28 30 29 2C 33 39 29 3A 58 32 B2 58 32 AA 31 |.(0),39):X2.X2.1| 00000E80: 3A 4C 49 24 28 58 31 2C 58 32 29 B2 22 22 3A 53 |:LI$(X1,X2)."":S| 00000E90: 24 B2 22 22 3A 89 20 31 30 35 32 00 C8 16 3E 04 |$."":. 1052...>.| 00000EA0: 4C 49 24 28 58 31 2C 58 32 29 B2 C8 28 53 24 2C |LI$(X1,X2)..(S$,| 00000EB0: 33 39 29 3A 4C 49 24 28 58 31 2C 58 32 AA 31 29 |39):LI$(X1,X2.1)| 00000EC0: B2 22 22 3A A0 33 3A 8E 00 EC 16 42 04 8F 20 2A |."":.3:....B.. *| 00000ED0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000EE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0A 17 4C |************...L| 00000EF0: 04 8F 20 20 20 20 20 20 43 4F 4D 4D 41 4E 44 20 |.. COMMAND | 00000F00: 50 52 4F 43 45 53 53 49 4E 47 00 2E 17 56 04 8F |PROCESSING...V..| 00000F10: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 00000F20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3E |**************.>| 00000F30: 17 60 04 57 56 24 B2 C8 28 53 24 2C 33 29 00 54 |.`.WV$..(S$,3).T| 00000F40: 17 6A 04 8B 20 57 56 24 B2 22 2E D1 D5 22 A7 20 |.j.. WV$."...". | 00000F50: 31 31 38 30 00 6A 17 74 04 8B 20 57 56 24 B2 22 |1180.j.t.. WV$."| 00000F60: 2E CD D3 22 A7 20 31 32 31 30 00 89 17 7E 04 8B |...". 1210...~..| 00000F70: 20 57 56 24 B2 22 2E D3 C1 22 B0 57 56 24 B2 22 | WV$."...".WV$."| 00000F80: 2E CC C1 22 A7 31 32 34 30 00 9F 17 88 04 8B 20 |...".1240...... | 00000F90: 57 56 24 B2 22 2E CE C5 22 A7 20 31 30 37 30 00 |WV$."...". 1070.| 00000FA0: AA 17 92 04 89 20 31 30 35 30 00 D9 17 9C 04 58 |..... 1050.....X| 00000FB0: 31 B2 58 31 AA 31 3A 58 32 B2 30 3A 54 25 28 58 |1.X1.1:X2.0:T%(X| 00000FC0: 31 29 B2 31 3A 59 25 28 58 31 29 B2 C5 28 CA 28 |1).1:Y%(X1)..(.(| 00000FD0: 53 24 2C 35 2C 31 30 29 29 00 12 18 A6 04 4E 25 |S$,5,10)).....N%| 00000FE0: 28 58 31 29 B2 C5 28 CA 28 53 24 2C 37 2C 31 30 |(X1)..(.(S$,7,10| 00000FF0: 29 29 3A 8B 20 4E 25 28 58 31 29 B2 30 A7 4E 25 |)):. N%(X1).0.N%| 00001000: 28 58 31 29 B2 C5 28 CA 28 53 24 2C 38 2C 31 30 |(X1)..(.(S$,8,10| 00001010: 29 29 00 37 18 A7 04 8B 20 4E 25 28 58 31 29 B2 |)).7.... N%(X1).| 00001020: 30 A7 20 4E 25 28 58 31 29 B2 C5 28 CA 28 53 24 |0. N%(X1)..(.(S$| 00001030: 2C 39 2C 31 30 29 29 00 42 18 B0 04 89 20 31 30 |,9,10)).B.... 10| 00001040: 35 30 00 56 18 BA 04 57 56 B2 C5 28 CA 28 53 24 |50.V...WV..(.(S$| 00001050: 2C 35 2C 31 29 29 00 65 18 C4 04 53 24 B2 4D 53 |,5,1)).e...S$.MS| 00001060: 24 28 57 56 29 00 70 18 CE 04 89 20 31 30 37 30 |$(WV).p.... 1070| 00001070: 00 AB 18 D8 04 57 56 24 B2 CA 28 53 24 2C 35 2C |.....WV$..(S$,5,| 00001080: 35 29 3A 53 24 B2 57 56 24 3A 4C 49 24 28 58 31 |5):S$.WV$:LI$(X1| 00001090: 2C 58 32 29 B2 22 22 3A 58 31 B2 58 31 AA 31 3A |,X2)."":X1.X1.1:| 000010A0: 58 32 B2 30 3A 89 20 31 31 32 30 00 B8 18 D0 07 |X2.0:. 1120.....| 000010B0: 84 31 35 2C 41 2C 42 24 00 C5 18 DA 07 8B 20 41 |.15,A,B$...... A| 000010C0: B2 30 A7 20 8E 00 F8 18 E4 07 A0 33 3A 99 22 93 |.0. .......3:.".| 000010D0: 90 11 11 11 11 11 11 11 11 11 C9 4E 53 45 52 54 |...........NSERT| 000010E0: 20 54 48 45 20 C8 45 41 4C 54 48 20 C1 44 56 49 | THE .EALTH .DVI| 000010F0: 43 45 20 44 49 53 4B 22 00 02 19 EE 07 8D 20 36 |CE DISK"...... 6| 00001100: 34 30 00 30 19 F3 07 99 22 93 90 11 11 11 11 11 |40.0....".......| 00001110: 11 11 11 11 20 20 20 20 20 20 20 20 20 20 D0 4C |.... .L| 00001120: 45 41 53 45 20 D7 41 49 54 20 2E 20 2E 20 2E 22 |EASE .AIT . . ."| 00001130: 00 42 19 F8 07 8B 20 46 24 28 30 29 B2 22 22 A7 |.B.... F$(0)."".| 00001140: 31 30 00 52 19 02 08 4C 46 B2 AB 31 3A 89 20 31 |10.R...LF..1:. 1| 00001150: 30 30 00 76 19 34 08 8F 20 3D 3D 3D 3D 3D 5D 52 |00.v.4.. =====]R| 00001160: 45 54 55 52 4E 20 54 4F 20 54 48 45 20 4D 41 49 |ETURN TO THE MAI| 00001170: 4E 20 4D 45 4E 55 00 B5 19 3E 08 99 22 93 90 11 |N MENU...>.."...| 00001180: 11 11 11 11 11 11 11 11 11 11 11 11 C1 52 45 20 |.............RE | 00001190: 59 4F 55 20 12 D3 D5 D2 C5 92 20 59 4F 55 20 57 |YOU ...... YOU W| 000011A0: 41 4E 54 20 54 4F 20 52 45 54 55 52 4E 20 54 4F |ANT TO RETURN TO| 000011B0: 20 54 48 45 22 00 C7 19 3F 08 99 22 CD 41 49 4E | THE"...?..".AIN| 000011C0: 20 CD 45 4E 55 22 3B 00 D1 19 48 08 8D 20 36 37 | .ENU";...H.. 67| 000011D0: 30 00 E1 19 52 08 8B 20 41 B2 30 20 A7 20 31 30 |0...R.. A.0 . 10| 000011E0: 30 00 0E 1A 5C 08 99 22 93 11 11 11 11 11 11 11 |0...\.."........| 000011F0: 11 11 20 20 20 20 20 20 20 20 20 D0 4C 45 41 53 |.. .LEAS| 00001200: 45 20 57 41 49 54 20 2E 20 2E 20 2E 9B 22 00 47 |E WAIT . . ..".G| 00001210: 1A 66 08 A0 33 3A 9F 20 33 2C 38 2C 33 2C 22 4D |.f..3:. 3,8,3,"M| 00001220: 41 49 4E 20 4D 45 4E 55 2C 53 2C 52 22 3A 84 31 |AIN MENU,S,R":.1| 00001230: 35 2C 41 2C 42 24 3A 8B 20 41 B3 B1 36 34 20 A7 |5,A,B$:. A..64 .| 00001240: 20 89 20 32 31 31 30 00 5A 1A 70 08 93 22 4D 41 | . 2110.Z.p.."MA| 00001250: 49 4E 20 4D 45 4E 55 22 2C 38 00 00 00 |IN MENU",8... |
....... 45,B(174):. 46,B(175):..P.... T%
(30),Y%(30),N%(30),LI$(30,100),F$(50):BL
$." "...... 1
5,8,15:.B(878)..23..64738.P...MS$(1)."DO
THE FOLLOWING:":MS$(2)."SEE A DOCTOR":C
R$.G(13). ...MS$(3).MS$(2)." IMMEDIATELY
":MS$(4)."GO TO THE EMERGENCY ROOM IMMED
IATELY.".I...MS$(5)."GO TO THE EMERGENCY
ROOM OR".....MS$(5).MS$(5).CR$.CR$."SEE
YOUR DOCTOR AS SOON AS POSSIBLE"......
.A(X)..(X.256):. .B(X).X..A(X).256:LF..1
.....:...... GET MENU ITEMS FROM DIS
K...... 3,8,3,"PROBLEMS,S,R":. 2000.....
C.0.6.#..3,F$(C):. F$(C)."END".NI%.C.1:
3:.100.W.(.C.C.1:LM.B(55):HM.B(56):. 35.
}.D.. *******************************...
N.. MENU ROUTINE...X.. ********
***********************.G.}.C.0......"..
. HEALTH ADVICE MENU
":PL.0.....PL.0.T...."TO SEE MORE PROBL
EMS, PRESS F3":."TO RETURN TO MAIN MENU,
PRESS F1.."......"."C.1;.4)F$(C):.:. F$
(C.1)."END". C.0:.:.:.:.:. 170.....PL.PL
.2:C.C.1:. PL.15 . 140......"..ENTER A N
UMBER AND PRESS RETURN:.";:S$.""...... A
K$:A.F(AK$.G(0)):. AK$."". 180.".... A.4
7.A.58.C(S$).2.210.I.C.. A.20.A.157.A.13
.A.134.A.133. 240.S.H.. 180.O.R.. ======
]NUMBER PRESSED.....S$.S$.AK$:. AK$;....
.. 180...... ======]CONTROL KEY PRESSED.
.....(A.20.A.157).C(S$).0.AK$.G(20):S$.H
(S$,C(S$).1):.AK$;:.!....(A.13 .A.141).
E(S$)..NI%.1.C(S$).0 .E(S$) . 290.3....
A.134 . 130.F.... A.133 . 2100.P.... 180
.O.".AD.E(S$).1:. AD..LF ..1000..,.. 50
0:. 100...... **************************
*****...... RUN ALGORITHIM...... *
******************************.....X1.1:
X2.0.....TB%.(40.C(F$(AD))).2.M...PL.0:.
"..."H(BL$,TB%);F$(AD);H(BL$,40.(TB%.C(F
$(AD))))"..";.W.... H(LI$(X1,X2),3).".NE
".X2.X2.1:. 540......:.LI$(X1,X2);:X2.X2
.1:. LI$(X1,X2)."". 570.J.&.PL.PL.2:.:.
PL.18 . .640:. 530.T.0.. 540...:.. =====
=]COMMAND CONTOL...D..T%(X1).0..640:. AK
$..G(133). ..).E.. T%(X1).0 . 530.9.N.."
?";:. 670.N.S.. AK$.G(133).530.E.X.. A .
X1.X1.Y%(X1).~.B.. A.0 . X1.X1.N%(X1)..
.L.X2.0...V.. 530...... =====]PUSH ANY K
EY/PAGE......"........................PR
ESS THE SPACE BAR TO CONTINUE ";.$.... X
2.10.."OR":."PRESS F1 TO SEE PREVIOUS PA
GE";.<.... AK$:. AK$."". 650.C.... AK$.G
(133).X2.X2.20:. X2.0. X2.0.I..........
=====]YES/NO ROUTINE.....HC.B(210):LC.B(
209):CP.B(211):A.2:CC.B(214)......".....
....................Y/N AND THEN RETURN"
;.!.... X2.10 . ." OR":."PRESS F1 TO SEE
PREVIOUS PAGE.";.P.... 209,LC:.210,HC:.
211,CP:.214,CC:.CR$.17);.H.... AK$:. AK$
."". 690...... AK$.G(133).X2.X2.21:.X2.0
.X2.0...... AK$.G(133). ....... AK$.G(13
).A..2. ....... AK$."Y".AK$."Y".A.1:." .
YES.....";...F.. AK$."N".AK$."N".A.0:."
. NO.....";...P.. 690.-.Z.. =====].NE RO
UTINE.W...WV$.I(LI$(X1,X2),C(LI$(X1,X2))
.3:.WV$._.V.A.2...... ******************
***********...... LOAD FROM DISK ROUT
INE.G.... *****************************.
..... 55,LM:. 56,HM...... C.0.25:T%(C).0
:.C.?...."......................";"..
LOADING ";.
P...." HEALTH ADVICE
";......" PLEASE WAIT
";......"....
";...... " "
./.... 3,8,3,H(F$(AD),14)."*,S,R":LF.AD.
=...X1.0:X2.0.G...S$."".H....3,A$:.2000:
. A$."END". 1086...... C(S$.A$).40 . 108
5.....A1.B(55):A2.B(56):. 55,B(51):. 56,
B(52).I...WV..(0):. 55,A1:. 56,A2..."..
F(I(A$,1).G(0)) . 1081,1082,1083...#.S$.
S$.A$...$.. H(S$,1).".". 1090.=...LI$(X1
,X2).S$:X2.X2.1:LI$(X1,X2)."".I./.A1.B(5
5):A2.B(56):. 55,B(51):. 56,B(52)...2.WV
..(0):. 55,A1:. 56,A2...8.. 1050.B.9.. I
(A$,1).G(1).S$.S$.H(A$,C(A$).1).",":. 10
51...:.. I(A$,1).G(2).S$.S$.H(A$,C(A$).1
).";":. 1051.&.;.. I(A$,1).G(3).S$.S$.H(
A$,C(A$).1).":":. 1051.[.<.LI$(X1,X2).H(
S$,39):LI$(X1,X2.1)."": 3:WV..(0):....=.
LI$(X1,X2).H(S$.G(0),39):X2.X2.1:LI$(X1,
X2)."":S$."":. 1052.H.>.LI$(X1,X2).H(S$,
39):LI$(X1,X2.1)."": 3:....B.. *********
********************...L.. COMMAND
PROCESSING...V.. ***********************
******.>.`.WV$.H(S$,3).T.J.. WV$.".QU".
1180.J.T.. WV$.".MS". 1210...~.. WV$.".S
A".WV$.".LA".1240...... WV$.".NE". 1070.
..... 1050.Y...X1.X1.1:X2.0:T%(X1).1:Y%(
X1).E(J(S$,5,10)).....N%(X1).E(J(S$,7,10
)):. N%(X1).0.N%(X1).E(J(S$,8,10)).7....
N%(X1).0. N%(X1).E(J(S$,9,10)).B.... 10
50.V...WV.E(J(S$,5,1)).E.D.S$.MS$(WV).P.
N.. 1070...X.WV$.J(S$,5,5):S$.WV$:LI$(X1
,X2)."":X1.X1.1:X2.0:. 1120...P..15,A,B$
.E.Z.. A.0. ...... 3:."...........INSERT
THE HEALTH ADVICE DISK"...... 640.0....
"........... PLEASE WAIT . . ."
.B.... F$(0)."".10.R...LF..1:. 100.V.4..
=====]RETURN TO THE MAIN MENU...>.."...
............ARE YOU .SURE. YOU WANT TO R
ETURN TO THE".G.?.."MAIN MENU";.Q.H.. 67
0...R.. A.0 . 100...\.."..........
PLEASE WAIT . . ..".G.F. 3:. 3,8,3,"M
AIN MENU,S,R":.15,A,B$:. A..64 . . 2110.
Z.P.."MAIN MENU",8...
> CLICK IMAGE PREVIEW FOR FULL MODAL