C64 MENU
FILE INFORMATION
FILENAME(S): C64 MENU
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 19:47:16
APPEARS ON: 1 disk(s)
FILE HASH
4355aa0fefe094338813a82e4f68999a13f96fde2c66e3c6fcbc0370ea2d4d3c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A3 1 | C64 MENU | PRG | Curtcool, Frank | 3 | 20 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 34 08 0A 00 97 35 33 32 38 30 2C 36 3A 97 |..4....53280,6:.|
00000010: 35 33 32 38 31 2C 36 3A 86 54 42 24 28 31 35 30 |53281,6:.TB$(150|
00000020: 29 3A 99 22 93 22 C7 28 31 34 29 3A 44 49 B2 38 |):.".".(14):DI.8|
00000030: 3A 43 B2 31 00 71 08 14 00 9F 38 2C 44 49 2C 38 |:C.1.q....8,DI,8|
00000040: 2C 22 3A 20 20 20 44 49 52 45 43 54 4F 52 59 20 |,": DIRECTORY |
00000050: 20 20 22 3A 9F 31 35 2C 44 49 2C 31 35 3A 84 31 | ":.15,DI,15:.1|
00000060: 35 2C 45 4E 24 2C 45 44 24 2C 45 54 24 2C 45 53 |5,EN$,ED$,ET$,ES|
00000070: 24 00 93 08 1E 00 84 38 2C 44 4E 24 3A 8B 45 4E |$......8,DN$:.EN|
00000080: 24 B3 B1 22 30 30 22 A7 A0 38 3A A0 31 35 3A 89 |$.."00"..8:.15:.|
00000090: 33 31 30 00 AB 08 28 00 84 38 2C 54 42 24 28 43 |310...(..8,TB$(C|
000000A0: 29 3A 8B 53 54 B2 36 36 A7 37 30 00 E3 08 32 00 |):.ST.66.70...2.|
000000B0: 8B C6 28 C8 28 54 42 24 28 43 29 2C 31 29 29 B2 |..(.(TB$(C),1)).|
000000C0: 31 30 A7 54 42 24 28 43 29 B2 C9 28 54 42 24 28 |10.TB$(C)..(TB$(|
000000D0: 43 29 2C C3 28 54 42 24 28 43 29 29 AB 31 29 3A |C),.(TB$(C)).1):|
000000E0: 89 35 30 00 F1 08 3C 00 43 B2 43 AA 31 3A 89 34 |.50...<.C.C.1:.4|
000000F0: 30 00 2A 09 46 00 A0 38 3A A0 31 35 3A 4D B2 43 |0.*.F..8:.15:M.C|
00000100: AB 31 3A 54 42 24 28 43 29 B2 22 22 3A 4C 31 24 |.1:TB$(C)."":L1$|
00000110: B2 22 12 22 3A 81 43 B2 31 A4 34 30 3A 4C 31 24 |.".":.C.1.40:L1$|
00000120: B2 4C 31 24 AA 22 20 22 3A 82 00 3E 09 50 00 4C |.L1$." ":..>.P.L|
00000130: 31 24 B2 4C 31 24 AA 22 92 22 3A 41 B2 31 00 71 |1$.L1$.".":A.1.q|
00000140: 09 5A 00 97 35 33 32 38 31 2C 31 3A 99 22 93 1F |.Z..53281,1:."..|
00000150: 22 3B 3A 81 43 B2 31 A4 34 3A 99 4C 31 24 3B 3A |";:.C.1.4:.L1$;:|
00000160: 82 3A 81 43 B2 31 A4 32 3A 99 22 1F 22 4C 31 24 |.:.C.1.2:."."L1$|
00000170: 3B 00 7D 09 5F 00 82 3A 99 22 13 22 3B 00 C2 09 |;.}._..:.".";...|
00000180: 64 00 99 A6 38 29 22 12 1F C4 49 52 45 43 54 4F |d...8)"...IRECTO|
00000190: 52 59 20 C1 53 53 49 53 54 41 4E 43 45 20 56 36 |RY .SSISTANCE V6|
000001A0: 34 22 A6 31 30 29 22 28 43 29 31 39 38 32 20 20 |4".10)"(C)1982 |
000001B0: C3 CF CD CD CF C4 CF D2 C5 A0 C2 D5 D3 C9 CE C5 |................|
000001C0: 22 3B 00 02 0A 69 00 99 22 D3 D3 A0 CD C1 C3 C8 |";...i..".......|
000001D0: C9 CE C5 D3 22 A6 31 31 29 22 C1 55 54 48 4F 52 |....".11)".UTHOR|
000001E0: 3A 20 CD 49 43 48 41 45 4C 20 D3 43 48 41 46 46 |: .ICHAEL .CHAFF|
000001F0: 22 A6 35 37 29 22 1C 22 44 4E 24 A6 38 29 4C 31 |".57)"."DN$.8)L1|
00000200: 24 3B 00 3F 0A 78 00 81 43 B2 41 A4 41 AA 31 34 |$;.?.x..C.A.A.14|
00000210: 3A 99 22 12 22 C9 28 22 20 20 20 20 22 AA C4 28 |:.".".(" "..(|
00000220: 43 29 2C 35 29 22 92 20 1F 22 54 42 24 28 43 29 |C),5)". ."TB$(C)|
00000230: A6 32 39 AB C3 28 54 42 24 28 43 29 29 29 3B 00 |.29..(TB$(C)));.|
00000240: 57 0A 82 00 99 22 1C 12 20 20 20 20 20 22 3B 3A |W....".. ";:|
00000250: 82 3A 99 4C 31 24 3B 00 7B 0A 87 00 81 41 B2 31 |.:.L1$;.{....A.1|
00000260: A4 32 3A 99 22 1F 22 4C 31 24 3B 3A 82 3A 99 C8 |.2:."."L1$;:.:..|
00000270: 28 4C 31 24 2C 34 30 29 22 91 22 00 BA 0A 8C 00 |(L1$,40)".".....|
00000280: 99 A6 39 29 22 12 91 91 C6 31 20 3D 20 43 4F 4E |..9)"....1 = CON|
00000290: 54 49 4E 55 45 20 4C 49 53 54 49 4E 47 22 A6 31 |TINUE LISTING".1|
000002A0: 39 29 22 C6 33 20 3D 20 43 52 45 41 54 45 20 44 |9)".3 = CREATE D|
000002B0: 49 52 45 43 54 4F 52 59 22 3B 00 F9 0A 96 00 99 |IRECTORY";......|
000002C0: A6 31 39 29 22 C6 35 20 3D 20 45 58 49 54 20 50 |.19)".5 = EXIT P|
000002D0: 52 4F 47 52 41 4D 1F 13 22 3A 97 32 30 32 33 2C |ROGRAM..":.2023,|
000002E0: 31 36 30 3A 97 35 36 32 39 35 2C 36 3A 97 31 39 |160:.56295,6:.19|
000002F0: 38 2C 30 3A 42 24 B2 22 22 00 0C 0B A0 00 A1 41 |8,0:B$.""......A|
00000300: 24 3A 8B 41 24 B2 22 22 A7 31 36 30 00 1E 0B AA |$:.A$."".160....|
00000310: 00 8B C6 28 41 24 29 B2 31 33 A7 32 36 30 00 3B |...(A$).13.260.;|
00000320: 0B B4 00 8B 41 24 B2 22 85 22 A7 32 34 30 3A 8F |....A$.".".240:.|
00000330: 22 20 46 31 20 2A 2A 2A 2A 2A 2A 00 58 0B BE 00 |" F1 ******.X...|
00000340: 8B 41 24 B2 22 86 22 A7 33 30 30 3A 8F 22 20 46 |.A$.".".300:." F|
00000350: 33 20 2A 2A 2A 2A 2A 2A 00 89 0B C8 00 8B 41 24 |3 ******......A$|
00000360: B2 22 87 22 A7 97 35 33 32 38 30 2C 33 3A 99 22 |."."..53280,3:."|
00000370: 93 11 11 11 1F 52 55 4E 13 22 3A 80 3A 8F 22 20 |.....RUN.":.:." |
00000380: 46 35 20 2A 2A 2A 2A 2A 2A 00 B7 0B D2 00 8B C6 |F5 ******.......|
00000390: 28 41 24 29 B2 32 30 A7 42 24 B2 22 22 3A 99 22 |(A$).20.B$."":."|
000003A0: 13 11 11 11 11 1C 12 20 20 20 92 22 3A 42 24 B2 |....... .":B$.|
000003B0: 22 22 3A 89 31 36 30 00 D6 0B DC 00 8B 41 24 B3 |"":.160......A$.|
000003C0: 22 30 22 B0 41 24 B1 22 39 22 B0 C3 28 42 24 29 |"0".A$."9"..(B$)|
000003D0: B2 33 A7 31 36 30 00 F4 0B E6 00 42 24 B2 42 24 |.3.160.....B$.B$|
000003E0: AA 41 24 3A 99 22 13 11 11 11 11 1F 22 42 24 3A |.A$:."......"B$:|
000003F0: 89 31 36 30 00 05 0C F0 00 8B 43 B1 4D A7 41 B2 |.160......C.M.A.|
00000400: 31 3A 89 39 30 00 11 0C FA 00 41 B2 43 3A 89 39 |1:.90.....A.C:.9|
00000410: 30 00 45 0C 04 01 8B C5 28 42 24 29 B1 4D A7 99 |0.E.....(B$).M..|
00000420: 22 13 11 11 11 11 1F 3F 3F 3F 22 3A 81 43 B2 31 |"......???":.C.1|
00000430: A4 31 35 30 30 3A 82 3A 41 24 B2 C7 28 32 30 29 |.1500:.:A$..(20)|
00000440: 3A 89 32 31 30 00 83 0C 0E 01 97 35 33 32 38 31 |:.210......53281|
00000450: 2C 36 3A 97 35 33 32 38 30 2C 31 34 3A 99 22 92 |,6:.53280,14:.".|
00000460: 93 11 11 11 05 8E 4C 4F 41 44 22 C7 28 33 34 29 |......LOAD".(34)|
00000470: 54 42 24 28 C5 28 42 24 29 29 C7 28 33 34 29 22 |TB$(.(B$)).(34)"|
00000480: 2C 38 22 00 B1 0C 18 01 8F 20 20 20 50 52 49 4E |,8"...... PRIN|
00000490: 54 52 49 47 48 54 24 28 53 54 52 24 28 44 49 29 |TRIGHT$(STR$(DI)|
000004A0: 2C 4C 45 4E 28 53 54 52 24 28 44 49 29 29 2D 31 |,LEN(STR$(DI))-1|
000004B0: 29 00 E4 0C 22 01 99 22 13 22 3A 97 31 39 38 2C |)..."..".":.198,|
000004C0: 34 3A 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 38 |4:.631,13:.632,8|
000004D0: 32 3A 97 36 33 33 2C 32 31 33 3A 97 36 33 34 2C |2:.633,213:.634,|
000004E0: 31 33 3A 80 00 F6 0C 2C 01 99 22 13 11 11 11 11 |13:....,..".....|
000004F0: 1F 57 41 49 54 22 00 2A 0D 36 01 9F 38 2C 44 49 |.WAIT".*.6..8,DI|
00000500: 2C 30 2C 22 24 30 22 3A 81 43 B2 31 A4 38 3A A1 |,0,"$0":.C.1.8:.|
00000510: 23 38 2C 41 24 3A 82 3A 43 B2 31 3A 44 4E 24 B2 |#8,A$:.:C.1:DN$.|
00000520: 22 22 3A 81 43 B2 31 A4 31 36 00 64 0D 40 01 A1 |"":.C.1.16.d.@..|
00000530: 23 38 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA 41 24 |#8,A$:DN$.DN$.A$|
00000540: 3A 82 3A A1 23 38 2C 41 24 3A A1 23 38 2C 41 24 |:.:.#8,A$:.#8,A$|
00000550: 3A 44 4E 24 B2 44 4E 24 AA 22 20 20 22 3A A1 23 |:DN$.DN$." ":.#|
00000560: 38 2C 41 24 00 A3 0D 4A 01 44 4E 24 B2 44 4E 24 |8,A$...J.DN$.DN$|
00000570: AA 41 24 3A A1 23 38 2C 41 24 3A 44 4E 24 B2 44 |.A$:.#8,A$:DN$.D|
00000580: 4E 24 AA 41 24 3A A1 23 38 2C 41 24 3A A1 23 38 |N$.A$:.#8,A$:.#8|
00000590: 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA 22 20 20 22 |,A$:DN$.DN$." "|
000005A0: AA 41 24 00 C4 0D 54 01 A1 23 38 2C 41 24 3A 44 |.A$...T..#8,A$:D|
000005B0: 4E 24 B2 44 4E 24 AA 41 24 3A A1 23 38 2C 41 24 |N$.DN$.A$:.#8,A$|
000005C0: 3A 43 B2 31 00 E6 0D 5E 01 81 41 B2 31 A4 34 3A |:C.1...^..A.1.4:|
000005D0: A1 23 38 2C 41 24 3A 82 3A 50 4E 24 B2 22 22 3A |.#8,A$:.:PN$."":|
000005E0: 54 59 24 B2 22 22 00 FC 0D 68 01 A1 23 38 2C 41 |TY$.""...h..#8,A|
000005F0: 24 3A 8B 53 54 B3 B1 30 A7 34 35 30 00 0B 0E 72 |$:.ST..0.450...r|
00000600: 01 8B 41 24 B2 22 22 A7 34 35 30 00 1E 0E 7C 01 |..A$."".450...|.|
00000610: 8B C6 28 41 24 29 B3 B1 33 34 A7 33 36 30 00 44 |..(A$)..34.360.D|
00000620: 0E 86 01 A1 23 38 2C 41 24 3A 8B C6 28 41 24 29 |....#8,A$:..(A$)|
00000630: B3 B1 33 34 A7 50 4E 24 B2 50 4E 24 AA 41 24 3A |..34.PN$.PN$.A$:|
00000640: 89 33 39 30 00 5D 0E 90 01 A1 23 38 2C 41 24 3A |.390.]....#8,A$:|
00000650: 8B C6 28 41 24 29 B2 33 32 A7 34 30 30 00 7F 0E |..(A$).32.400...|
00000660: 9A 01 54 59 24 B2 54 59 24 AA 41 24 3A A1 23 38 |..TY$.TY$.A$:.#8|
00000670: 2C 41 24 3A 8B 41 24 B3 B1 22 22 A7 34 31 30 00 |,A$:.A$.."".410.|
00000680: 98 0E A4 01 8B C8 28 54 59 24 2C 33 29 B3 B1 22 |......(TY$,3).."|
00000690: 50 52 47 22 A7 33 35 30 00 AE 0E AE 01 8B C8 28 |PRG".350.......(|
000006A0: 50 4E 24 2C 31 29 B2 22 20 22 A7 33 35 30 00 CD |PN$,1)." ".350..|
000006B0: 0E B8 01 54 42 24 28 43 29 B2 50 4E 24 3A 43 B2 |...TB$(C).PN$:C.|
000006C0: 43 AA 31 3A 8B 53 54 B2 30 A7 33 35 30 00 F6 0E |C.1:.ST.0.350...|
000006D0: C2 01 A0 38 3A 9F 31 35 2C 44 49 2C 31 35 2C 22 |...8:.15,DI,15,"|
000006E0: 53 3A 20 20 20 44 49 52 45 43 54 4F 52 59 20 20 |S: DIRECTORY |
000006F0: 20 22 3A A0 31 35 00 36 0F CC 01 5A 24 B2 22 DA | ":.15.6...Z$.".|
00000700: DA DA DA DA DA DA DA DA DA DA DA DA DA DA DA 22 |..............."|
00000710: 3A 9F 38 2C 44 49 2C 38 2C 22 3A 20 20 20 44 49 |:.8,DI,8,": DI|
00000720: 52 45 43 54 4F 52 59 20 20 20 2C 53 2C 57 22 3A |RECTORY ,S,W":|
00000730: 98 38 2C 44 4E 24 00 61 0F D6 01 81 41 B2 31 A4 |.8,DN$.a....A.1.|
00000740: 43 AB 31 3A 43 24 B2 5A 24 3A 81 42 B2 31 A4 43 |C.1:C$.Z$:.B.1.C|
00000750: AB 31 3A 8B 43 24 B3 54 42 24 28 42 29 A7 34 39 |.1:.C$.TB$(B).49|
00000760: 30 00 73 0F E0 01 43 24 B2 54 42 24 28 42 29 3A |0.s...C$.TB$(B):|
00000770: 44 B2 42 00 94 0F EA 01 82 3A 98 38 2C 43 24 3A |D.B......:.8,C$:|
00000780: 54 42 24 28 44 29 B2 5A 24 3A 82 3A A0 38 3A 9C |TB$(D).Z$:.:.8:.|
00000790: 3A 89 31 30 00 00 00 B2 9F |:.10..... |
..4....53280,6:.53281,6:.TB$(150):."."G(
14):DI.8:C.1.Q....8,DI,8,": DIRECTORY
":.15,DI,15:.15,EN$,ED$,ET$,ES$......8
,DN$:.EN$.."00". 8: 15:.310...(..8,TB$(C
):.ST.66.70...2..F(H(TB$(C),1)).10.TB$(C
).I(TB$(C),C(TB$(C)).1):.50...<.C.C.1:.4
0.*.F. 8: 15:M.C.1:TB$(C)."":L1$.".":.C.
1.40:L1$.L1$." ":..>.P.L1$.L1$.".":A.1.Q
.Z..53281,1:."..";:.C.1.4:.L1$;:.:.C.1.2
:."."L1$;.}._..:.".";.B.D...8)"..DIRECTO
RY ASSISTANCE V64".10)"(C)1982 COMMODOR
E BUSINE";...I.."SS MACHINES".11)"AUTHOR
: MICHAEL SCHAFF".57)"."DN$.8)L1$;.?.X..
C.A.A.14:."."I(" ".D(C),5)". ."TB$(C)
.29.C(TB$(C)));.W....".. ";:.:.L1$;.
{....A.1.2:."."L1$;:.:.H(L1$,40)".".....
..9)"...F1 = CONTINUE LISTING".19)"F3 =
CREATE DIRECTORY";.......19)"F5 = EXIT P
ROGRAM..":.2023,160:.56295,6:.198,0:B$."
"... ..A$:.A$."".160......F(A$).13.260.;
....A$.".".240:." F1 ******.X....A$.".".
300:." F3 ******...H..A$."."..53280,3:."
.....RUN.":.:." F5 ******...R..F(A$).20.
B$."":."....... .":B$."":.160.V....A$.
"0".A$."9".C(B$).3.160.....B$.B$.A$:."..
...."B$:.160......C.M.A.1:.90.....A.C:.9
0.E....E(B$).M.."......???":.C.1.1500:.:
A$.G(20):.210......53281,6:.53280,14:.".
......LOAD"G(34)TB$(E(B$))G(34)",8".....
. PRINTRIGHT$(STR$(DI),LEN(STR$(DI))-1
)..."..".":.198,4:.631,13:.632,82:.633,2
13:.634,13:....,.."......WAIT".*.6..8,DI
,0,"$0":.C.1.8:.#8,A$:.:C.1:DN$."":.C.1.
16.D.@..#8,A$:DN$.DN$.A$:.:.#8,A$:.#8,A$
:DN$.DN$." ":.#8,A$...J.DN$.DN$.A$:.#8,
A$:DN$.DN$.A$:.#8,A$:.#8,A$:DN$.DN$." "
.A$.D.T..#8,A$:DN$.DN$.A$:.#8,A$:C.1...^
..A.1.4:.#8,A$:.:PN$."":TY$.""...H..#8,A
$:.ST..0.450...R..A$."".450...|..F(A$)..
34.360.D....#8,A$:.F(A$)..34.PN$.PN$.A$:
.390.]....#8,A$:.F(A$).32.400....TY$.TY
$.A$:.#8,A$:.A$.."".410......H(TY$,3).."
PRG".350......H(PN$,1)." ".350.M...TB$(C
).PN$:C.C.1:.ST.0.350...B. 8:.15,DI,15,"
S: DIRECTORY ": 15.6.L.Z$."ZZZZZZZZZ
ZZZZZZZ":.8,DI,8,": DIRECTORY ,S,W":
.8,DN$.A.V..A.1.C.1:C$.Z$:.B.1.C.1:.C$.T
B$(B).490.S...C$.TB$(B):D.B......:.8,C$:
TB$(D).Z$:.: 8:.:.10.....
> CLICK IMAGE PREVIEW FOR FULL MODAL