MENU
FILE INFORMATION
FILENAME(S): MENU
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 21:08:56
APPEARS ON: 1 disk(s)
FILE HASH
06b8acbbed26ada4b8555c2c619fbf940892a38f756737a5446219b55402090d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HULPPROGRAM | MENU | PRG | DuncanTwain | 20 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 32 00 86 4C 24 28 31 30 30 29 2C 46 |....2..L$(100),F|
00000010: 54 24 28 31 30 30 29 2C 54 28 35 29 00 26 08 37 |T$(100),T(5).&.7|
00000020: 00 8D 31 30 30 30 00 51 08 3C 00 99 22 05 93 20 |..1000.Q.<..".. |
00000030: 20 20 20 20 20 20 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ..........|
00000040: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE |................|
00000050: 22 00 67 08 46 00 99 22 20 20 20 20 20 20 20 DD |".g.F.." .|
00000060: 22 4C 24 22 92 DD 22 00 91 08 50 00 99 22 20 20 |"L$".."...P.." |
00000070: 20 20 20 20 20 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...........|
00000080: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 11 |................|
00000090: 22 00 BB 08 51 00 99 22 20 20 20 20 20 B0 C0 C0 |"...Q.." ...|
000000A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 00 E5 08 52 00 |..............R.|
000000C0: 99 22 20 20 20 20 20 DD 20 20 20 20 20 20 20 20 |." . |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000E0: 20 20 20 20 DD 00 0F 09 53 00 99 22 20 20 20 20 | ....S.." |
000000F0: 20 DD 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 DD 00 | ..|
00000110: 39 09 54 00 99 22 20 20 20 20 20 DD 20 20 20 20 |9.T.." . |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 20 20 20 20 20 20 DD 00 63 09 55 00 99 22 | ..c.U.."|
00000140: 20 20 20 20 20 DD 20 20 20 20 20 20 20 20 20 20 | . |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160: 20 20 DD 00 8D 09 56 00 99 22 20 20 20 20 20 DD | ....V.." .|
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 DD 00 B7 09 | ....|
00000190: 57 00 99 22 20 20 20 20 20 DD 20 20 20 20 20 20 |W.." . |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 DD 00 E1 09 58 00 99 22 20 20 | ....X.." |
000001C0: 20 20 20 DD 20 20 20 20 20 20 20 20 20 20 20 20 | . |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001E0: DD 00 0B 0A 59 00 99 22 20 20 20 20 20 DD 20 20 |....Y.." . |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000200: 20 20 20 20 20 20 20 20 20 20 DD 00 35 0A 5A 00 | ..5.Z.|
00000210: 99 22 20 20 20 20 20 DD 20 20 20 20 20 20 20 20 |." . |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230: 20 20 20 20 DD 00 5F 0A 5B 00 99 22 20 20 20 20 | .._.[.." |
00000240: 20 DD 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . |
00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD 00 | ..|
00000260: 89 0A 5D 00 99 22 20 20 20 20 20 DD 20 20 20 20 |..].." . |
00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000280: 20 20 20 20 20 20 20 20 DD 00 B3 0A 5E 00 99 22 | ....^.."|
00000290: 20 20 20 20 20 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...........|
000002A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000002B0: C0 C0 BD 00 BD 0A 64 00 8D 31 33 30 30 00 00 0B |......d..1300...|
000002C0: 6E 00 54 B2 B5 28 4D AD 31 30 29 AA 31 AC 31 30 |n.T..(M.10).1.10|
000002D0: 3A 54 28 31 29 B2 31 30 3A 54 28 32 29 B2 32 30 |:T(1).10:T(2).20|
000002E0: 3A 54 28 33 29 B2 33 30 3A 54 28 34 29 B2 34 30 |:T(3).30:T(4).40|
000002F0: 3A 54 28 35 29 B2 35 30 3A 49 B2 31 3A 58 B2 31 |:T(5).50:I.1:X.1|
00000300: 00 18 0B 78 00 8F 49 46 54 28 58 29 3E 4D 54 48 |...x..IFT(X)>MTH|
00000310: 45 4E 54 28 58 29 3D 4D 00 26 0B 79 00 8F 47 4F |ENT(X)=M.&.y..GO|
00000320: 53 55 42 32 35 30 00 33 0B 7A 00 99 22 13 11 11 |SUB250.3.z.."...|
00000330: 11 11 22 00 41 0B 7D 00 81 51 B2 49 A4 54 28 58 |..".A.}..Q.I.T(X|
00000340: 29 00 6B 0B 7E 00 99 22 1D 1D 1D 1D 1D 1D 20 20 |).k.~.."...... |
00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000360: 20 20 20 20 20 20 20 20 20 20 22 00 7E 0B 7F 00 | ".~...|
00000370: 8B 51 B1 4D A7 99 22 91 22 3A 89 31 34 30 00 9B |.Q.M..".":.140..|
00000380: 0B 82 00 99 22 05 91 1D 1D 1D 1D 1D 1D 22 3B 51 |...."........";Q|
00000390: 3B 22 20 20 22 3B 4C 24 28 51 29 00 C8 0B 86 00 |;" ";L$(Q).....|
000003A0: 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000003B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000003C0: 1D 22 46 54 24 28 51 29 00 CE 0B 8C 00 82 00 0B |."FT$(Q)........|
000003D0: 0C C8 00 99 22 13 11 11 11 11 11 11 11 11 11 11 |...."...........|
000003E0: 11 11 11 11 11 11 11 11 11 22 3B A3 37 29 3B 22 |.........";.7);"|
000003F0: 05 57 41 54 20 49 53 20 55 57 20 4B 45 55 5A 45 |.WAT IS UW KEUZE|
00000400: 20 20 20 20 20 9D 9D 9D 9D 22 3B 00 15 0C D2 00 | ....";.....|
00000410: 89 20 35 30 30 00 23 0C DC 00 8B 41 B1 4D A7 89 |. 500.#....A.M..|
00000420: 32 30 30 00 2C 0C E6 00 89 33 30 30 00 6B 0C FA |200.,....300.k..|
00000430: 00 99 22 13 11 11 11 11 22 3A 81 51 B2 31 A4 31 |..".....":.Q.1.1|
00000440: 31 3A 99 22 1D 1D 1D 1D 1D 1D 20 20 20 20 20 20 |1:."...... |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 20 20 20 20 20 20 22 3A 82 3A 8E 00 97 0C 2C 01 | ":.:....,.|
00000470: 99 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 20 20 20 20 22 00 B8 0C 36 01 99 22 1F 91 | "...6.."..|
000004A0: 4C 4F 41 44 22 C7 28 33 34 29 4C 24 28 41 29 C7 |LOAD".(34)L$(A).|
000004B0: 28 33 34 29 22 2C 38 22 00 F3 0C 40 01 97 31 39 |(34)",8"...@..19|
000004C0: 38 2C 39 3A 97 36 33 31 2C 31 33 3A 97 36 33 32 |8,9:.631,13:.632|
000004D0: 2C 35 3A 97 36 33 33 2C 31 33 3A 97 36 33 34 2C |,5:.633,13:.634,|
000004E0: 31 34 37 3A 97 36 33 35 2C 31 33 3A 97 36 33 36 |147:.635,13:.636|
000004F0: 2C 38 32 00 19 0D 4A 01 97 36 33 37 2C 38 35 3A |,82...J..637,85:|
00000500: 97 36 33 38 2C 37 38 3A 97 36 33 39 2C 31 33 3A |.638,78:.639,13:|
00000510: 99 22 91 91 91 91 22 3A 80 00 2E 0D F4 01 41 B2 |."....":......A.|
00000520: 30 3A 41 24 B2 22 22 3A 41 31 24 B2 22 22 00 41 |0:A$."":A1$."".A|
00000530: 0D F9 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 30 |....A$:.A$."".50|
00000540: 35 00 67 0D FE 01 8B 41 24 B2 22 2B 22 A7 8B 51 |5.g....A$."+"..Q|
00000550: B3 4D A7 58 B2 58 AA 31 3A 49 B2 54 28 58 29 AB |.M.X.X.1:I.T(X).|
00000560: 31 30 3A 89 31 32 30 00 77 0D 03 02 8B 41 24 B2 |10:.120.w....A$.|
00000570: 22 2B 22 A7 35 30 30 00 9D 0D 08 02 8B 41 24 B2 |"+".500......A$.|
00000580: 22 2D 22 A7 8B 58 B1 31 A7 58 B2 58 AB 31 3A 49 |"-"..X.1.X.X.1:I|
00000590: B2 54 28 58 29 AB 20 39 3A 89 31 32 30 00 AD 0D |.T(X). 9:.120...|
000005A0: 0D 02 8B 41 24 B2 22 2D 22 A7 35 30 30 00 BB 0D |...A$."-".500...|
000005B0: 0E 02 8B 41 24 B2 22 2A 22 A7 8A 00 F5 0D 12 02 |...A$."*".......|
000005C0: 41 B2 C5 28 41 24 29 3A 8B 41 B3 B2 39 A7 41 31 |A..(A$):.A..9.A1|
000005D0: 24 B2 41 31 24 AA 41 24 3A 99 41 24 3B 3A 8B 41 |$.A1$.A$:.A$;:.A|
000005E0: 24 B2 C7 28 31 33 29 A7 41 B2 C5 28 41 31 24 29 |$..(13).A..(A1$)|
000005F0: 3A 89 32 32 30 00 FE 0D 1C 02 89 35 30 35 00 2A |:.220......505.*|
00000600: 0E E8 03 9F 31 2C 38 2C 30 2C 22 24 22 3A 81 49 |....1,8,0,"$":.I|
00000610: B2 31 A4 33 33 3A A1 23 31 2C 41 24 3A 4C 24 B2 |.1.33:.#1,A$:L$.|
00000620: 4C 24 AA 41 24 3A 82 3A A0 31 00 30 0E ED 03 8E |L$.A$:.:.1.0....|
00000630: 00 54 0E 14 05 9F 31 2C 38 2C 30 2C 22 24 22 3A |.T....1,8,0,"$":|
00000640: A1 23 31 2C 41 24 3A A1 23 31 2C 41 24 3A 8D 36 |.#1,A$:.#1,A$:.6|
00000650: 30 30 30 30 00 6A 0E 78 05 8D 36 30 30 30 30 3A |0000.j.x..60000:|
00000660: 8B 46 4C B2 31 A7 31 37 30 30 00 8E 0E DC 05 4D |.FL.1.1700.....M|
00000670: B2 4D AA 31 3A 4C 24 28 4D 29 B2 42 24 3A 46 54 |.M.1:L$(M).B$:FT|
00000680: 24 28 4D 29 B2 46 54 24 3A 89 31 34 30 30 00 A9 |$(M).FT$:.1400..|
00000690: 0E 40 06 99 22 1D 1D 1D 1D 1D 1D 22 3B 4D 3B 22 |.@.."......";M;"|
000006A0: 20 20 22 3B 4C 24 28 4D 29 00 DC 0E 72 06 99 22 | ";L$(M)...r.."|
000006B0: 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000006C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 |..............."|
000006D0: 46 54 24 28 4D 29 3A 89 31 34 30 30 00 E5 0E A4 |FT$(M):.1400....|
000006E0: 06 A0 31 3A 8E 00 FF 0E 60 EA 42 24 B2 22 22 3A |..1:....`.B$."":|
000006F0: 81 49 B2 31 A4 34 3A A1 23 31 2C 41 24 3A 82 00 |.I.1.4:.#1,A$:..|
00000700: 18 0F 6A EA A1 23 31 2C 41 24 3A 8B 41 24 B2 22 |..j..#1,A$:.A$."|
00000710: 22 A7 46 4C B2 31 3A 8E 00 2D 0F 74 EA 8B 41 24 |".FL.1:..-.t..A$|
00000720: B3 B1 C7 28 33 34 29 A7 36 30 30 31 30 00 38 0F |...(34).60010.8.|
00000730: 7E EA A1 23 31 2C 41 24 00 4C 0F 88 EA 8B 41 24 |~..#1,A$.L....A$|
00000740: B2 C7 28 33 34 29 A7 36 30 30 36 30 00 60 0F 92 |..(34).60060.`..|
00000750: EA 42 24 B2 42 24 AA 41 24 3A 89 36 30 30 33 30 |.B$.B$.A$:.60030|
00000760: 00 7B 0F 9C EA A1 23 31 2C 41 24 3A 8B 41 24 B2 |.{....#1,A$:.A$.|
00000770: C7 28 33 32 29 A7 36 30 30 36 30 00 86 0F A6 EA |.(32).60060.....|
00000780: 46 54 24 B2 41 24 00 AE 0F B0 EA A1 23 31 2C 41 |FT$.A$......#1,A|
00000790: 24 3A 46 54 24 B2 46 54 24 AA 41 24 3A A1 23 31 |$:FT$.FT$.A$:.#1|
000007A0: 2C 41 24 3A 46 54 24 B2 46 54 24 AA 41 24 00 C7 |,A$:FT$.FT$.A$..|
000007B0: 0F BA EA A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 22 |....#1,A$:.A$.."|
000007C0: 22 A7 36 30 30 39 30 00 CD 0F BF EA 8E 00 F2 0F |".60090.........|
000007D0: 18 F6 8F 2A 2A 2A 20 44 45 4C 45 54 45 20 41 4E |...*** DELETE AN|
000007E0: 44 20 53 41 56 45 20 52 4F 55 54 49 4E 45 20 2A |D SAVE ROUTINE *|
000007F0: 2A 2A 00 10 10 1D F6 99 22 93 12 44 45 4C 45 54 |**......"..DELET|
00000800: 45 92 22 3B 3A 85 22 59 2F 4E 2F 2A 22 3B 41 24 |E.";:."Y/N/*";A$|
00000810: 00 22 10 22 F6 8B 41 24 B2 22 59 22 A7 36 33 31 |."."..A$."Y".631|
00000820: 30 30 00 30 10 23 F6 8B 41 24 B2 22 2A 22 A7 80 |00.0.#..A$."*"..|
00000830: 00 4B 10 2C F6 99 22 91 12 53 41 56 45 92 20 20 |.K.,.."..SAVE. |
00000840: 20 20 20 20 20 20 20 20 20 20 22 00 60 10 36 F6 | ".`.6.|
00000850: 85 22 46 49 4C 45 20 4E 41 4D 45 20 22 3B 42 24 |."FILE NAME ";B$|
00000860: 00 6B 10 40 F6 8D 36 33 32 30 30 00 76 10 4A F6 |.k.@..63200.v.J.|
00000870: 89 36 33 30 30 30 00 8B 10 7C F6 85 22 46 49 4C |.63000...|.."FIL|
00000880: 45 20 4E 41 4D 45 20 22 3B 42 24 00 96 10 86 F6 |E NAME ";B$.....|
00000890: 8D 36 33 33 30 30 00 A1 10 90 F6 89 36 33 30 30 |.63300......6300|
000008A0: 30 00 DB 10 E0 F6 99 22 93 11 11 11 53 41 56 45 |0......"....SAVE|
000008B0: 22 3B C7 28 33 34 29 3B 42 24 3B C7 28 33 34 29 |";.(34);B$;.(34)|
000008C0: 3B 22 2C 38 22 3A 97 31 39 38 2C 31 3A 97 36 33 |;",8":.198,1:.63|
000008D0: 31 2C 31 33 3A 99 22 13 22 3A 80 00 08 11 44 F7 |1,13:.".":....D.|
000008E0: 99 22 93 11 11 11 4F 50 45 4E 31 35 2C 38 2C 31 |."....OPEN15,8,1|
000008F0: 35 2C 22 3B C7 28 33 34 29 3B 22 53 30 3A 22 3B |5,";.(34);"S0:";|
00000900: 42 24 3B C7 28 33 34 29 00 22 11 4E F7 97 31 39 |B$;.(34).".N..19|
00000910: 38 2C 31 3A 97 36 33 31 2C 31 33 3A 99 22 13 22 |8,1:.631,13:."."|
00000920: 3A 80 00 00 00 E6 |:..... |
....2..L$(100),FT$(100),T(5).&.7..1000.Q
.<..".. ..........................
".G.F.." ."L$".."...P.." ...
........................"...Q.." ...
..............................R.." .
....S.."
. ..9.T.."
. ..C.U.."
. ....V.
." . ....
W.." . ..
..X.." .
....Y.." .
..5.Z.." .
.._.[.." .
....].." .
....^.." ...................
..............D..1300...N.T..(M.10).1.10
:T(1).10:T(2).20:T(3).30:T(4).40:T(5).50
:I.1:X.1...X..IFT(X)>MTHENT(X)=M.&.Y..GO
SUB250.3.Z..".....".A.}..Q.I.T(X).K.~.."
...... ".~..
.Q.M..".":.140......"........";Q;" ";L$
(Q).H...."..............................
."FT$(Q).N.......H.."...................
.";.7);".WAT IS UW KEUZE ....";...R.
. 500.#....A.M..200.,....300.K....".....
":.Q.1.11:."......
":.:....,..".
"...6.."..LOAD"G(34)L$(A)G
(34)",8"...@..198,9:.631,13:.632,5:.633,
13:.634,147:.635,13:.636,82...J..637,85:
.638,78:.639,13:."....":......A.0:A$."":
A1$."".A....A$:.A$."".505.G....A$."+"..Q
.M.X.X.1:I.T(X).10:.120.W....A$."+".500.
.....A$."-"..X.1.X.X.1:I.T(X). 9:.120...
...A$."-".500......A$."*".......A.E(A$):
.A..9.A1$.A1$.A$:.A$;:.A$.G(13).A.E(A1$)
:.220......505.*....1,8,0,"$":.I.1.33:.#
1,A$:L$.L$.A$:.: 1.0.....T....1,8,0,"$":
.#1,A$:.#1,A$:.60000.J.X..60000:.FL.1.17
00.....M.M.1:L$(M).B$:FT$(M).FT$:.1400..
.@.."......";M;" ";L$(M)...R.."........
......................."FT$(M):.1400....
. 1:....`.B$."":.I.1.4:.#1,A$:....J..#1,
A$:.A$."".FL.1:..-.T..A$..G(34).60010.8.
~..#1,A$.L....A$.G(34).60060.`...B$.B$.A
$:.60030.{....#1,A$:.A$.G(32).60060.....
FT$.A$......#1,A$:FT$.FT$.A$:.#1,A$:FT$.
FT$.A$.G....#1,A$:.A$.."".60090.M.......
...*** DELETE AND SAVE ROUTINE ***......
"..DELETE.";:."Y/N/*";A$."."..A$."Y".631
00.0.#..A$."*"...K.,.."..SAVE.
".`.6.."FILE NAME ";B$.K.@..63200.V.J.
.63000...|.."FILE NAME ";B$......63300..
....63000......"....SAVE";G(34);B$;G(34)
;",8":.198,1:.631,13:.".":....D.."....OP
EN15,8,15,";G(34);"S0:";B$;G(34).".N..19
8,1:.631,13:.".":.....
> CLICK IMAGE PREVIEW FOR FULL MODAL