MENU
FILE INFORMATION
FILENAME(S): MENU
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:23:56
APPEARS ON: 1 disk(s)
FILE HASH
f11f800fe42ee687fbbb6d4a92443e8a753ac08f612e6142d95482905e018cf5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 31 1 | MENU | PRG | DuncanTwain | 10 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2B 08 03 00 8F 20 43 36 34 20 26 20 56 49 |..+.... C64 & VI|
00000010: 43 20 4D 45 4E 55 20 50 52 4F 47 52 41 4D 20 28 |C MENU PROGRAM (|
00000020: 43 29 20 43 53 41 20 31 39 38 33 00 3D 08 04 00 |C) CSA 1983.=...|
00000030: 9E 36 35 35 31 31 3A 9E 36 35 35 31 37 00 72 08 |.65511:.65517.r.|
00000040: 05 00 8B C2 28 37 38 31 29 B1 33 30 A7 97 35 36 |....(781).30..56|
00000050: 2C 31 36 30 3A 97 35 35 2C 30 3A 97 35 33 32 38 |,160:.55,0:.5328|
00000060: 31 2C 36 3A 97 35 33 32 38 32 2C 31 34 3A 99 22 |1,6:.53282,14:."|
00000070: 9A 22 00 90 08 06 00 8B C2 28 37 38 31 29 B3 33 |.".......(781).3|
00000080: 30 A7 97 33 36 38 37 39 2C 32 37 3A 99 22 1F 22 |0..36879,27:."."|
00000090: 00 DA 08 07 00 9C 3A 53 57 B2 C2 28 37 38 31 29 |......:SW..(781)|
000000A0: 3A 53 52 B2 53 57 AB 32 3A 53 4C B2 C2 28 37 38 |:SR.SW.2:SL..(78|
000000B0: 32 29 3A 44 4E 24 B2 22 13 11 11 11 11 11 11 11 |2):DN$."........|
000000C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000000D0: 11 11 11 11 11 11 11 11 11 22 00 26 09 08 00 4C |.........".&...L|
000000E0: 4C 24 B2 22 20 DD 22 AA C9 28 22 20 20 20 20 20 |L$." ."..(" |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 20 20 DD 22 2C 53 57 AB 33 29 3A 53 42 B2 AB 28 | .",SW.3):SB..(|
00000120: 53 4C B1 32 33 29 00 3C 09 0A 00 8C 3A 86 44 24 |SL.23).<....:.D$|
00000130: 28 32 30 2C 31 29 3A 87 20 4D 4E 24 00 74 09 14 |(20,1):. MN$.t..|
00000140: 00 87 44 24 28 4E 2C 30 29 3A 8B 44 24 28 4E 2C |..D$(N,0):.D$(N,|
00000150: 30 29 B3 B1 22 45 4E 44 22 A7 8B 4E B3 39 AA 53 |0).."END"..N.9.S|
00000160: 42 A7 87 44 24 28 4E 2C 31 29 3A 4E B2 4E AA 31 |B..D$(N,1):N.N.1|
00000170: 3A 89 32 30 00 8D 09 64 00 4E B2 4E AB 31 3A 4F |:.20...d.N.N.1:O|
00000180: 4A B2 30 3A 4D B2 31 31 AB 4E AA 53 42 00 C2 09 |J.0:M.11.N.SB...|
00000190: 69 00 4A B2 30 3A 8D 31 30 30 30 3A 8D 34 30 30 |i.J.0:.1000:.400|
000001A0: 30 3A 8D 31 30 33 30 3A 81 49 B2 30 A4 4E 3A 99 |0:.1030:.I.0.N:.|
000001B0: 22 1D DD 22 44 24 28 49 2C 30 29 A3 53 52 29 22 |".."D$(I,0).SR)"|
000001C0: DD 22 00 D0 09 6A 00 8B 49 B3 4E A7 99 4C 4C 24 |."...j..I.N..LL$|
000001D0: 00 FD 09 6B 00 82 3A 8D 31 30 34 30 3A 99 22 13 |...k..:.1040:.".|
000001E0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000001F0: 11 11 11 22 3A 8B 53 42 A7 99 22 11 22 00 24 0A |...":.SB..".".$.|
00000200: 6C 00 99 A3 28 53 57 AB 32 30 29 AD 32 29 22 53 |l...(SW.20).2)"S|
00000210: 50 41 43 45 20 43 48 41 4E 47 45 53 20 4F 50 54 |PACE CHANGES OPT|
00000220: 49 4F 4E 22 00 4C 0A 6D 00 99 A3 28 53 57 AB 32 |ION".L.m...(SW.2|
00000230: 31 29 AD 32 29 22 52 45 54 55 52 4E 20 53 45 4C |1).2)"RETURN SEL|
00000240: 45 43 54 53 20 4F 50 54 49 4F 4E 22 00 6F 0A 6E |ECTS OPTION".o.n|
00000250: 00 99 A3 28 53 57 AB 31 33 29 AD 32 29 22 46 31 |...(SW.13).2)"F1|
00000260: 20 20 45 58 49 54 53 20 20 4D 45 4E 55 22 3B 00 | EXITS MENU";.|
00000270: A7 0A 78 00 99 C8 28 44 4E 24 2C 4F 4A AA 4F 4A |..x...(DN$,OJ.OJ|
00000280: AA 4D 29 22 1D 1D 22 44 24 28 4F 4A 2C 30 29 C8 |.M)".."D$(OJ,0).|
00000290: 28 44 4E 24 2C 4A AA 4A AA 4D 29 22 12 1D 1D 22 |(DN$,J.J.M)"..."|
000002A0: 44 24 28 4A 2C 30 29 00 D1 0A 8C 00 A1 43 24 3A |D$(J,0)......C$:|
000002B0: 8B 43 24 B2 22 20 22 A7 4F 4A B2 4A 3A 4A B2 AB |.C$." ".OJ.J:J..|
000002C0: 28 4A B3 B1 4E 29 AC 28 4A AA 31 29 3A 89 31 32 |(J..N).(J.1):.12|
000002D0: 30 00 E4 0A 91 00 8B 43 24 B2 22 85 22 A7 99 22 |0......C$.".".."|
000002E0: 93 22 3A 80 00 F7 0A 96 00 8B 43 24 B3 B1 C7 28 |.":.......C$...(|
000002F0: 31 33 29 A7 31 34 30 00 0D 0B 9B 00 8D 31 30 30 |13).140......100|
00000300: 30 3A 99 22 11 11 22 3A 8B 53 42 A7 99 00 26 0B |0:."..":.SB...&.|
00000310: A0 00 8D 31 30 33 30 3A 99 4C 4C 24 3A 99 4C 4C |...1030:.LL$:.LL|
00000320: 24 3A 99 4C 4C 24 00 4D 0B A2 00 99 22 20 DD 59 |$:.LL$.M...." .Y|
00000330: 4F 55 20 48 41 56 45 20 53 45 4C 45 43 54 45 44 |OU HAVE SELECTED|
00000340: 22 A3 53 52 29 22 DD 22 3A 99 4C 4C 24 00 6E 0B |".SR)".":.LL$.n.|
00000350: A3 00 99 22 20 DD 12 22 44 24 28 4A 2C 30 29 22 |..." .."D$(J,0)"|
00000360: 92 22 A3 53 52 29 22 DD 22 3A 99 4C 4C 24 00 94 |.".SR)".":.LL$..|
00000370: 0B A5 00 99 22 20 DD 49 53 20 54 48 49 53 20 43 |...." .IS THIS C|
00000380: 4F 52 52 45 43 54 3F 22 A3 53 52 29 22 DD 22 3A |ORRECT?".SR)".":|
00000390: 99 4C 4C 24 00 CA 0B A6 00 99 22 20 DD 50 52 45 |.LL$......" .PRE|
000003A0: 53 53 20 27 59 27 20 4F 52 20 27 4E 27 22 A3 53 |SS 'Y' OR 'N'".S|
000003B0: 52 29 22 DD 22 3A 99 4C 4C 24 3A 99 4C 4C 24 3A |R)".":.LL$:.LL$:|
000003C0: 99 4C 4C 24 3A 8D 31 30 34 30 00 EF 0B AA 00 A1 |.LL$:.1040......|
000003D0: 43 24 3A 8B 43 24 B3 B1 22 59 22 A7 91 31 AB 28 |C$:.C$.."Y"..1.(|
000003E0: 43 24 B2 22 4E 22 29 89 31 37 30 2C 31 30 35 00 |C$."N").170,105.|
000003F0: 21 0C C8 00 9F 31 35 2C 38 2C 31 35 3A 97 37 38 |!....15,8,15:.78|
00000400: 31 2C 31 35 3A 9E 36 35 34 38 31 3A 45 52 B2 C2 |1,15:.65481:ER..|
00000410: 28 37 38 33 29 3A 53 B2 53 54 3A 8B 53 A7 34 30 |(783):S.ST:.S.40|
00000420: 30 00 3C 0C D2 00 9F 20 35 2C 38 2C 35 2C 44 24 |0.<.... 5,8,5,D$|
00000430: 28 4A 2C 31 29 AA 22 2C 50 2C 52 22 00 71 0C DC |(J,1).",P,R".q..|
00000440: 00 84 31 35 2C 45 24 2C 45 4E 24 2C 54 24 2C 42 |..15,E$,EN$,T$,B|
00000450: 24 3A 45 B2 C5 28 45 24 29 3A 8B 45 A7 41 24 B2 |$:E..(E$):.E.A$.|
00000460: 22 57 4F 4E 27 54 20 4C 4F 41 44 22 3A 89 34 31 |"WON'T LOAD":.41|
00000470: 30 00 8A 0C DE 00 99 22 93 4C 4F 41 44 49 4E 47 |0......".LOADING|
00000480: 20 22 3B 44 24 28 4A 2C 30 29 00 A0 0C E1 00 41 | ";D$(J,0).....A|
00000490: 24 B2 44 24 28 4A 2C 31 29 3A A0 35 3A A0 31 35 |$.D$(J,1):.5:.15|
000004A0: 00 D9 0C E6 00 4B B2 36 33 31 3A 97 4B 2C 37 36 |.....K.631:.K,76|
000004B0: 3A 97 4B AA 31 2C 32 30 37 3A 97 4B AA 32 2C 36 |:.K.1,207:.K.2,6|
000004C0: 35 3A 97 4B AA 33 2C 33 36 3A 97 4B AA 34 2C 34 |5:.K.3,36:.K.4,4|
000004D0: 34 3A 97 4B AA 35 2C 35 36 00 08 0D F0 00 97 4B |4:.K.5,56......K|
000004E0: AA 36 2C 31 33 3A 97 4B AA 37 2C 38 32 3A 97 4B |.6,13:.K.7,82:.K|
000004F0: AA 38 2C 32 31 33 3A 97 4B AA 39 2C 31 33 3A 97 |.8,213:.K.9,13:.|
00000500: 31 39 38 2C 31 30 3A 80 00 25 0D 90 01 41 24 B2 |198,10:..%...A$.|
00000510: 22 44 49 53 4B 20 4E 4F 54 20 41 43 43 45 53 53 |"DISK NOT ACCESS|
00000520: 49 42 4C 45 22 00 3F 0D 9A 01 8D 31 30 30 30 3A |IBLE".?....1000:|
00000530: 99 22 11 11 11 11 11 11 22 3A 8B 53 42 A7 99 00 |."......":.SB...|
00000540: 5E 0D A4 01 8D 31 30 33 30 3A 8B 45 B2 36 32 A7 |^....1030:.E.62.|
00000550: 41 24 B2 22 4E 4F 54 20 46 4F 55 4E 44 22 00 83 |A$."NOT FOUND"..|
00000560: 0D A5 01 8B 45 B2 37 34 A7 41 24 B2 22 44 49 53 |....E.74.A$."DIS|
00000570: 4B 45 54 54 45 20 4E 4F 54 20 49 4E 20 44 52 49 |KETTE NOT IN DRI|
00000580: 56 45 22 00 9D 0D AE 01 99 22 20 DD 12 22 44 24 |VE"......" .."D$|
00000590: 28 4A 2C 30 29 A3 53 52 29 22 92 DD 22 00 A6 0D |(J,0).SR)".."...|
000005A0: B0 01 99 4C 4C 24 00 B9 0D B3 01 99 22 20 DD 22 |...LL$......" ."|
000005B0: 41 24 A3 53 52 29 22 DD 22 00 D5 0D C2 01 8D 31 |A$.SR)"."......1|
000005C0: 30 34 30 3A A0 31 35 3A 81 4B B2 30 A4 33 30 30 |040:.15:.K.0.300|
000005D0: 30 3A 82 3A 8A 00 E5 0D F4 01 83 20 22 43 36 34 |0:.:....... "C64|
000005E0: 20 50 41 4B 22 00 01 0E FE 01 83 20 22 46 4C 41 | PAK"...... "FLA|
000005F0: 53 48 20 43 41 52 44 53 22 2C 22 46 4C 41 53 48 |SH CARDS","FLASH|
00000600: 22 00 1C 0E 08 02 83 20 22 53 50 45 45 44 20 52 |"...... "SPEED R|
00000610: 45 41 44 22 2C 22 53 50 45 45 44 22 00 35 0E 12 |EAD","SPEED".5..|
00000620: 02 83 20 22 53 49 47 4E 20 54 41 4C 4B 22 2C 22 |.. "SIGN TALK","|
00000630: 53 49 47 4E 22 00 51 0E 1C 02 83 20 22 57 4F 52 |SIGN".Q.... "WOR|
00000640: 4C 44 20 43 4C 4F 43 4B 22 2C 22 57 4F 52 4C 44 |LD CLOCK","WORLD|
00000650: 22 00 74 0E 26 02 83 20 22 53 54 41 54 45 53 20 |".t.&.. "STATES |
00000660: 26 20 43 41 50 49 54 41 4C 53 22 2C 22 53 54 41 |& CAPITALS","STA|
00000670: 54 45 53 22 00 95 0E 30 02 83 20 22 4D 4F 52 54 |TES"...0.. "MORT|
00000680: 47 41 47 45 20 43 41 4C 43 22 2C 22 4D 4F 52 54 |GAGE CALC","MORT|
00000690: 47 41 47 45 22 00 B0 0E 3A 02 83 20 22 42 49 47 |GAGE"...:.. "BIG|
000006A0: 20 54 49 4D 45 22 2C 22 42 49 47 54 49 4D 45 22 | TIME","BIGTIME"|
000006B0: 00 CD 0E 44 02 83 20 22 43 41 53 48 20 52 45 47 |...D.. "CASH REG|
000006C0: 49 53 54 45 52 22 2C 22 43 41 53 48 22 00 EF 0E |ISTER","CASH"...|
000006D0: 4E 02 83 20 22 4C 49 46 45 20 45 58 50 45 43 54 |N.. "LIFE EXPECT|
000006E0: 41 4E 43 59 22 2C 22 4C 49 46 45 45 58 50 22 00 |ANCY","LIFEEXP".|
000006F0: 15 0F 58 02 83 20 22 50 45 52 50 45 54 55 41 4C |..X.. "PERPETUAL|
00000700: 20 43 41 4C 45 4E 44 41 52 22 2C 22 43 41 4C 45 | CALENDAR","CALE|
00000710: 4E 44 41 52 22 00 21 0F BC 02 83 20 22 45 4E 44 |NDAR".!.... "END|
00000720: 22 00 45 0F C6 02 8F 20 22 45 4E 44 22 20 49 53 |".E.... "END" IS|
00000730: 20 44 41 54 41 20 52 45 41 44 20 54 45 52 4D 49 | DATA READ TERMI|
00000740: 4E 41 54 4F 52 00 66 0F D0 02 8F 20 56 49 43 20 |NATOR.f.... VIC |
00000750: 4D 41 58 20 49 53 20 39 2C 20 36 34 20 4D 41 58 |MAX IS 9, 64 MAX|
00000760: 20 49 53 20 31 30 00 84 0F E8 03 99 22 93 22 A3 | IS 10......".".|
00000770: 28 53 57 AB C3 28 4D 4E 24 29 29 AD 32 29 3B 4D |(SW..(MN$)).2);M|
00000780: 4E 24 3A 8E 00 A6 0F 06 04 99 22 20 D5 22 3B 3A |N$:......." .";:|
00000790: 81 4B B2 35 A4 53 57 3A 99 22 C3 22 3B 3A 82 3A |.K.5.SW:.".";:.:|
000007A0: 99 22 C9 22 3A 8E 00 C8 0F 10 04 99 22 20 CA 22 |.".":......." ."|
000007B0: 3B 3A 81 4B B2 35 A4 53 57 3A 99 22 C3 22 3B 3A |;:.K.5.SW:.".";:|
000007C0: 82 3A 99 22 CB 22 3A 8E 00 EB 0F A0 0F 8B 4E B3 |.:.".":.......N.|
000007D0: 39 A7 99 C8 28 22 11 11 11 11 11 11 11 11 22 2C |9...("........",|
000007E0: 38 AB 4E 29 3B 3A 8B 53 42 A7 99 00 F1 0F AA 0F |8.N);:.SB.......|
000007F0: 8E 00 00 00 20 |.... |
..+.... C64 & VIC MENU PROGRAM (C) CSA 1
983.=....65511:.65517.R....B(781).30..56
,160:.55,0:.53281,6:.53282,14:."."......
B(781).30..36879,27:.".".Z....:SW.B(781)
:SR.SW.2:SL.B(782):DN$."................
.................".&...LL$." .".I("
.",SW.
3):SB..(SL.23).<....:.D$(20,1):. MN$.T..
..D$(N,0):.D$(N,0).."END"..N.9.SB..D$(N,
1):N.N.1:.20...D.N.N.1:OJ.0:M.11.N.SB.B.
I.J.0:.1000:.4000:.1030:.I.0.N:.".."D$(I
,0).SR)".".P.J..I.N..LL$...K..:.1040:.".
...................":.SB..".".$.L...(SW.
20).2)"SPACE CHANGES OPTION".L.M...(SW.2
1).2)"RETURN SELECTS OPTION".O.N...(SW.1
3).2)"F1 EXITS MENU";...X..H(DN$,OJ.OJ
.M)".."D$(OJ,0)H(DN$,J.J.M)"..."D$(J,0).
Q....C$:.C$." ".OJ.J:J..(J..N).(J.1):.12
0......C$."."..".":.......C$..G(13).140.
.....1000:."..":.SB...&. ..1030:.LL$:.LL
$:.LL$.M...." .YOU HAVE SELECTED".SR)"."
:.LL$.N...." .."D$(J,0)".".SR)".":.LL$..
...." .IS THIS CORRECT?".SR)".":.LL$.J..
.." .PRESS 'Y' OR 'N'".SR)".":.LL$:.LL$:
.LL$:.1040......C$:.C$.."Y"..1.(C$."N").
170,105.!.H..15,8,15:.781,15:.65481:ER.B
(783):S.ST:.S.400.<.R.. 5,8,5,D$(J,1).",
P,R".Q....15,E$,EN$,T$,B$:E.E(E$):.E.A$.
"WON'T LOAD":.410......".LOADING ";D$(J,
0). ...A$.D$(J,1): 5: 15.Y...K.631:.K,76
:.K.1,207:.K.2,65:.K.3,36:.K.4,44:.K.5,5
6......K.6,13:.K.7,82:.K.8,213:.K.9,13:.
198,10:..%...A$."DISK NOT ACCESSIBLE".?.
...1000:."......":.SB...^....1030:.E.62.
A$."NOT FOUND"......E.74.A$."DISKETTE NO
T IN DRIVE"......" .."D$(J,0).SR)".."...
...LL$......" ."A$.SR)".".U.B..1040: 15:
.K.0.3000:.:....... "C64 PAK"...... "FLA
SH CARDS","FLASH"...... "SPEED READ","SP
EED".5.... "SIGN TALK","SIGN".Q.... "WOR
LD CLOCK","WORLD".T.&.. "STATES & CAPITA
LS","STATES"...0.. "MORTGAGE CALC","MORT
GAGE"...:.. "BIG TIME","BIGTIME".M.D.. "
CASH REGISTER","CASH"...N.. "LIFE EXPECT
ANCY","LIFEEXP"...X.. "PERPETUAL CALENDA
R","CALENDAR".!.... "END".E.F.. "END" IS
DATA READ TERMINATOR.F.P.. VIC MAX IS 9
, 64 MAX IS 10......".".(SW.C(MN$)).2);M
N$:......." U";:.K.5.SW:."C";:.:."I":..H
...." J";:.K.5.SW:."C";:.:."K":.... ..N.
9..H("........",8.N);:.SB...........
> CLICK IMAGE PREVIEW FOR FULL MODAL