MAIN MENU
FILE INFORMATION
FILENAME(S): MAIN MENU
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-10-19 22:49:39
APPEARS ON: 1 disk(s)
FILE HASH
62c5c1392c6343e3281a52f0e6ca1e270ad9005cfaf895a19eccf40b743464a9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MICRO MANIAC | MAIN MENU | PRG | Radd Maxx | 17 | 3 | 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: 37 08 03 00 9F 31 35 2C 38 2C 31 35 3A 9F 35 2C |7....15,8,15:.5,| 00000030: 38 2C 35 2C 22 23 22 00 4E 08 05 00 98 31 35 2C |8,5,"#".N....15,| 00000040: 22 55 31 3A 35 2C 22 30 2C 31 38 2C 31 38 00 5F |"U1:5,"0,18,18._| 00000050: 08 07 00 84 31 35 2C 42 2C 42 24 2C 43 2C 44 00 |....15,B,B$,C,D.| 00000060: 6A 08 0A 00 A0 35 3A A0 31 35 00 9F 08 64 00 99 |j....5:.15...d..| 00000070: 22 93 12 1F 20 20 20 20 20 20 20 20 20 20 20 20 |"... | 00000080: 20 20 20 CD 41 49 4E 20 CD 45 4E 55 20 20 20 20 | .AIN .ENU | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 90 92 22 00 | ..".| 000000A0: C8 08 66 00 99 22 20 20 20 20 20 20 20 20 20 20 |..f.." | 000000B0: D3 45 4C 45 43 54 20 59 4F 55 52 20 4F 50 54 49 |.ELECT YOUR OPTI| 000000C0: 4F 4E 11 11 11 11 11 22 00 E1 08 67 00 99 22 31 |ON....."...g.."1| 000000D0: 2E 20 20 C8 45 41 4C 54 48 20 C1 44 56 49 43 45 |. .EALTH .DVICE| 000000E0: 22 00 FC 08 68 00 99 22 32 2E 20 20 CD 45 44 49 |"...h.."2. .EDI| 000000F0: 43 41 4C 20 D2 45 43 4F 52 44 53 22 00 22 09 69 |CAL .ECORDS".".i| 00000100: 00 99 22 33 2E 20 20 C8 45 41 4C 54 48 20 D4 45 |.."3. .EALTH .E| 00000110: 4C 45 50 48 4F 4E 45 20 C4 49 52 45 43 54 4F 52 |LEPHONE .IRECTOR| 00000120: 59 22 00 41 09 6B 00 99 22 34 2E 20 20 C5 58 49 |Y".A.k.."4. .XI| 00000130: 54 20 C1 4E 20 C1 50 50 4C 45 20 41 20 C4 41 59 |T .N .PPLE A .AY| 00000140: 22 00 4C 09 6C 00 97 38 37 38 2C 42 00 6C 09 6D |".L.l..878,B.l.m| 00000150: 00 99 22 11 11 11 11 11 1F D4 59 50 45 20 31 2C |..".......YPE 1,| 00000160: 20 32 2C 20 33 2C 20 4F 52 20 34 22 00 8E 09 6E | 2, 3, OR 4"...n| 00000170: 00 A1 20 41 4B 24 3A 8B 20 C5 28 41 4B 24 29 B3 |.. AK$:. .(AK$).| 00000180: 31 B0 C5 28 41 4B 24 29 B1 34 A7 31 31 30 00 A0 |1..(AK$).4.110..| 00000190: 09 73 00 8B 42 B3 B1 30 30 A7 9E 36 34 37 33 38 |.s..B..00..64738| 000001A0: 00 BF 09 78 00 91 20 C5 28 41 4B 24 29 20 89 20 |...x.. .(AK$) . | 000001B0: 32 30 30 2C 33 30 30 2C 34 30 30 2C 35 30 30 00 |200,300,400,500.| 000001C0: F4 09 C8 00 99 22 93 9C 12 20 20 20 20 20 20 20 |....."... | 000001D0: 20 20 20 20 20 20 C8 45 41 4C 54 48 20 C1 44 56 | .EALTH .DV| 000001E0: 49 43 45 20 20 20 20 20 20 20 20 20 20 20 20 20 |ICE | 000001F0: 20 90 92 22 00 20 0A CA 00 99 22 11 11 11 D4 48 | ..". ...."....H| 00000200: 45 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 49 4E |E INFORMATION IN| 00000210: 20 C1 4E 20 C1 50 50 4C 45 20 41 20 C4 41 59 22 | .N .PPLE A .AY"| 00000220: 00 4A 0A CC 00 99 22 49 53 20 44 45 53 49 47 4E |.J...."IS DESIGN| 00000230: 45 44 20 54 4F 20 50 52 4F 56 49 44 45 20 47 55 |ED TO PROVIDE GU| 00000240: 49 44 41 4E 43 45 20 4F 4E 22 00 69 0A CE 00 99 |IDANCE ON".i....| 00000250: 22 43 4F 4D 4D 4F 4E 20 48 45 41 4C 54 48 20 50 |"COMMON HEALTH P| 00000260: 52 4F 42 4C 45 4D 53 2E 22 00 97 0A D0 00 99 3A |ROBLEMS."......:| 00000270: 99 22 C9 46 20 59 4F 55 52 20 50 48 59 53 49 43 |.".F YOUR PHYSIC| 00000280: 49 41 4E 27 53 20 41 44 56 49 43 45 20 43 4F 4E |IAN'S ADVICE CON| 00000290: 46 4C 49 43 54 53 22 00 C3 0A D2 00 99 22 57 49 |FLICTS"......"WI| 000002A0: 54 48 20 54 48 45 20 41 44 56 49 43 45 20 4F 46 |TH THE ADVICE OF| 000002B0: 46 45 52 45 44 20 42 59 20 54 48 49 53 20 50 52 |FERED BY THIS PR| 000002C0: 4F 2D 22 00 ED 0A DC 00 99 22 47 52 41 4D 2C 20 |O-"......"GRAM, | 000002D0: 46 4F 4C 4C 4F 57 20 59 4F 55 52 20 44 4F 43 54 |FOLLOW YOUR DOCT| 000002E0: 4F 52 27 53 20 41 44 56 49 43 45 2E 22 00 17 0B |OR'S ADVICE."...| 000002F0: DE 00 99 3A 99 22 C9 46 20 59 4F 55 20 48 41 56 |...:.".F YOU HAV| 00000300: 45 20 41 4E 59 20 44 4F 55 42 54 20 4F 52 20 53 |E ANY DOUBT OR S| 00000310: 50 45 43 49 41 4C 22 00 3A 0B E0 00 99 22 51 55 |PECIAL".:...."QU| 00000320: 45 53 54 49 4F 4E 53 2C 20 41 4C 57 41 59 53 20 |ESTIONS, ALWAYS | 00000330: 43 4F 4E 53 55 4C 54 20 41 22 00 4C 0B E2 00 99 |CONSULT A".L....| 00000340: 22 50 48 59 53 49 43 49 41 4E 2E 22 00 75 0B E4 |"PHYSICIAN.".u..| 00000350: 00 99 22 11 11 9C D0 52 45 53 53 20 54 48 45 20 |.."....RESS THE | 00000360: 53 50 41 43 45 42 41 52 20 54 4F 20 43 4F 4E 54 |SPACEBAR TO CONT| 00000370: 49 4E 55 45 22 00 8C 0B E6 00 A1 20 41 4B 24 3A |INUE"...... AK$:| 00000380: 8B 20 41 4B 24 B2 22 22 A7 32 33 30 00 99 0B F0 |. AK$."".230....| 00000390: 00 46 24 B2 22 48 45 2A 22 00 A5 0B FA 00 89 20 |.F$."HE*"...... | 000003A0: 36 30 30 30 30 00 DA 0B 2C 01 99 22 93 96 12 20 |60000...,.."... | 000003B0: 20 20 20 20 20 20 20 20 20 20 20 CD 45 44 49 43 | .EDIC| 000003C0: 41 4C 20 D2 45 43 4F 52 44 53 20 20 20 20 20 20 |AL .ECORDS | 000003D0: 20 20 20 20 20 20 20 90 92 22 00 08 0C 2E 01 99 | .."......| 000003E0: 22 11 11 11 11 CD 41 4E 59 20 50 45 4F 50 4C 45 |".....ANY PEOPLE| 000003F0: 20 4B 45 45 50 20 46 49 4E 41 4E 43 49 41 4C 20 | KEEP FINANCIAL | 00000400: 52 45 43 4F 52 44 53 22 00 27 0C 30 01 99 22 42 |RECORDS".'.0.."B| 00000410: 55 54 20 48 41 56 45 20 56 45 52 59 20 4C 49 54 |UT HAVE VERY LIT| 00000420: 54 4C 45 20 4F 4E 22 00 4B 0C 32 01 99 22 53 4F |TLE ON".K.2.."SO| 00000430: 4D 45 54 48 49 4E 47 20 4D 55 43 48 20 4D 4F 52 |METHING MUCH MOR| 00000440: 45 20 50 52 45 43 49 4F 55 53 22 00 78 0C 34 01 |E PRECIOUS".x.4.| 00000450: 99 22 54 48 41 4E 20 4D 4F 4E 45 59 3A 20 20 54 |."THAN MONEY: T| 00000460: 48 45 49 52 20 48 45 41 4C 54 48 2E 20 20 D4 48 |HEIR HEALTH. .H| 00000470: 49 53 20 50 41 52 54 22 00 96 0C 36 01 99 22 4F |IS PART"...6.."O| 00000480: 46 20 C1 4E 20 C1 50 50 4C 45 20 41 20 C4 41 59 |F .N .PPLE A .AY| 00000490: 20 57 49 4C 4C 22 00 BD 0C 38 01 99 22 48 45 4C | WILL"...8.."HEL| 000004A0: 50 20 59 4F 55 20 4B 45 45 50 20 41 43 43 55 52 |P YOU KEEP ACCUR| 000004B0: 41 54 45 20 41 4E 44 20 43 55 52 2D 22 00 E5 0C |ATE AND CUR-"...| 000004C0: 3A 01 99 22 52 45 4E 54 20 4D 45 44 49 43 41 4C |:.."RENT MEDICAL| 000004D0: 20 52 45 43 4F 52 44 53 20 46 4F 52 20 59 4F 55 | RECORDS FOR YOU| 000004E0: 20 41 4E 44 22 00 F9 0C 3C 01 99 22 59 4F 55 52 | AND"...<.."YOUR| 000004F0: 20 46 41 4D 49 4C 59 2E 22 00 24 0D 3E 01 99 3A | FAMILY.".$.>..:| 00000500: 99 22 C1 4E 20 C1 50 50 4C 45 20 41 20 C4 41 59 |.".N .PPLE A .AY| 00000510: 20 41 4C 4C 4F 57 53 20 59 4F 55 20 54 4F 20 4B | ALLOWS YOU TO K| 00000520: 45 45 50 22 00 4B 0D 40 01 99 22 4D 45 44 49 43 |EEP".K.@.."MEDIC| 00000530: 41 4C 20 52 45 43 4F 52 44 53 20 46 4F 52 20 45 |AL RECORDS FOR E| 00000540: 41 43 48 20 4D 45 4D 42 45 52 22 00 76 0D 42 01 |ACH MEMBER".v.B.| 00000550: 99 22 4F 46 20 59 4F 55 52 20 46 41 4D 49 4C 59 |."OF YOUR FAMILY| 00000560: 2E 20 20 D9 4F 55 20 43 41 4E 20 52 45 56 49 45 |. .OU CAN REVIE| 00000570: 57 20 4F 52 20 22 00 9E 0D 44 01 99 22 41 44 44 |W OR "...D.."ADD| 00000580: 20 54 4F 20 54 48 45 53 45 20 52 45 43 4F 52 44 | TO THESE RECORD| 00000590: 53 20 41 54 20 41 4E 59 20 54 49 4D 45 22 00 C8 |S AT ANY TIME"..| 000005A0: 0D 46 01 99 22 41 4E 44 20 59 4F 55 20 43 41 4E |.F.."AND YOU CAN| 000005B0: 20 50 52 49 4E 54 20 54 48 45 4D 20 4F 55 54 20 | PRINT THEM OUT | 000005C0: 53 4F 20 54 48 41 54 22 00 F5 0D 47 01 99 22 59 |SO THAT"...G.."Y| 000005D0: 4F 55 20 57 49 4C 4C 20 48 41 56 45 20 41 20 50 |OU WILL HAVE A P| 000005E0: 45 52 4D 41 4E 45 4E 54 20 50 41 50 45 52 20 43 |ERMANENT PAPER C| 000005F0: 4F 50 59 2E 22 00 1A 0E 48 01 99 22 11 11 96 D0 |OPY."...H.."....| 00000600: 52 45 53 53 20 53 50 41 43 45 42 41 52 20 54 4F |RESS SPACEBAR TO| 00000610: 20 43 4F 4E 54 49 4E 55 45 22 00 31 0E 49 01 A1 | CONTINUE".1.I..| 00000620: 20 41 4B 24 3A 8B 20 41 4B 24 B2 22 22 A7 33 32 | AK$:. AK$."".32| 00000630: 39 00 46 0E 4A 01 46 24 B2 22 4D 45 2A 22 3A 89 |9.F.J.F$."ME*":.| 00000640: 20 36 30 30 30 30 00 53 0E 90 01 46 24 B2 22 54 | 60000.S...F$."T| 00000650: 45 2A 22 00 5F 0E 9A 01 89 20 36 30 30 30 30 00 |E*"._.... 60000.| 00000660: 8F 0E F4 01 99 22 93 11 11 11 11 11 11 11 C1 52 |.....".........R| 00000670: 45 20 59 4F 55 20 12 D3 D5 D2 C5 92 20 59 4F 55 |E YOU ...... YOU| 00000680: 20 57 41 4E 54 20 54 4F 20 4C 45 41 56 45 22 00 | WANT TO LEAVE".| 00000690: AA 0E FE 01 85 22 C1 4E 20 C1 50 50 4C 45 20 41 |.....".N .PPLE A| 000006A0: 20 C4 41 59 2E 22 3B 41 4B 24 00 BB 0E 08 02 41 | .AY.";AK$.....A| 000006B0: 4B 24 B2 C8 28 41 4B 24 2C 31 29 00 DA 0E 12 02 |K$..(AK$,1).....| 000006C0: 8B 20 41 4B 24 B3 B1 22 59 22 AF 41 4B 24 B3 B1 |. AK$.."Y".AK$..| 000006D0: 22 D9 22 A7 20 89 20 31 30 30 00 E0 0E 1C 02 A2 |".". . 100......| 000006E0: 00 10 0F 60 EA 99 22 90 93 11 11 11 11 11 11 11 |...`..".........| 000006F0: 11 11 20 20 20 20 20 20 20 20 20 20 20 D0 4C 45 |.. .LE| 00000700: 41 53 45 20 D7 41 49 54 20 2E 20 2E 20 2E 9B 22 |ASE .AIT . . .."| 00000710: 00 39 0F 6A EA 9F 20 31 35 2C 38 2C 31 35 3A 9F |.9.j.. 15,8,15:.| 00000720: 20 33 2C 38 2C 33 2C 46 24 AA 22 2C 53 2C 52 22 | 3,8,3,F$.",S,R"| 00000730: 3A 84 31 35 2C 41 2C 42 24 00 4C 0F 74 EA 8B 20 |:.15,A,B$.L.t.. | 00000740: 41 B2 36 34 20 A7 20 36 30 30 36 30 00 83 0F 7E |A.64 . 60060...~| 00000750: EA 99 22 93 11 11 11 11 11 11 11 11 90 20 20 C9 |..".......... .| 00000760: 4E 53 45 52 54 20 54 48 45 20 C1 50 50 4C 45 20 |NSERT THE .PPLE | 00000770: 41 20 C4 41 59 20 D0 52 4F 47 52 41 4D 20 C4 49 |A .AY .ROGRAM .I| 00000780: 53 4B 22 00 A1 0F 88 EA A1 20 41 4B 24 3A 8B 20 |SK"...... AK$:. | 00000790: 41 4B 24 B3 B1 C7 28 31 33 29 A7 20 36 30 30 34 |AK$...(13). 6004| 000007A0: 30 00 B4 0F 92 EA A0 33 3A A0 31 35 3A 89 20 36 |0......3:.15:. 6| 000007B0: 30 30 30 30 00 BE 0F 9C EA 93 46 24 2C 38 00 00 |0000......F$,8..| 000007C0: 00 |. |
....... 45,B(174):. 46,B(175):..7....15,
8,15:.5,8,5,"#".N....15,"U1:5,"0,18,18._
....15,B,B$,C,D.J... 5: 15...D.."...
MAIN MENU ..".
H.F.." SELECT YOUR OPTION....."
...G.."1. HEALTH ADVICE"...H.."2. MEDI
CAL RECORDS".".I.."3. HEALTH TELEPHONE
DIRECTORY".A.K.."4. EXIT AN APPLE A DAY
".L.L..878,B.L.M.."......TYPE 1, 2, 3, O
R 4"...N.. AK$:. E(AK$).1.E(AK$).4.110.
.S..B..00..64738...X.. E(AK$) . 200,300,
400,500...H.."... HEALTH ADV
ICE ..". .J.."...THE INFORM
ATION IN AN APPLE A DAY".J.L.."IS DESIGN
ED TO PROVIDE GUIDANCE ON".I.N.."COMMON
HEALTH PROBLEMS."...P..:."IF YOUR PHYSIC
IAN'S ADVICE CONFLICTS".C.R.."WITH THE A
DVICE OFFERED BY THIS PRO-"......"GRAM,
FOLLOW YOUR DOCTOR'S ADVICE."......:."IF
YOU HAVE ANY DOUBT OR SPECIAL".:...."QU
ESTIONS, ALWAYS CONSULT A".L...."PHYSICI
AN.".U...."...PRESS THE SPACEBAR TO CONT
INUE"...... AK$:. AK$."".230.....F$."HE*
"...... 60000.Z.,.."... MEDIC
AL RECORDS .."......"....MAN
Y PEOPLE KEEP FINANCIAL RECORDS".'.0.."B
UT HAVE VERY LITTLE ON".K.2.."SOMETHING
MUCH MORE PRECIOUS".X.4.."THAN MONEY: T
HEIR HEALTH. THIS PART"...6.."OF AN APP
LE A DAY WILL"...8.."HELP YOU KEEP ACCUR
ATE AND CUR-"...:.."RENT MEDICAL RECORDS
FOR YOU AND"...<.."YOUR FAMILY.".$.>..:
."AN APPLE A DAY ALLOWS YOU TO KEEP".K.@
.."MEDICAL RECORDS FOR EACH MEMBER".V.B.
."OF YOUR FAMILY. YOU CAN REVIEW OR "..
.D.."ADD TO THESE RECORDS AT ANY TIME".H
.F.."AND YOU CAN PRINT THEM OUT SO THAT"
...G.."YOU WILL HAVE A PERMANENT PAPER C
OPY."...H.."...PRESS SPACEBAR TO CONTINU
E".1.I.. AK$:. AK$."".329.F.J.F$."ME*":.
60000.S...F$."TE*"._.... 60000......"..
......ARE YOU .SURE. YOU WANT TO LEAVE".
....."AN APPLE A DAY.";AK$.....AK$.H(AK$
,1).Z.... AK$.."Y".AK$.."Y". . 100......
...`.."........... PLEASE WAIT
. . ..".9.J.. 15,8,15:. 3,8,3,F$.",S,R"
:.15,A,B$.L.T.. A.64 . 60060...~..".....
..... INSERT THE APPLE A DAY PROGRAM DI
SK"...... AK$:. AK$..G(13). 60040..... 3
: 15:. 60000......F$,8...
> CLICK IMAGE PREVIEW FOR FULL MODAL