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 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL