_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

MENU

FILE INFORMATION

FILENAME(S): MENU

FILE TYPE(S): PRG

FILE SIZE: 2.2K

FIRST SEEN: 2025-11-30 21:07:14

APPEARS ON: 1 disk(s)

FILE HASH

6ad0fb35c86f3a33f807743d5938bcbdf44538dc2c66c46005620747cf3a16c1

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
BERT KUIJPERS MENU PRG DuncanTwain 1 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 17 08 01 00 97 35  33 32 38 31 2C 30 3A 97  |.......53281,0:.|
00000010: 35 33 32 38 30 2C 30 00  21 08 03 00 99 22 05 93  |53280,0.!...."..|
00000020: 22 00 43 08 14 00 99 A3  38 29 22 11 11 11 44 49  |".C.....8)"...DI|
00000030: 53 4B 20 44 52 49 56 45  20 55 53 45 52 20 4D 45  |SK DRIVE USER ME|
00000040: 4E 55 22 00 63 08 1E 00  99 A3 38 29 22 1C C0 C0  |NU".c.....8)"...|
00000050: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000060: C0 C0 22 00 6C 08 28 00  99 22 05 22 00 88 08 32  |..".l.(.."."...2|
00000070: 00 99 A3 37 29 22 31 2E  20 44 49 53 4B 20 44 49  |...7)"1. DISK DI|
00000080: 52 45 43 54 4F 52 59 22  00 A5 08 3C 00 99 A3 37  |RECTORY"...<...7|
00000090: 29 22 32 2E 20 46 4F 52  4D 41 54 20 4E 45 57 20  |)"2. FORMAT NEW |
000000A0: 44 49 53 4B 22 00 C2 08  46 00 99 A3 37 29 22 33  |DISK"...F...7)"3|
000000B0: 2E 20 49 4E 49 54 49 41  4C 49 5A 45 20 44 49 53  |. INITIALIZE DIS|
000000C0: 4B 22 00 D9 08 50 00 99  A3 37 29 22 34 2E 20 43  |K"...P...7)"4. C|
000000D0: 4F 50 59 20 46 49 4C 45  22 00 F2 08 5A 00 99 A3  |OPY FILE"...Z...|
000000E0: 37 29 22 35 2E 20 52 45  4E 41 4D 45 20 46 49 4C  |7)"5. RENAME FIL|
000000F0: 45 22 00 0D 09 64 00 99  A3 37 29 22 36 2E 20 45  |E"...d...7)"6. E|
00000100: 52 41 53 45 20 46 49 4C  45 28 53 29 22 00 29 09  |RASE FILE(S)".).|
00000110: 6E 00 99 A3 37 29 22 37  2E 20 56 41 4C 49 44 41  |n...7)"7. VALIDA|
00000120: 54 45 20 46 49 4C 45 53  22 00 46 09 78 00 99 A3  |TE FILES".F.x...|
00000130: 37 29 22 38 2E 20 57 52  49 54 45 20 4D 45 4E 55  |7)"8. WRITE MENU|
00000140: 20 46 49 4C 45 22 00 60  09 82 00 99 A3 37 29 22  | FILE".`.....7)"|
00000150: 39 2E 20 45 52 52 4F 52  20 53 54 41 54 55 53 22  |9. ERROR STATUS"|
00000160: 00 7C 09 8C 00 99 A3 36  29 22 31 30 2E 20 45 58  |.|.....6)"10. EX|
00000170: 49 54 20 54 4F 20 42 41  53 49 43 22 00 84 09 96  |IT TO BASIC"....|
00000180: 00 99 22 22 00 A9 09 A0  00 99 22 9E 1D 1D 1D 1D  |..""......".....|
00000190: 1D 1D C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
000001A0: C0 C0 C0 C0 C0 C0 C0 05  22 00 D1 09 AA 00 99 22  |........"......"|
000001B0: 22 3A 99 22 53 45 4C 45  43 54 20 4E 55 4D 42 45  |":."SELECT NUMBE|
000001C0: 52 20 4F 46 20 59 4F 55  52 20 43 48 4F 49 43 45  |R OF YOUR CHOICE|
000001D0: 22 00 DE 09 B4 00 85 20  43 48 4F 49 43 45 00 15  |"...... CHOICE..|
000001E0: 0A C8 00 91 20 43 48 4F  49 43 45 20 8D 20 32 35  |.... CHOICE . 25|
000001F0: 30 2C 33 30 30 2C 33 35  30 2C 34 30 30 2C 34 35  |0,300,350,400,45|
00000200: 30 2C 35 30 30 2C 35 35  30 2C 36 30 30 2C 36 35  |0,500,550,600,65|
00000210: 30 2C 37 30 30 00 1C 0A  D2 00 89 33 00 25 0A FA  |0,700......3.%..|
00000220: 00 99 22 93 22 00 34 0A  FB 00 9F 31 2C 38 2C 30  |..".".4....1,8,0|
00000230: 2C 22 24 22 00 43 0A FC  00 A1 20 23 31 2C 41 24  |,"$".C.... #1,A$|
00000240: 2C 42 24 00 52 0A FE 00  A1 20 23 31 2C 41 24 2C  |,B$.R.... #1,A$,|
00000250: 42 24 00 61 0A 00 01 A1  20 23 31 2C 41 24 2C 42  |B$.a.... #1,A$,B|
00000260: 24 00 7B 0A 02 01 43 B2  30 3A 8B 20 41 24 B3 B1  |$.{...C.0:. A$..|
00000270: 22 22 A7 20 43 B2 C6 28  41 24 29 00 97 0A 04 01  |"". C..(A$).....|
00000280: 8B 20 42 24 B3 B1 22 22  A7 20 43 B2 43 AA C6 28  |. B$.."". C.C..(|
00000290: 42 24 29 AC 32 35 36 00  B4 0A 06 01 99 22 1E 12  |B$).256......"..|
000002A0: 22 CA 28 C4 28 43 29 2C  32 29 3B A3 33 29 3B 22  |".(.(C),2);.3);"|
000002B0: 92 05 22 3B 00 CA 0A 08  01 A1 23 31 2C 42 24 3A  |..";......#1,B$:|
000002C0: 8B 53 54 B3 B1 30 A7 32  38 32 00 DE 0A 0A 01 8B  |.ST..0.282......|
000002D0: 20 42 24 B3 B1 C7 28 33  34 29 A7 32 36 34 00 FE  | B$...(34).264..|
000002E0: 0A 0C 01 A1 23 31 2C 42  24 3A 8B 42 24 B3 B1 C7  |....#1,B$:.B$...|
000002F0: 28 33 34 29 A7 99 42 24  3B 3A 89 32 36 38 00 17  |(34)..B$;:.268..|
00000300: 0B 0E 01 A1 23 31 2C 42  24 3A 8B 42 24 B2 C7 28  |....#1,B$:.B$..(|
00000310: 33 32 29 A7 32 37 30 00  28 0B 10 01 99 A3 31 38  |32).270.(.....18|
00000320: 29 3B 3A 43 24 B2 22 22  00 48 0B 12 01 43 24 B2  |);:C$."".H...C$.|
00000330: 43 24 AA 42 24 3A A1 23  31 2C 42 24 3A 8B 42 24  |C$.B$:.#1,B$:.B$|
00000340: B3 B1 22 22 A7 32 37 34  00 59 0B 14 01 99 22 9E  |.."".274.Y....".|
00000350: 12 22 C8 28 43 24 2C 33  29 00 68 0B 18 01 8B 20  |.".(C$,3).h.... |
00000360: 53 54 B2 30 A7 32 35 34  00 7C 0B 1A 01 99 22 05  |ST.0.254.|....".|
00000370: 42 4C 4F 43 4B 53 20 46  52 45 45 22 00 A5 0B 1C  |BLOCKS FREE"....|
00000380: 01 A0 20 31 3A 99 22 11  11 48 49 54 20 12 52 45  |.. 1:."..HIT .RE|
00000390: 54 55 52 4E 92 20 46 4F  52 20 4D 45 4E 55 22 3A  |TURN. FOR MENU":|
000003A0: 85 58 24 3A 8E 00 B0 0B  2C 01 99 22 93 11 11 22  |.X$:....,.."..."|
000003B0: 00 CF 0B 36 01 99 22 45  4E 54 45 52 20 44 49 53  |...6.."ENTER DIS|
000003C0: 4B 20 4E 41 4D 45 22 3A  85 20 44 49 53 4B 24 00  |K NAME":. DISK$.|
000003D0: F3 0B 40 01 99 22 11 11  11 45 4E 54 45 52 20 45  |..@.."...ENTER E|
000003E0: 58 54 45 4E 44 45 52 20  4E 41 4D 45 22 3A 85 45  |XTENDER NAME":.E|
000003F0: 58 54 24 00 12 0C 45 01  4D 41 43 52 4F 24 B2 22  |XT$...E.MACRO$."|
00000400: 4E 3A 22 AA 44 49 53 4B  24 AA 22 2C 22 AA 45 58  |N:".DISK$.",".EX|
00000410: 54 24 00 26 0C 4A 01 9F  31 35 2C 38 2C 31 35 2C  |T$.&.J..15,8,15,|
00000420: 4D 41 43 52 4F 24 00 3C  0C 54 01 A0 20 31 35 20  |MACRO$.<.T.. 15 |
00000430: 3A 4D 41 43 52 4F 24 B2  22 22 3A 8E 00 47 0C 5E  |:MACRO$."":..G.^|
00000440: 01 99 22 93 11 11 22 00  6D 0C 68 01 99 22 49 4E  |.."...".m.h.."IN|
00000450: 53 45 52 54 20 44 49 53  4B 20 54 4F 20 42 45 20  |SERT DISK TO BE |
00000460: 49 4E 49 54 49 41 4C 49  5A 45 44 2E 22 00 94 0C  |INITIALIZED."...|
00000470: 72 01 99 22 11 48 49 54  20 12 52 45 54 55 52 4E  |r..".HIT .RETURN|
00000480: 92 20 54 4F 20 49 4E 49  54 41 4C 49 5A 45 22 3A  |. TO INITALIZE":|
00000490: 85 20 58 24 00 A5 0C 7C  01 9F 31 35 2C 38 2C 31  |. X$...|..15,8,1|
000004A0: 35 2C 22 49 22 00 B0 0C  86 01 A0 20 31 35 3A 8E  |5,"I"...... 15:.|
000004B0: 00 BB 0C 90 01 99 22 93  11 11 22 00 E1 0C 9A 01  |......"...".....|
000004C0: 99 22 45 4E 54 45 52 20  53 4F 55 52 43 45 20 46  |."ENTER SOURCE F|
000004D0: 49 4C 45 20 4E 41 4D 45  22 3A 85 20 44 49 53 4B  |ILE NAME":. DISK|
000004E0: 24 00 05 0D A4 01 99 22  11 11 45 4E 54 45 52 20  |$......"..ENTER |
000004F0: 4E 45 57 20 46 49 4C 45  20 4E 41 4D 45 22 3A 85  |NEW FILE NAME":.|
00000500: 20 4E 57 53 24 00 24 0D  A9 01 4D 41 43 52 4F 24  | NWS$.$...MACRO$|
00000510: B2 22 43 3A 22 AA 4E 57  53 24 AA 22 3D 22 AA 44  |."C:".NWS$."=".D|
00000520: 49 53 4B 24 00 38 0D AE  01 9F 31 35 2C 38 2C 31  |ISK$.8....15,8,1|
00000530: 35 2C 4D 41 43 52 4F 24  00 4C 0D B8 01 A0 31 35  |5,MACRO$.L....15|
00000540: 3A 4D 41 43 52 4F 24 B2  22 22 3A 8E 00 57 0D C2  |:MACRO$."":..W..|
00000550: 01 99 22 93 11 11 22 00  79 0D CC 01 99 22 45 4E  |.."...".y...."EN|
00000560: 54 45 52 20 4F 4C 44 20  46 49 4C 45 20 4E 41 4D  |TER OLD FILE NAM|
00000570: 45 22 3A 85 44 49 53 4B  24 00 9C 0D D6 01 99 22  |E":.DISK$......"|
00000580: 11 11 45 4E 54 45 52 20  4E 45 57 20 46 49 4C 45  |..ENTER NEW FILE|
00000590: 20 4E 41 4D 45 22 3A 85  4E 57 53 24 00 BB 0D DB  | NAME":.NWS$....|
000005A0: 01 4D 41 43 52 4F 24 B2  22 52 3A 22 AA 4E 57 53  |.MACRO$."R:".NWS|
000005B0: 24 AA 22 3D 22 AA 44 49  53 4B 24 00 CF 0D E0 01  |$."=".DISK$.....|
000005C0: 9F 31 35 2C 38 2C 31 35  2C 4D 41 43 52 4F 24 00  |.15,8,15,MACRO$.|
000005D0: E3 0D EA 01 A0 31 35 3A  4D 41 43 52 4F 24 B2 22  |.....15:MACRO$."|
000005E0: 22 3A 8E 00 EE 0D F4 01  99 22 93 11 11 22 00 1A  |":......."..."..|
000005F0: 0E FE 01 99 22 45 4E 54  45 52 20 46 49 4C 45 20  |...."ENTER FILE |
00000600: 4E 41 4D 45 28 53 29 20  54 4F 20 44 45 4C 45 54  |NAME(S) TO DELET|
00000610: 45 22 3A 85 20 44 49 53  4B 24 00 3F 0E 08 02 99  |E":. DISK$.?....|
00000620: 22 11 11 48 49 54 20 12  52 45 54 55 52 4E 92 20  |"..HIT .RETURN. |
00000630: 54 4F 20 44 45 4C 45 54  45 22 3A 85 20 58 24 00  |TO DELETE":. X$.|
00000640: 55 0E 12 02 4D 41 43 52  4F 24 B2 22 53 3A 22 AA  |U...MACRO$."S:".|
00000650: 44 49 53 4B 24 00 69 0E  17 02 9F 31 35 2C 38 2C  |DISK$.i....15,8,|
00000660: 31 35 2C 4D 41 43 52 4F  24 00 7D 0E 1C 02 A0 31  |15,MACRO$.}....1|
00000670: 35 3A 4D 41 43 52 4F 24  B2 22 22 3A 8E 00 88 0E  |5:MACRO$."":....|
00000680: 26 02 99 22 93 11 11 22  00 A9 0E 30 02 99 22 9E  |&.."..."...0..".|
00000690: 1D 1D 1D 1D 1D 12 20 57  20 41 20 52 20 4E 20 49  |...... W A R N I|
000006A0: 20 4E 20 47 20 20 92 05  22 00 CC 0E 35 02 99 22  | N G  .."...5.."|
000006B0: 11 4F 50 45 4E 20 46 49  4C 45 53 20 57 49 4C 4C  |.OPEN FILES WILL|
000006C0: 20 42 45 20 44 45 4C 45  54 45 44 22 00 F3 0E 3A  | BE DELETED"...:|
000006D0: 02 99 22 11 11 48 49 54  20 12 52 45 54 55 52 4E  |.."..HIT .RETURN|
000006E0: 92 20 54 4F 20 56 41 4C  49 44 41 54 45 22 3A 85  |. TO VALIDATE":.|
000006F0: 20 58 24 00 03 0F 44 02  9F 31 2C 38 2C 31 35 2C  | X$...D..1,8,15,|
00000700: 22 56 22 00 0C 0F 4E 02  A0 31 3A 8E 00 17 0F 58  |"V"...N..1:....X|
00000710: 02 99 22 93 11 11 22 00  3D 0F 62 02 99 22 49 4E  |.."...".=.b.."IN|
00000720: 53 45 52 54 20 44 49 53  4B 20 54 4F 20 42 45 20  |SERT DISK TO BE |
00000730: 57 52 49 54 54 45 4E 20  54 4F 3A 22 3A 00 6B 0F  |WRITTEN TO:":.k.|
00000740: 6C 02 99 22 11 11 48 49  54 20 12 52 45 54 55 52  |l.."..HIT .RETUR|
00000750: 4E 92 20 54 4F 20 57 52  49 54 45 20 4D 45 4E 55  |N. TO WRITE MENU|
00000760: 20 46 49 4C 45 22 3A 85  20 58 24 00 77 0F 71 02  | FILE":. X$.w.q.|
00000770: 9F 31 2C 38 2C 31 35 00  86 0F 76 02 94 20 22 4D  |.1,8,15...v.. "M|
00000780: 45 4E 55 22 2C 38 00 8F  0F 7B 02 A0 31 3A 8E 00  |ENU",8...{..1:..|
00000790: 9B 0F 8A 02 9F 31 2C 38  2C 31 35 00 AB 0F 94 02  |.....1,8,15.....|
000007A0: 84 31 2C 41 2C 42 24 2C  43 2C 44 00 B6 0F 9E 02  |.1,A,B$,C,D.....|
000007B0: 99 22 93 11 11 22 00 CE  0F A8 02 99 22 12 9E 45  |."..."......"..E|
000007C0: 52 52 4F 52 20 53 54 41  54 55 53 92 05 22 00 0B  |RROR STATUS.."..|
000007D0: 10 A9 02 99 22 11 11 1E  45 52 52 4F 52 20 23 05  |...."...ERROR #.|
000007E0: 20 22 3B 41 3A 99 22 1F  22 3B 42 24 3B 22 05 22  | ";A:.".";B$;"."|
000007F0: 3A 99 22 1E 54 52 41 43  4B 20 05 22 3B 43 2C 22  |:.".TRACK .";C,"|
00000800: 1E 53 45 43 54 4F 52 05  20 22 44 00 1F 10 AD 02  |.SECTOR. "D.....|
00000810: 99 22 11 11 30 3D 4E 4F  20 45 52 52 4F 52 22 00  |."..0=NO ERROR".|
00000820: 48 10 B2 02 99 22 11 11  48 49 54 20 12 52 45 54  |H...."..HIT .RET|
00000830: 55 52 4E 92 20 46 4F 52  20 4D 45 4E 55 22 3A 85  |URN. FOR MENU":.|
00000840: 20 58 24 3A A0 31 3A 8E  00 51 10 BC 02 99 22 93  | X$:.1:..Q....".|
00000850: 22 00 95 10 C6 02 97 35  33 32 38 31 2C 31 3A 97  |"......53281,1:.|
00000860: 35 33 32 38 30 2C 31 3A  99 22 1F 11 11 11 11 4E  |53280,1:.".....N|
00000870: 4F 54 45 3A 20 4D 45 4E  55 20 50 52 4F 47 52 41  |OTE: MENU PROGRA|
00000880: 4D 20 49 53 20 53 54 49  4C 4C 20 52 45 53 49 44  |M IS STILL RESID|
00000890: 45 4E 54 2E 22 00 9B 10  D0 02 80 00 00 00 FF FF  |ENT."...........|
000008A0: 00 5F 45 00                                       |._E.            |
.......53281,0:.53280,0.!...."..".C.....
8)"...DISK DRIVE USER MENU".C.....8)"...
..................".L.(.."."...2...7)"1.
 DISK DIRECTORY"...<...7)"2. FORMAT NEW 
DISK".B.F...7)"3. INITIALIZE DISK".Y.P..
.7)"4. COPY FILE"...Z...7)"5. RENAME FIL
E"...D...7)"6. ERASE FILE(S)".).N...7)"7
. VALIDATE FILES".F.X...7)"8. WRITE MENU
 FILE".`.....7)"9. ERROR STATUS".|.....6
)"10. EXIT TO BASIC"......""... ..".....
........................".Q...."":."SELE
CT NUMBER OF YOUR CHOICE"...... CHOICE..
.H.. CHOICE . 250,300,350,400,450,500,55
0,600,650,700...R..3.%....".".4....1,8,0
,"$".C.... #1,A$,B$.R.... #1,A$,B$.A....
 #1,A$,B$.{...C.0:. A$.."". C.F(A$).....
. B$.."". C.C.F(B$).256......".."J(D(C),
2);.3);"..";.J....#1,B$:.ST..0.282......
 B$..G(34).264......#1,B$:.B$..G(34)..B$
;:.268......#1,B$:.B$.G(32).270.(.....18
);:C$."".H...C$.C$.B$:.#1,B$:.B$.."".274
.Y....".."H(C$,3).H.... ST.0.254.|....".
BLOCKS FREE".....  1:."..HIT .RETURN. FO
R MENU":.X$:....,.."...".O.6.."ENTER DIS
K NAME":. DISK$...@.."...ENTER EXTENDER 
NAME":.EXT$...E.MACRO$."N:".DISK$.",".EX
T$.&.J..15,8,15,MACRO$.<.T.  15 :MACRO$.
"":..G.^.."...".M.H.."INSERT DISK TO BE 
INITIALIZED."...R..".HIT .RETURN. TO INI
TALIZE":. X$...|..15,8,15,"I".....  15:.
......"..."......"ENTER SOURCE FILE NAME
":. DISK$......"..ENTER NEW FILE NAME":.
 NWS$.$...MACRO$."C:".NWS$."=".DISK$.8..
..15,8,15,MACRO$.L... 15:MACRO$."":..W.B
.."...".Y.L.."ENTER OLD FILE NAME":.DISK
$...V.."..ENTER NEW FILE NAME":.NWS$....
.MACRO$."R:".NWS$."=".DISK$.O....15,8,15
,MACRO$..... 15:MACRO$."":......."..."..
...."ENTER FILE NAME(S) TO DELETE":. DIS
K$.?...."..HIT .RETURN. TO DELETE":. X$.
U...MACRO$."S:".DISK$.I....15,8,15,MACRO
$.}... 15:MACRO$."":....&.."..."...0..".
...... W A R N I N G  ..".L.5..".OPEN FI
LES WILL BE DELETED"...:.."..HIT .RETURN
. TO VALIDATE":. X$...D..1,8,15,"V"...N.
 1:....X.."...".=.B.."INSERT DISK TO BE 
WRITTEN TO:":.K.L.."..HIT .RETURN. TO WR
ITE MENU FILE":. X$.W.Q..1,8,15...V.. "M
ENU",8...{. 1:.......1,8,15......1,A,B$,
C,D......"...".N...."..ERROR STATUS.."..
...."...ERROR #. ";A:.".";B$;".":.".TRAC
K .";C,".SECTOR. "D......"..0=NO ERROR".
H...."..HIT .RETURN. FOR MENU":. X$: 1:.
.Q...."."...F..53281,1:.53280,1:.".....N
OTE: MENU PROGRAM IS STILL RESIDENT."...
P........_E.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL