MAIN MENU
FILE INFORMATION
FILENAME(S): MAIN MENU
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:05:42
APPEARS ON: 1 disk(s)
FILE HASH
821a5e43be380906b09573d65e556b7ef63a404e26b307d75821a382d2cb4cf7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| APPLE A DAY | MAIN MENU | PRG | DuncanTwain | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 01 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: 28 08 0A 00 42 B2 32 33 00 5D 08 64 00 99 22 93 |(...B.23.].d..".| 00000030: 12 1F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000040: 20 CD 41 49 4E 20 CD 45 4E 55 20 20 20 20 20 20 | .AIN .ENU | 00000050: 20 20 20 20 20 20 20 20 20 20 90 92 22 00 86 08 | .."...| 00000060: 66 00 99 22 20 20 20 20 20 20 20 20 20 20 D3 45 |f.." .E| 00000070: 4C 45 43 54 20 59 4F 55 52 20 4F 50 54 49 4F 4E |LECT YOUR OPTION| 00000080: 11 11 11 11 11 22 00 9F 08 67 00 99 22 31 2E 20 |....."...g.."1. | 00000090: 20 C8 45 41 4C 54 48 20 C1 44 56 49 43 45 22 00 | .EALTH .DVICE".| 000000A0: BA 08 68 00 99 22 32 2E 20 20 CD 45 44 49 43 41 |..h.."2. .EDICA| 000000B0: 4C 20 D2 45 43 4F 52 44 53 22 00 E0 08 69 00 99 |L .ECORDS"...i..| 000000C0: 22 33 2E 20 20 C8 45 41 4C 54 48 20 D4 45 4C 45 |"3. .EALTH .ELE| 000000D0: 50 48 4F 4E 45 20 C4 49 52 45 43 54 4F 52 59 22 |PHONE .IRECTORY"| 000000E0: 00 FF 08 6B 00 99 22 34 2E 20 20 C5 58 49 54 20 |...k.."4. .XIT | 000000F0: C1 4E 20 C1 50 50 4C 45 20 41 20 C4 41 59 22 00 |.N .PPLE A .AY".| 00000100: 0A 09 6C 00 97 38 37 38 2C 42 00 2A 09 6D 00 99 |..l..878,B.*.m..| 00000110: 22 11 11 11 11 11 1F D4 59 50 45 20 31 2C 20 32 |".......YPE 1, 2| 00000120: 2C 20 33 2C 20 4F 52 20 34 22 00 4C 09 6E 00 A1 |, 3, OR 4".L.n..| 00000130: 20 41 4B 24 3A 8B 20 C5 28 41 4B 24 29 B3 31 B0 | AK$:. .(AK$).1.| 00000140: C5 28 41 4B 24 29 B1 34 A7 31 31 30 00 6B 09 78 |.(AK$).4.110.k.x| 00000150: 00 91 20 C5 28 41 4B 24 29 20 89 20 32 30 30 2C |.. .(AK$) . 200,| 00000160: 33 30 30 2C 34 30 30 2C 35 30 30 00 A0 09 C8 00 |300,400,500.....| 00000170: 99 22 93 9C 12 20 20 20 20 20 20 20 20 20 20 20 |."... | 00000180: 20 20 C8 45 41 4C 54 48 20 C1 44 56 49 43 45 20 | .EALTH .DVICE | 00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 90 92 22 | .."| 000001A0: 00 CC 09 CA 00 99 22 11 11 11 D4 48 45 20 49 4E |......"....HE IN| 000001B0: 46 4F 52 4D 41 54 49 4F 4E 20 49 4E 20 C1 4E 20 |FORMATION IN .N | 000001C0: C1 50 50 4C 45 20 41 20 C4 41 59 22 00 F6 09 CC |.PPLE A .AY"....| 000001D0: 00 99 22 49 53 20 44 45 53 49 47 4E 45 44 20 54 |.."IS DESIGNED T| 000001E0: 4F 20 50 52 4F 56 49 44 45 20 47 55 49 44 41 4E |O PROVIDE GUIDAN| 000001F0: 43 45 20 4F 4E 22 00 15 0A CE 00 99 22 43 4F 4D |CE ON"......"COM| 00000200: 4D 4F 4E 20 48 45 41 4C 54 48 20 50 52 4F 42 4C |MON HEALTH PROBL| 00000210: 45 4D 53 2E 22 00 43 0A D0 00 99 3A 99 22 C9 46 |EMS.".C....:.".F| 00000220: 20 59 4F 55 52 20 50 48 59 53 49 43 49 41 4E 27 | YOUR PHYSICIAN'| 00000230: 53 20 41 44 56 49 43 45 20 43 4F 4E 46 4C 49 43 |S ADVICE CONFLIC| 00000240: 54 53 22 00 6F 0A D2 00 99 22 57 49 54 48 20 54 |TS".o...."WITH T| 00000250: 48 45 20 41 44 56 49 43 45 20 4F 46 46 45 52 45 |HE ADVICE OFFERE| 00000260: 44 20 42 59 20 54 48 49 53 20 50 52 4F 2D 22 00 |D BY THIS PRO-".| 00000270: 99 0A DC 00 99 22 47 52 41 4D 2C 20 46 4F 4C 4C |....."GRAM, FOLL| 00000280: 4F 57 20 59 4F 55 52 20 44 4F 43 54 4F 52 27 53 |OW YOUR DOCTOR'S| 00000290: 20 41 44 56 49 43 45 2E 22 00 C3 0A DE 00 99 3A | ADVICE."......:| 000002A0: 99 22 C9 46 20 59 4F 55 20 48 41 56 45 20 41 4E |.".F YOU HAVE AN| 000002B0: 59 20 44 4F 55 42 54 20 4F 52 20 53 50 45 43 49 |Y DOUBT OR SPECI| 000002C0: 41 4C 22 00 E6 0A E0 00 99 22 51 55 45 53 54 49 |AL"......"QUESTI| 000002D0: 4F 4E 53 2C 20 41 4C 57 41 59 53 20 43 4F 4E 53 |ONS, ALWAYS CONS| 000002E0: 55 4C 54 20 41 22 00 F8 0A E2 00 99 22 50 48 59 |ULT A"......"PHY| 000002F0: 53 49 43 49 41 4E 2E 22 00 21 0B E4 00 99 22 11 |SICIAN.".!....".| 00000300: 11 9C D0 52 45 53 53 20 54 48 45 20 53 50 41 43 |...RESS THE SPAC| 00000310: 45 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |EBAR TO CONTINUE| 00000320: 22 00 38 0B E6 00 A1 20 41 4B 24 3A 8B 20 41 4B |".8.... AK$:. AK| 00000330: 24 B2 22 22 A7 32 33 30 00 45 0B F0 00 46 24 B2 |$."".230.E...F$.| 00000340: 22 48 45 2A 22 00 51 0B FA 00 89 20 36 30 30 30 |"HE*".Q.... 6000| 00000350: 30 00 86 0B 2C 01 99 22 93 96 12 20 20 20 20 20 |0...,.."... | 00000360: 20 20 20 20 20 20 20 CD 45 44 49 43 41 4C 20 D2 | .EDICAL .| 00000370: 45 43 4F 52 44 53 20 20 20 20 20 20 20 20 20 20 |ECORDS | 00000380: 20 20 20 90 92 22 00 B4 0B 2E 01 99 22 11 11 11 | .."......"...| 00000390: 11 CD 41 4E 59 20 50 45 4F 50 4C 45 20 4B 45 45 |..ANY PEOPLE KEE| 000003A0: 50 20 46 49 4E 41 4E 43 49 41 4C 20 52 45 43 4F |P FINANCIAL RECO| 000003B0: 52 44 53 22 00 D3 0B 30 01 99 22 42 55 54 20 48 |RDS"...0.."BUT H| 000003C0: 41 56 45 20 56 45 52 59 20 4C 49 54 54 4C 45 20 |AVE VERY LITTLE | 000003D0: 4F 4E 22 00 F7 0B 32 01 99 22 53 4F 4D 45 54 48 |ON"...2.."SOMETH| 000003E0: 49 4E 47 20 4D 55 43 48 20 4D 4F 52 45 20 50 52 |ING MUCH MORE PR| 000003F0: 45 43 49 4F 55 53 22 00 24 0C 34 01 99 22 54 48 |ECIOUS".$.4.."TH| 00000400: 41 4E 20 4D 4F 4E 45 59 3A 20 20 54 48 45 49 52 |AN MONEY: THEIR| 00000410: 20 48 45 41 4C 54 48 2E 20 20 D4 48 49 53 20 50 | HEALTH. .HIS P| 00000420: 41 52 54 22 00 42 0C 36 01 99 22 4F 46 20 C1 4E |ART".B.6.."OF .N| 00000430: 20 C1 50 50 4C 45 20 41 20 C4 41 59 20 57 49 4C | .PPLE A .AY WIL| 00000440: 4C 22 00 69 0C 38 01 99 22 48 45 4C 50 20 59 4F |L".i.8.."HELP YO| 00000450: 55 20 4B 45 45 50 20 41 43 43 55 52 41 54 45 20 |U KEEP ACCURATE | 00000460: 41 4E 44 20 43 55 52 2D 22 00 91 0C 3A 01 99 22 |AND CUR-"...:.."| 00000470: 52 45 4E 54 20 4D 45 44 49 43 41 4C 20 52 45 43 |RENT MEDICAL REC| 00000480: 4F 52 44 53 20 46 4F 52 20 59 4F 55 20 41 4E 44 |ORDS FOR YOU AND| 00000490: 22 00 A5 0C 3C 01 99 22 59 4F 55 52 20 46 41 4D |"...<.."YOUR FAM| 000004A0: 49 4C 59 2E 22 00 D0 0C 3E 01 99 3A 99 22 C1 4E |ILY."...>..:.".N| 000004B0: 20 C1 50 50 4C 45 20 41 20 C4 41 59 20 41 4C 4C | .PPLE A .AY ALL| 000004C0: 4F 57 53 20 59 4F 55 20 54 4F 20 4B 45 45 50 22 |OWS YOU TO KEEP"| 000004D0: 00 F7 0C 40 01 99 22 4D 45 44 49 43 41 4C 20 52 |...@.."MEDICAL R| 000004E0: 45 43 4F 52 44 53 20 46 4F 52 20 45 41 43 48 20 |ECORDS FOR EACH | 000004F0: 4D 45 4D 42 45 52 22 00 22 0D 42 01 99 22 4F 46 |MEMBER".".B.."OF| 00000500: 20 59 4F 55 52 20 46 41 4D 49 4C 59 2E 20 20 D9 | YOUR FAMILY. .| 00000510: 4F 55 20 43 41 4E 20 52 45 56 49 45 57 20 4F 52 |OU CAN REVIEW OR| 00000520: 20 22 00 4A 0D 44 01 99 22 41 44 44 20 54 4F 20 | ".J.D.."ADD TO | 00000530: 54 48 45 53 45 20 52 45 43 4F 52 44 53 20 41 54 |THESE RECORDS AT| 00000540: 20 41 4E 59 20 54 49 4D 45 22 00 74 0D 46 01 99 | ANY TIME".t.F..| 00000550: 22 41 4E 44 20 59 4F 55 20 43 41 4E 20 50 52 49 |"AND YOU CAN PRI| 00000560: 4E 54 20 54 48 45 4D 20 4F 55 54 20 53 4F 20 54 |NT THEM OUT SO T| 00000570: 48 41 54 22 00 A1 0D 47 01 99 22 59 4F 55 20 57 |HAT"...G.."YOU W| 00000580: 49 4C 4C 20 48 41 56 45 20 41 20 50 45 52 4D 41 |ILL HAVE A PERMA| 00000590: 4E 45 4E 54 20 50 41 50 45 52 20 43 4F 50 59 2E |NENT PAPER COPY.| 000005A0: 22 00 C6 0D 48 01 99 22 11 11 96 D0 52 45 53 53 |"...H.."....RESS| 000005B0: 20 53 50 41 43 45 42 41 52 20 54 4F 20 43 4F 4E | SPACEBAR TO CON| 000005C0: 54 49 4E 55 45 22 00 DD 0D 49 01 A1 20 41 4B 24 |TINUE"...I.. AK$| 000005D0: 3A 8B 20 41 4B 24 B2 22 22 A7 33 32 39 00 F2 0D |:. AK$."".329...| 000005E0: 4A 01 46 24 B2 22 4D 45 2A 22 3A 89 20 36 30 30 |J.F$."ME*":. 600| 000005F0: 30 30 00 FF 0D 90 01 46 24 B2 22 54 45 2A 22 00 |00.....F$."TE*".| 00000600: 0B 0E 9A 01 89 20 36 30 30 30 30 00 3B 0E F4 01 |..... 60000.;...| 00000610: 99 22 93 11 11 11 11 11 11 11 C1 52 45 20 59 4F |.".........RE YO| 00000620: 55 20 12 D3 D5 D2 C5 92 20 59 4F 55 20 57 41 4E |U ...... YOU WAN| 00000630: 54 20 54 4F 20 4C 45 41 56 45 22 00 56 0E FE 01 |T TO LEAVE".V...| 00000640: 85 22 C1 4E 20 C1 50 50 4C 45 20 41 20 C4 41 59 |.".N .PPLE A .AY| 00000650: 2E 22 3B 41 4B 24 00 67 0E 08 02 41 4B 24 B2 C8 |.";AK$.g...AK$..| 00000660: 28 41 4B 24 2C 31 29 00 86 0E 12 02 8B 20 41 4B |(AK$,1)...... AK| 00000670: 24 B3 B1 22 59 22 AF 41 4B 24 B3 B1 22 D9 22 A7 |$.."Y".AK$..".".| 00000680: 20 89 20 31 30 30 00 8C 0E 1C 02 A2 00 BC 0E 60 | . 100.........`| 00000690: EA 99 22 90 93 11 11 11 11 11 11 11 11 11 20 20 |.."........... | 000006A0: 20 20 20 20 20 20 20 20 20 D0 4C 45 41 53 45 20 | .LEASE | 000006B0: D7 41 49 54 20 2E 20 2E 20 2E 9B 22 00 E5 0E 6A |.AIT . . .."...j| 000006C0: EA 9F 20 31 35 2C 38 2C 31 35 3A 9F 20 33 2C 38 |.. 15,8,15:. 3,8| 000006D0: 2C 33 2C 46 24 AA 22 2C 53 2C 52 22 3A 84 31 35 |,3,F$.",S,R":.15| 000006E0: 2C 41 2C 42 24 00 F8 0E 74 EA 8B 20 41 B2 36 34 |,A,B$...t.. A.64| 000006F0: 20 A7 20 36 30 30 36 30 00 2F 0F 7E EA 99 22 93 | . 60060./.~..".| 00000700: 11 11 11 11 11 11 11 11 90 20 20 C9 4E 53 45 52 |......... .NSER| 00000710: 54 20 54 48 45 20 C1 50 50 4C 45 20 41 20 C4 41 |T THE .PPLE A .A| 00000720: 59 20 D0 52 4F 47 52 41 4D 20 C4 49 53 4B 22 00 |Y .ROGRAM .ISK".| 00000730: 4D 0F 88 EA A1 20 41 4B 24 3A 8B 20 41 4B 24 B3 |M.... AK$:. AK$.| 00000740: B1 C7 28 31 33 29 A7 20 36 30 30 34 30 00 60 0F |..(13). 60040.`.| 00000750: 92 EA A0 33 3A A0 31 35 3A 89 20 36 30 30 30 30 |...3:.15:. 60000| 00000760: 00 6A 0F 9C EA 93 46 24 2C 38 00 00 00 |.j....F$,8... |
....... 45,B(174):. 46,B(175):..(...B.23
.].D.."... MAIN MENU
.."...F.." SELECT YOU
R OPTION....."...G.."1. HEALTH ADVICE".
..H.."2. MEDICAL RECORDS"...I.."3. HEA
LTH TELEPHONE DIRECTORY"...K.."4. EXIT
AN APPLE A DAY"...L..878,B.*.M.."......T
YPE 1, 2, 3, OR 4".L.N.. AK$:. E(AK$).1.
E(AK$).4.110.K.X.. E(AK$) . 200,300,400,
500. .H.."... HEALTH ADVICE
..".L.J.."...THE INFORMATIO
N IN AN APPLE A DAY"...L.."IS DESIGNED T
O PROVIDE GUIDANCE ON"...N.."COMMON HEAL
TH PROBLEMS.".C.P..:."IF YOUR PHYSICIAN'
S ADVICE CONFLICTS".O.R.."WITH THE ADVIC
E OFFERED BY THIS PRO-"......"GRAM, FOLL
OW YOUR DOCTOR'S ADVICE.".C....:."IF YOU
HAVE ANY DOUBT OR SPECIAL"......"QUESTI
ONS, ALWAYS CONSULT A"......"PHYSICIAN."
.!...."...PRESS THE SPACEBAR TO CONTINUE
".8.... AK$:. AK$."".230.E...F$."HE*".Q.
... 60000...,.."... MEDICAL R
ECORDS .."......"....MANY PE
OPLE KEEP FINANCIAL RECORDS".S.0.."BUT H
AVE VERY LITTLE ON"...2.."SOMETHING MUCH
MORE PRECIOUS".$.4.."THAN MONEY: THEIR
HEALTH. THIS PART".B.6.."OF AN APPLE A
DAY WILL".I.8.."HELP YOU KEEP ACCURATE
AND CUR-"...:.."RENT MEDICAL RECORDS FOR
YOU AND"...<.."YOUR FAMILY.".P.>..:."AN
APPLE A DAY ALLOWS YOU TO KEEP"...@.."M
EDICAL RECORDS FOR EACH MEMBER".".B.."OF
YOUR FAMILY. YOU CAN REVIEW OR ".J.D..
"ADD TO THESE RECORDS AT ANY TIME".T.F..
"AND YOU CAN PRINT THEM OUT SO THAT"...G
.."YOU WILL HAVE A PERMANENT PAPER COPY.
".F.H.."...PRESS SPACEBAR TO CONTINUE"..
.I.. AK$:. AK$."".329...J.F$."ME*":. 600
00.....F$."TE*"...... 60000.;...."......
..ARE YOU .SURE. YOU WANT TO LEAVE".V...
."AN APPLE A DAY.";AK$.G...AK$.H(AK$,1).
..... AK$.."Y".AK$.."Y". . 100.........`
.."........... PLEASE WAIT . .
.."...J.. 15,8,15:. 3,8,3,F$.",S,R":.15
,A,B$...T.. A.64 . 60060./.~..".........
. INSERT THE APPLE A DAY PROGRAM DISK".
M.... AK$:. AK$..G(13). 60040.`... 3: 15
:. 60000.J....F$,8...
> CLICK IMAGE PREVIEW FOR FULL MODAL