MENU 64
FILE INFORMATION
FILENAME(S): MENU 64
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 18:12:44
APPEARS ON: 1 disk(s)
FILE HASH
1cebf4adff9f66353db39937bd009e9a3556aa4b4106901a62474bbd81b64488
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RERUN PROD PAK | MENU 64 | PRG | Sailor, Ganheden | 17 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 01 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..).... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 08 02 00 8F 20 |*********.Q.... | 00000030: 2A 20 20 20 20 20 20 20 20 20 27 41 55 54 4F 20 |* 'AUTO | 00000040: 4D 45 4E 55 27 20 20 20 20 20 20 20 20 20 20 20 |MENU' | 00000050: 2A 00 79 08 03 00 8F 20 2A 20 52 45 41 44 53 20 |*.y.... * READS | 00000060: 44 49 52 45 43 54 4F 52 59 20 26 20 41 55 54 4F |DIRECTORY & AUTO| 00000070: 20 4C 4F 41 44 53 20 20 2A 00 A1 08 04 00 8F 20 | LOADS *...... | 00000080: 2A 20 50 52 4F 47 52 41 4D 20 53 45 4C 45 43 54 |* PROGRAM SELECT| 00000090: 45 44 20 42 59 20 54 48 45 20 55 53 45 52 20 20 |ED BY THE USER | 000000A0: 2A 00 C9 08 05 00 8F 20 2A 20 20 20 20 20 20 20 |*...... * | 000000B0: 20 20 20 20 20 20 42 59 20 20 20 20 20 20 20 20 | BY | 000000C0: 20 20 20 20 20 20 20 20 2A 00 F1 08 06 00 8F 20 | *...... | 000000D0: 2A 20 4A 4F 45 20 57 2E 20 52 4F 43 4B 45 20 20 |* JOE W. ROCKE | 000000E0: 20 20 20 20 20 20 20 20 37 2F 32 37 2F 38 34 20 | 7/27/84 | 000000F0: 2A 00 19 09 07 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...... ********| 00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2F 09 0A 00 97 35 |*********./....5| 00000120: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 |3280,0:.53281,0.| 00000130: 4C 09 14 00 86 20 4E 24 28 31 30 30 29 3A 43 58 |L.... N$(100):CX| 00000140: B2 35 34 32 37 32 3A 99 20 22 93 22 00 57 09 1E |.54272:. ".".W..| 00000150: 00 99 22 93 81 11 22 00 89 09 28 00 58 24 B2 22 |.."..."...(.X$."| 00000160: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 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 22 00 9A 09 32 00 81 58 | "...2..X| 00000190: B2 31 A4 35 3A 99 58 24 3A 82 00 AE 09 3C 00 99 |.1.5:.X$:....<..| 000001A0: 22 13 1E 22 3A 99 20 C7 28 31 31 37 29 3B 00 C8 |"..":. .(117);..| 000001B0: 09 46 00 81 20 58 B2 31 20 A4 20 33 38 3A 99 C7 |.F.. X.1 . 38:..| 000001C0: 28 31 30 30 29 3B 3A 82 00 DF 09 50 00 99 C7 28 |(100);:....P...(| 000001D0: 31 30 35 29 3B 3A 81 20 58 B2 31 20 A4 20 35 00 |105);:. X.1 . 5.| 000001E0: 01 0A 5A 00 99 C7 28 31 30 33 29 A6 33 38 29 C7 |..Z...(103).38).| 000001F0: 28 31 30 34 29 22 20 22 C7 28 31 35 37 29 3B 3A |(104)" ".(157);:| 00000200: 82 00 2C 0A 64 00 99 C7 28 31 30 36 29 3B 3A 81 |..,.d...(106);:.| 00000210: 20 58 B2 31 20 A4 20 33 38 3A 99 C7 28 31 30 32 | X.1 . 38:..(102| 00000220: 29 3B 3A 82 3A 99 C7 28 31 30 37 29 00 4C 0A 6E |);:.:..(107).L.n| 00000230: 00 99 22 13 22 A3 31 34 29 22 12 11 11 11 2A 20 |..".".14)"....* | 00000240: 41 55 54 4F 20 4D 45 4E 55 20 2A 22 00 6A 0A 78 |AUTO MENU *".j.x| 00000250: 00 99 A3 31 32 29 22 9E 52 45 41 44 49 4E 47 20 |...12)".READING | 00000260: 44 49 52 45 43 54 4F 52 59 22 00 8C 0A 81 00 8F |DIRECTORY"......| 00000270: 20 2D 2D 2D 20 52 45 41 44 20 44 49 53 4B 20 44 | --- READ DISK D| 00000280: 49 52 45 43 54 4F 52 59 20 2D 2D 2D 00 9B 0A 82 |IRECTORY ---....| 00000290: 00 9F 31 2C 38 2C 30 2C 22 24 22 00 B1 0A 8C 00 |..1,8,0,"$".....| 000002A0: A1 23 31 2C 42 24 3A 8B 53 54 B3 B1 30 A7 32 36 |.#1,B$:.ST..0.26| 000002B0: 30 00 DB 0A 95 00 8F 20 2D 2D 2D 20 4C 49 4E 45 |0...... --- LINE| 000002C0: 20 31 35 30 20 4C 49 4D 49 54 53 20 54 4F 20 32 | 150 LIMITS TO 2| 000002D0: 36 20 46 49 4C 45 53 20 2D 2D 2D 00 EA 0A 96 00 |6 FILES ---.....| 000002E0: 8B 46 B1 B2 32 37 A7 32 36 30 00 FD 0A A0 00 8B |.F..27.260......| 000002F0: 42 24 B3 B1 C7 28 33 34 29 A7 31 34 30 00 16 0B |B$...(34).140...| 00000300: AA 00 4E 24 B2 22 22 3A 99 22 13 22 3A 97 20 32 |..N$."":.".":. 2| 00000310: 31 34 2C 38 3A 99 00 3A 0B B4 00 A1 23 31 2C 42 |14,8:..:....#1,B| 00000320: 24 3A 8B 42 24 B3 B1 C7 28 33 34 29 A7 4E 24 B2 |$:.B$...(34).N$.| 00000330: 4E 24 AA 42 24 3A 89 31 38 30 00 53 0B BE 00 A1 |N$.B$:.180.S....| 00000340: 23 31 2C 42 24 3A 8B 42 24 B2 C7 28 33 32 29 A7 |#1,B$:.B$..(32).| 00000350: 31 39 30 00 86 0B C7 00 8F 20 2D 2D 20 46 4F 4C |190...... -- FOL| 00000360: 4C 4F 57 49 4E 47 20 4C 49 4E 45 53 20 53 4B 49 |LOWING LINES SKI| 00000370: 50 20 54 48 45 20 4C 4F 41 44 49 4E 47 20 46 49 |P THE LOADING FI| 00000380: 4C 45 53 20 2D 2D 00 A0 0B C8 00 8B 4E 24 B2 22 |LES --......N$."| 00000390: 42 4F 4F 54 22 A7 46 B2 46 AB 31 3A 89 32 34 30 |BOOT".F.F.1:.240| 000003A0: 00 BF 0B D2 00 8B 4E 24 B2 22 41 55 54 4F 20 4D |......N$."AUTO M| 000003B0: 45 4E 55 22 A7 46 B2 46 AB 31 3A 89 32 34 30 00 |ENU".F.F.1:.240.| 000003C0: DB 0B DC 00 8B C8 28 4E 24 2C 31 29 B2 22 20 22 |......(N$,1)." "| 000003D0: A7 46 B2 46 AB 31 3A 89 32 34 30 00 EC 0B E6 00 |.F.F.1:.240.....| 000003E0: 4E 24 28 46 29 B2 22 20 22 AA 4E 24 00 03 0C F0 |N$(F)." ".N$....| 000003F0: 00 A1 23 31 2C 42 24 3A 8B 42 24 B3 B1 22 22 A7 |..#1,B$:.B$.."".| 00000400: 32 34 30 00 18 0C FA 00 8B 53 54 B2 30 A7 46 B2 |240......ST.0.F.| 00000410: 46 AA 31 3A 89 31 34 30 00 1F 0C 04 01 A0 31 00 |F.1:.140......1.| 00000420: 45 0C 0D 01 8F 20 2D 20 50 52 49 4E 54 20 46 49 |E.... - PRINT FI| 00000430: 52 53 54 20 43 4F 4C 55 4D 4E 20 4F 46 20 4E 41 |RST COLUMN OF NA| 00000440: 4D 45 53 20 2D 00 68 0C 0E 01 81 45 B2 31 A4 46 |MES -.h....E.1.F| 00000450: AD 32 3A 99 22 99 22 C7 28 36 34 AA 45 29 22 05 |.2:.".".(64.E)".| 00000460: 22 4E 24 28 45 29 3A 82 00 7A 0C 18 01 99 22 13 |"N$(E):..z....".| 00000470: 22 3A 97 32 31 34 2C 38 3A 99 00 A0 0C 21 01 8F |":.214,8:....!..| 00000480: 20 2D 2D 20 54 48 45 4E 20 32 4E 44 20 43 4F 4C | -- THEN 2ND COL| 00000490: 55 4D 4E 20 4F 46 20 4E 41 4D 45 53 20 2D 2D 2D |UMN OF NAMES ---| 000004A0: 00 C9 0C 22 01 81 45 B2 46 AD 32 AA 31 A4 46 3A |..."..E.F.2.1.F:| 000004B0: 99 A6 32 30 29 22 99 22 C7 28 36 34 AA 45 29 22 |..20)".".(64.E)"| 000004C0: 05 22 4E 24 28 45 29 3A 82 00 D5 0C 2C 01 99 22 |."N$(E):....,.."| 000004D0: 13 11 11 11 22 00 F4 0C 36 01 99 A3 31 32 29 22 |...."...6...12)"| 000004E0: 9E 20 50 52 45 53 53 20 4C 45 54 54 45 52 20 4B |. PRESS LETTER K| 000004F0: 45 59 20 22 00 1C 0D 40 01 99 A3 35 29 22 54 4F |EY "...@...5)"TO| 00000500: 20 41 55 54 4F 20 4C 4F 41 44 20 50 52 4F 47 52 | AUTO LOAD PROGR| 00000510: 41 4D 20 53 45 4C 45 43 54 45 44 22 00 30 0D 4A |AM SELECTED".0.J| 00000520: 01 A1 4D 24 3A 8B 4D 24 B2 22 22 A7 20 33 33 30 |..M$:.M$."". 330| 00000530: 00 40 0D 54 01 8B 4D 24 B2 C7 28 31 33 29 A7 8A |.@.T..M$..(13)..| 00000540: 00 5B 0D 5E 01 8B 4D 24 B3 22 41 22 B0 4D 24 B1 |.[.^..M$."A".M$.| 00000550: C7 28 36 34 AA 46 29 A7 33 33 30 00 73 0D 68 01 |.(64.F).330.s.h.| 00000560: 50 B2 C6 28 4D 24 29 AB 36 34 3A 99 22 93 13 11 |P..(M$).64:."...| 00000570: 11 11 22 00 9A 0D 72 01 8B C3 28 4E 24 28 50 29 |.."...r...(N$(P)| 00000580: 29 B1 31 32 A7 4E 24 28 50 29 B2 C8 28 4E 24 28 |).12.N$(P)..(N$(| 00000590: 50 29 2C 31 32 29 AA 22 2A 22 00 B8 0D 7C 01 4E |P),12)."*"...|.N| 000005A0: 24 28 50 29 B2 CA 28 4E 24 28 50 29 2C 32 2C C3 |$(P)..(N$(P),2,.| 000005B0: 28 4E 24 28 50 29 29 29 00 DC 0D 86 01 99 22 4C |(N$(P)))......"L| 000005C0: 4F 41 44 22 C7 28 33 34 29 4E 24 28 50 29 C7 28 |OAD".(34)N$(P).(| 000005D0: 33 34 29 22 2C 38 2C 31 91 91 91 22 00 02 0E 90 |34)",8,1..."....| 000005E0: 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************| 000005F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000600: 2A 2A 00 28 0E 9A 01 8F 20 2A 20 49 46 20 59 4F |**.(.... * IF YO| 00000610: 55 20 4B 4E 4F 57 20 54 48 45 20 50 47 4D 20 49 |U KNOW THE PGM I| 00000620: 53 20 27 4D 4C 27 20 2A 00 4E 0E A4 01 8F 20 2A |S 'ML' *.N.... *| 00000630: 20 54 48 45 20 45 58 41 4D 50 4C 45 20 42 45 4C | THE EXAMPLE BEL| 00000640: 4F 57 20 57 49 4C 4C 20 4C 4F 41 44 20 2A 00 74 |OW WILL LOAD *.t| 00000650: 0E AE 01 8F 20 2A 20 41 4E 44 20 46 49 4C 45 20 |.... * AND FILE | 00000660: 26 20 52 55 4E 20 49 54 2E 20 45 58 41 4D 50 4C |& RUN IT. EXAMPL| 00000670: 45 53 20 2A 00 9A 0E B8 01 8F 20 2A 20 28 33 29 |ES *...... * (3)| 00000680: 20 41 52 45 20 53 48 4F 57 4E 20 42 45 4C 4F 57 | ARE SHOWN BELOW| 00000690: 2E 20 20 20 20 20 20 20 20 2A 00 C0 0E C2 01 8F |. *......| 000006A0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 000006B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006C0: 00 F0 0E CC 01 8B C8 28 4E 24 28 50 29 2C 34 29 |.......(N$(P),4)| 000006D0: B2 22 54 4F 4F 4C 22 A7 41 24 B2 22 53 59 53 36 |."TOOL".A$."SYS6| 000006E0: 34 37 33 38 22 AA C7 28 31 33 29 3A 89 35 30 30 |4738"..(13):.500| 000006F0: 00 29 0F D6 01 8B C8 28 4E 24 28 50 29 2C 31 32 |.).....(N$(P),12| 00000700: 29 B2 22 43 4F 4E 53 54 52 55 43 54 49 4F 2A 22 |)."CONSTRUCTIO*"| 00000710: A7 41 24 B2 22 53 59 53 34 39 31 35 32 22 AA C7 |.A$."SYS49152"..| 00000720: 28 31 33 29 3A 89 35 30 30 00 5A 0F E0 01 8B C8 |(13):.500.Z.....| 00000730: 28 4E 24 28 50 29 2C 35 29 B2 22 55 4C 54 52 41 |(N$(P),5)."ULTRA| 00000740: 22 A7 41 24 B2 22 53 59 53 34 39 31 35 32 22 AA |".A$."SYS49152".| 00000750: C7 28 31 33 29 3A 89 35 30 30 00 6D 0F EA 01 41 |.(13):.500.m...A| 00000760: 24 B2 22 52 55 4E 22 AA C7 28 31 33 29 00 A2 0F |$."RUN"..(13)...| 00000770: F4 01 97 36 33 31 2C 31 33 3A 81 42 B2 31 A4 C3 |...631,13:.B.1..| 00000780: 28 41 24 29 3A 97 36 33 31 AA 42 2C C6 28 CA 28 |(A$):.631.B,.(.(| 00000790: 41 24 2C 42 2C 31 29 29 3A 82 3A 97 31 39 38 2C |A$,B,1)):.:.198,| 000007A0: 31 30 00 A8 0F FE 01 A2 00 00 00 |10......... |
..).... ********************************
*.Q.... * 'AUTO MENU'
*.Y.... * READS DIRECTORY & AUTO LOADS
*...... * PROGRAM SELECTED BY THE USER
*.I.... * BY
*...... * JOE W. ROCKE 7/27/84
*...... ********************************
*./....53280,0:.53281,0.L.... N$(100):CX
.54272:. ".".W...."..."...(.X$.".
"...2..X
.1.5:.X$:....<.."..":. G(117);.H.F.. X.1
. 38:.G(100);:....P..G(105);:. X.1 . 5.
..Z..G(103).38)G(104)" "G(157);:..,.D..G
(106);:. X.1 . 38:.G(102);:.:.G(107).L.N
..".".14)"....* AUTO MENU *".J.X...12)".
READING DIRECTORY"...... --- READ DISK D
IRECTORY ---......1,8,0,"$"......#1,B$:.
ST..0.260...... --- LINE 150 LIMITS TO 2
6 FILES ---......F..27.260... ..B$..G(34
).140.....N$."":.".":. 214,8:..:....#1,B
$:.B$..G(34).N$.N$.B$:.180.S....#1,B$:.B
$.G(32).190...G.. -- FOLLOWING LINES SKI
P THE LOADING FILES --. .H..N$."BOOT".F.
F.1:.240...R..N$."AUTO MENU".F.F.1:.240.
.....H(N$,1)." ".F.F.1:.240.....N$(F)."
".N$......#1,B$:.B$.."".240......ST.0.F.
F.1:.140..... 1.E.... - PRINT FIRST COLU
MN OF NAMES -.H....E.1.F.2:."."G(64.E)".
"N$(E):..Z....".":.214,8:.. .!.. -- THEN
2ND COLUMN OF NAMES ---.I."..E.F.2.1.F:
..20)"."G(64.E)"."N$(E):..U.,.."...."...
6...12)". PRESS LETTER KEY "...@...5)"TO
AUTO LOAD PROGRAM SELECTED".0.J..M$:.M$
."". 330.@.T..M$.G(13)...[.^..M$."A".M$.
G(64.F).330.S.H.P.F(M$).64:."....."...R.
.C(N$(P)).12.N$(P).H(N$(P),12)."*"...|.N
$(P).J(N$(P),2,C(N$(P)))......"LOAD"G(34
)N$(P)G(34)",8,1..."...... *************
******************.(.... * IF YOU KNOW T
HE PGM IS 'ML' *.N.... * THE EXAMPLE BEL
OW WILL LOAD *.T.... * AND FILE & RUN IT
. EXAMPLES *...... * (3) ARE SHOWN BELOW
. *...B.. ***********************
********...L..H(N$(P),4)."TOOL".A$."SYS6
4738".G(13):.500.).V..H(N$(P),12)."CONST
RUCTIO*".A$."SYS49152".G(13):.500.Z....H
(N$(P),5)."ULTRA".A$."SYS49152".G(13):.5
00.M...A$."RUN".G(13)......631,13:.B.1.C
(A$):.631.B,F(J(A$,B,1)):.:.198,10......
...
> CLICK IMAGE PREVIEW FOR FULL MODAL