MENU
FILE INFORMATION
FILENAME(S): MENU
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-10-19 22:35:16
APPEARS ON: 1 disk(s)
FILE HASH
8b956659c488301eed5c391e42f099cf385e028a100aebbc6308e6fd313946d6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES MISC | MENU | PRG | Radd Maxx | 10 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 14 08 01 00 8B 20 4C 41 B3 B1 30 20 A7 20 |....... LA..0 . | 00000010: 9E 20 4C 41 00 2C 08 0A 00 86 20 46 49 24 28 31 |. LA.,.... FI$(1| 00000020: 30 30 29 2C 41 44 24 28 31 30 30 29 00 37 08 1E |00),AD$(100).7..| 00000030: 00 99 20 22 93 05 22 00 51 08 28 00 97 35 33 32 |.. "..".Q.(..532| 00000040: 38 30 2C 31 35 3A 20 97 20 35 33 32 38 31 2C 31 |80,15: . 53281,1| 00000050: 35 00 6E 08 64 00 A0 20 31 35 3A 20 9F 20 31 35 |5.n.d.. 15: . 15| 00000060: 2C 38 2C 31 35 3A 20 98 31 35 2C 22 49 22 00 7D |,8,15: .15,"I".}| 00000070: 08 6E 00 84 31 35 2C 45 4E 2C 45 52 24 00 AA 08 |.n..15,EN,ER$...| 00000080: 78 00 8B 45 4E B3 B1 30 20 A7 20 99 20 45 4E 3B |x..EN..0 . . EN;| 00000090: 45 52 24 3A 20 99 20 22 44 49 53 4B 20 4E 4F 54 |ER$: . "DISK NOT| 000000A0: 20 52 45 41 44 59 22 3A 20 80 00 B2 08 8C 00 A0 | READY": .......| 000000B0: 20 32 00 D0 08 96 00 9F 20 32 2C 38 2C 32 2C 22 | 2...... 2,8,2,"| 000000C0: 44 49 52 45 43 54 4F 52 59 2C 53 45 51 2C 52 22 |DIRECTORY,SEQ,R"| 000000D0: 00 DF 08 A0 00 84 31 35 2C 45 4E 2C 45 52 24 00 |......15,EN,ER$.| 000000E0: F5 08 AA 00 8B 45 4E B3 B1 30 20 A7 20 99 20 45 |.....EN..0 . . E| 000000F0: 4E 3B 45 52 24 00 2D 09 B4 00 8B 45 4E B2 36 32 |N;ER$.-....EN.62| 00000100: 20 A7 20 99 20 22 11 11 1C 43 52 45 41 54 49 4E | . . "...CREATIN| 00000110: 47 20 4E 45 57 20 44 49 52 45 43 54 4F 52 59 20 |G NEW DIRECTORY | 00000120: 46 49 4C 45 22 3A 20 89 20 33 30 30 30 00 59 09 |FILE": . 3000.Y.| 00000130: BE 00 8B 20 45 4E B3 B1 30 20 A7 20 99 20 22 1C |... EN..0 . . ".| 00000140: 11 11 11 53 4F 4D 45 54 48 49 4E 47 20 49 53 20 |...SOMETHING IS | 00000150: 57 52 4F 4E 47 22 3A 20 80 00 62 09 C8 00 4E 46 |WRONG": ..b...NF| 00000160: B2 30 00 6E 09 D2 00 4E 46 B2 4E 46 AA 31 00 85 |.0.n...NF.NF.1..| 00000170: 09 DC 00 84 32 2C 46 49 24 28 4E 46 29 2C 41 44 |....2,FI$(NF),AD| 00000180: 24 28 4E 46 29 00 96 09 E6 00 8B 20 53 54 B2 30 |$(NF)...... ST.0| 00000190: 20 A7 20 32 31 30 00 9F 09 2C 01 4E 50 B2 30 00 | . 210...,.NP.0.| 000001A0: C2 09 36 01 99 22 93 05 11 1D 1D 1D 1D 1D 1D 1D |..6.."..........| 000001B0: 1D 1D 1D 1D 2A 2A 20 20 4D 45 4E 55 20 20 2A 2A |....** MENU **| 000001C0: 90 22 00 F3 09 38 01 99 20 22 05 D5 C0 C0 C0 C0 |."...8.. "......| 000001D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000001E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000001F0: C0 C9 22 00 07 0A 3B 01 8B 20 4E 50 B2 B1 4E 46 |.."...;.. NP..NF| 00000200: 20 A7 20 4E 50 B2 30 00 14 0A 40 01 81 20 49 B2 | . NP.0...@.. I.| 00000210: 31 A4 31 30 00 20 0A 4A 01 4E 50 B2 4E 50 AA 31 |1.10. .J.NP.NP.1| 00000220: 00 42 0A 4F 01 4C B2 32 30 AB C3 28 46 49 24 28 |.B.O.L.20..(FI$(| 00000230: 4E 50 29 29 3A 20 8B 20 4C B2 B3 30 20 A7 20 4C |NP)): . L..0 . L| 00000240: B2 31 00 72 0A 51 01 49 50 B2 B5 28 4E 50 AD 31 |.1.r.Q.IP..(NP.1| 00000250: 30 29 3A 20 4E 50 24 B2 22 A0 22 3A 20 8B 20 49 |0): NP$.".": . I| 00000260: 50 B1 30 20 A7 20 4E 50 24 B2 C7 28 34 38 AA 49 |P.0 . NP$..(48.I| 00000270: 50 29 00 97 0A 52 01 49 50 B2 B5 28 4E 50 29 AB |P)...R.IP..(NP).| 00000280: 49 50 AC 31 30 3A 20 4E 50 24 B2 4E 50 24 AA C7 |IP.10: NP$.NP$..| 00000290: 28 34 38 AA 49 50 29 00 D4 0A 54 01 8B 20 4E 50 |(48.IP)...T.. NP| 000002A0: B3 B2 4E 46 20 A7 20 99 20 22 05 C2 90 22 3B 4E |..NF . . "...";N| 000002B0: 50 24 3B 22 20 2D 20 22 3B 46 49 24 28 4E 50 29 |P$;" - ";FI$(NP)| 000002C0: 3B A6 4C 29 3B 22 3A 3A 20 24 22 3B 41 44 24 28 |;.L);":: $";AD$(| 000002D0: 4E 50 29 3B 00 EF 0A 59 01 8B 20 4E 50 B3 B2 4E |NP);...Y.. NP..N| 000002E0: 46 20 A7 20 99 20 22 20 20 20 20 05 C2 90 22 00 |F . . " ...".| 000002F0: 2A 0B 5E 01 8B 20 4E 50 B1 4E 46 20 A7 20 99 20 |*.^.. NP.NF . . | 00000300: 22 05 C2 20 20 20 20 20 20 20 20 20 20 20 20 20 |".. | 00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000320: 20 20 20 20 20 20 20 20 C2 22 00 31 0B 68 01 82 | .".1.h..| 00000330: 49 00 63 0B 6D 01 99 20 22 05 CA C0 C0 C0 C0 C0 |I.c.m.. ".......| 00000340: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000350: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000360: CB 92 22 00 97 0B 72 01 99 20 22 11 11 12 1F 3C |.."...r.. "....<| 00000370: 46 37 3E 20 54 4F 20 50 52 49 4E 54 20 4E 45 58 |F7> TO PRINT NEX| 00000380: 54 20 50 41 47 45 20 20 20 20 20 20 20 20 20 20 |T PAGE | 00000390: 20 20 20 20 20 20 22 00 C9 0B 7C 01 99 20 22 12 | "...|.. ".| 000003A0: 1F 3C 46 31 3E 20 54 4F 20 55 50 44 41 54 45 20 |.<F1> TO UPDATE | 000003B0: 44 49 52 45 43 54 4F 52 59 20 20 20 20 20 20 20 |DIRECTORY | 000003C0: 20 20 20 20 20 20 20 20 22 00 FB 0B 86 01 99 20 | "...... | 000003D0: 22 12 1F 3C 46 33 3E 20 54 4F 20 45 58 49 54 20 |"..<F3> TO EXIT | 000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003F0: 20 20 20 20 20 20 20 20 20 20 22 00 22 0C 90 01 | "."...| 00000400: 50 47 24 B2 22 22 20 3A 99 20 22 92 11 1C 50 52 |PG$."" :. "...PR| 00000410: 4F 47 52 41 4D 20 4E 55 4D 42 45 52 20 3E 20 1F |OGRAM NUMBER > .| 00000420: 22 3B 00 2D 0C A4 01 8D 20 39 30 30 30 00 43 0C |";.-.... 9000.C.| 00000430: B8 01 8B 20 41 4E 24 B2 22 88 22 20 A7 20 89 20 |... AN$."." . . | 00000440: 33 31 30 00 5A 0C C2 01 8B 20 41 4E 24 B2 22 85 |310.Z.... AN$.".| 00000450: 22 20 A7 20 89 20 34 30 30 30 00 71 0C C7 01 8B |" . . 4000.q....| 00000460: 20 41 4E 24 B2 22 86 22 20 A7 20 89 20 35 30 30 | AN$."." . . 500| 00000470: 30 00 89 0C CC 01 8B 20 41 4E 24 B2 C7 28 31 33 |0...... AN$..(13| 00000480: 29 20 A7 20 89 20 35 30 30 00 C3 0C D6 01 8B 20 |) . . 500...... | 00000490: 41 4E 24 B2 C7 28 32 30 29 20 A7 20 4C B2 C3 28 |AN$..(20) . L..(| 000004A0: 50 47 24 29 3A 20 8B 20 4C B1 30 20 A7 20 50 47 |PG$): . L.0 . PG| 000004B0: 24 B2 C8 28 50 47 24 2C 4C AB 31 29 3A 20 89 20 |$..(PG$,L.1): . | 000004C0: 34 32 30 00 E3 0C E0 01 99 20 41 4E 24 3B 20 3A |420...... AN$; :| 000004D0: 20 50 47 24 B2 50 47 24 AA 41 4E 24 3A 20 89 20 | PG$.PG$.AN$: . | 000004E0: 34 32 30 00 F0 0C F4 01 50 B2 C5 28 50 47 24 29 |420.....P..(PG$)| 000004F0: 00 01 0D 08 02 4C 41 B2 30 3A 20 81 49 B2 31 A4 |.....LA.0: .I.1.| 00000500: 34 00 2F 0D 12 02 41 41 B2 28 C6 28 CA 28 41 44 |4./...AA.(.(.(AD| 00000510: 24 28 50 29 2C 49 2C 31 29 29 AB 34 38 29 3A 20 |$(P),I,1)).48): | 00000520: 8B 41 41 B1 39 20 A7 20 41 41 B2 41 41 AB 37 00 |.AA.9 . AA.AA.7.| 00000530: 45 0D 1C 02 4C 41 B2 4C 41 AA 41 41 AC 31 36 AE |E...LA.LA.AA.16.| 00000540: 28 34 AB 49 29 00 4C 0D 26 02 82 49 00 5B 0D 58 |(4.I).L.&..I.[.X| 00000550: 02 A0 20 32 20 3A 20 A0 20 31 35 00 8C 0D 62 02 |.. 2 : . 15...b.| 00000560: 99 3A 20 99 20 22 11 4C 4F 41 44 22 3B C7 28 33 |.: . ".LOAD";.(3| 00000570: 34 29 3B 46 49 24 28 50 29 3B 22 2E 4C 44 22 3B |4);FI$(P);".LD";| 00000580: C7 28 33 34 29 3B 22 2C 38 2C 31 22 00 B1 0D 6C |.(34);",8,1"...l| 00000590: 02 8B 20 4C 41 B2 20 32 30 34 38 20 A7 20 99 20 |.. LA. 2048 . . | 000005A0: 22 11 11 11 11 52 55 4E 91 91 91 91 91 91 91 22 |"....RUN......."| 000005B0: 3B 00 DC 0D 76 02 8B 20 4C 41 B3 B1 32 30 34 38 |;...v.. LA..2048| 000005C0: 20 A7 20 99 20 22 11 11 11 11 53 59 53 22 3B 4C | . . "....SYS";L| 000005D0: 41 3B 22 91 91 91 91 91 91 91 22 3B 00 FC 0D 80 |A;".......";....| 000005E0: 02 97 20 36 33 31 2C 31 33 3A 20 97 20 36 33 32 |.. 631,13: . 632| 000005F0: 2C 31 33 3A 20 97 20 31 39 38 2C 32 00 08 0E 8A |,13: . 198,2....| 00000600: 02 9C 3A 20 A2 3A 20 80 00 16 0E B8 0B A0 20 31 |..: .: ....... 1| 00000610: 35 3A 20 A0 20 32 00 3F 0E C2 0B 9F 20 31 35 2C |5: . 2.?.... 15,| 00000620: 38 2C 31 35 3A 20 9F 20 32 2C 38 2C 32 2C 22 44 |8,15: . 2,8,2,"D| 00000630: 49 52 45 43 54 4F 52 59 2C 53 45 51 2C 57 22 00 |IRECTORY,SEQ,W".| 00000640: 4E 0E CC 0B 84 31 35 2C 45 4E 2C 45 52 24 00 8E |N....15,EN,ER$..| 00000650: 0E D6 0B 8B 20 45 4E B3 B1 30 20 A7 20 99 20 45 |.... EN..0 . . E| 00000660: 4E 3B 45 52 24 3A 20 99 20 22 45 52 52 4F 52 20 |N;ER$: . "ERROR | 00000670: 4F 50 45 4E 49 4E 47 20 4E 45 57 20 44 49 52 45 |OPENING NEW DIRE| 00000680: 43 54 4F 52 59 20 46 49 4C 45 22 3A 20 80 00 A7 |CTORY FILE": ...| 00000690: 0E E0 0B 99 20 22 93 05 22 3A 20 81 49 B2 31 A4 |.... "..": .I.1.| 000006A0: 32 35 3A 99 3A 82 49 00 D8 0E EA 0B 99 20 22 12 |25:.:.I...... ".| 000006B0: 1F 44 49 53 4B 20 46 49 4C 45 53 20 4D 55 53 54 |.DISK FILES MUST| 000006C0: 20 48 41 56 45 20 2E 4C 44 20 45 58 54 45 4E 53 | HAVE .LD EXTENS| 000006D0: 49 4F 4E 20 20 20 20 22 00 08 0F F4 0B 99 20 22 |ION "...... "| 000006E0: 12 44 4F 4E 27 54 20 54 59 50 45 20 45 58 54 45 |.DON'T TYPE EXTE| 000006F0: 4E 53 49 4F 4E 53 20 20 20 20 20 20 20 20 20 20 |NSIONS | 00000700: 20 20 20 20 20 20 20 22 00 38 0F FE 0B 99 20 22 | ".8.... "| 00000710: 12 49 4E 50 55 54 20 41 44 44 52 45 53 53 45 53 |.INPUT ADDRESSES| 00000720: 20 49 4E 20 48 45 58 20 20 20 20 20 20 20 20 20 | IN HEX | 00000730: 20 20 20 20 20 20 20 22 00 69 0F 08 0C 99 20 22 | ".i.... "| 00000740: 12 1C 3C 46 37 3E 20 54 4F 20 52 45 54 55 52 4E |..<F7> TO RETURN| 00000750: 20 54 4F 20 4D 45 4E 55 20 53 43 52 45 45 4E 20 | TO MENU SCREEN | 00000760: 20 20 20 20 20 20 20 20 22 00 90 0F 1C 0C 99 20 | "...... | 00000770: 22 05 13 20 20 20 20 20 55 50 44 41 54 49 4E 47 |".. UPDATING| 00000780: 20 44 49 52 45 43 54 4F 52 59 20 46 49 4C 45 22 | DIRECTORY FILE"| 00000790: 00 B6 0F 26 0C 99 3A 20 99 3A 20 99 20 22 1C 91 |...&..: .: . "..| 000007A0: 46 49 4C 45 20 4E 41 4D 45 20 3E 20 1F 22 3B 3A |FILE NAME > .";:| 000007B0: 20 46 24 B2 22 22 00 C1 0F 28 0C 8D 20 39 30 30 | F$.""...(.. 900| 000007C0: 30 00 DA 0F 2B 0C 8B 20 41 4E 24 B2 C7 28 31 33 |0...+.. AN$..(13| 000007D0: 29 20 A7 20 89 20 33 31 32 35 00 0A 10 2C 0C 8B |) . . 3125...,..| 000007E0: 20 41 4E 24 B2 C7 28 32 30 29 20 A7 20 4C B2 C3 | AN$..(20) . L..| 000007F0: 28 46 24 29 3A 20 8B 20 4C B1 30 20 A7 20 46 24 |(F$): . L.0 . F$| 00000800: B2 C8 28 46 24 2C 4C AB 31 29 00 30 10 2D 0C 8B |..(F$,L.1).0.-..| 00000810: 20 41 4E 24 B2 C7 28 32 30 29 20 A7 20 99 20 22 | AN$..(20) . . "| 00000820: 92 9D 20 20 9D 9D 22 3B 3A 20 89 20 33 31 31 32 |.. ..";: . 3112| 00000830: 00 47 10 2F 0C 99 20 41 4E 24 3B 20 3A 20 46 24 |.G./.. AN$; : F$| 00000840: B2 46 24 AA 41 4E 24 00 5E 10 30 0C 8B 20 41 4E |.F$.AN$.^.0.. AN| 00000850: 24 B2 22 88 22 20 A7 20 89 20 33 33 30 30 00 69 |$."." . . 3300.i| 00000860: 10 32 0C 89 20 33 31 31 32 00 7E 10 35 0C 8B 20 |.2.. 3112.~.5.. | 00000870: C3 28 46 24 29 B2 30 20 A7 20 33 33 30 30 00 AC |.(F$).0 . 3300..| 00000880: 10 3A 0C 99 3A 20 99 22 1C 53 54 41 52 54 49 4E |.:..: .".STARTIN| 00000890: 47 20 41 44 44 52 45 53 53 20 3E 20 1F 22 3B 3A |G ADDRESS > .";:| 000008A0: 20 41 24 B2 22 22 3A 20 4C 4E B2 30 00 B7 10 3C | A$."": LN.0...<| 000008B0: 0C 8D 20 39 30 30 30 00 F0 10 3D 0C 8B 20 41 4E |.. 9000...=.. AN| 000008C0: 24 B2 C7 28 32 30 29 20 A7 20 4C B2 C3 28 41 24 |$..(20) . L..(A$| 000008D0: 29 3A 20 8B 20 4C B1 30 20 A7 20 41 24 B2 C8 28 |): . L.0 . A$..(| 000008E0: 41 24 2C 4C AB 31 29 3A 20 4C 4E B2 4C 4E AB 31 |A$,L.1): LN.LN.1| 000008F0: 00 16 11 3E 0C 8B 20 41 4E 24 B2 C7 28 32 30 29 |...>.. AN$..(20)| 00000900: 20 A7 20 99 20 22 92 9D 20 20 9D 9D 22 3B 3A 20 | . . ".. ..";: | 00000910: 89 20 33 31 33 32 00 41 11 3F 0C 8B 20 41 4E 24 |. 3132.A.?.. AN$| 00000920: B2 C7 28 31 33 29 20 A7 20 41 24 B2 22 30 38 30 |..(13) . A$."080| 00000930: 30 22 3A 20 99 20 41 24 3B 3A 20 89 20 33 31 35 |0": . A$;: . 315| 00000940: 30 00 52 11 40 0C 41 41 B2 C6 28 41 4E 24 29 AB |0.R.@.AA..(AN$).| 00000950: 34 38 00 66 11 41 0C 8B 20 41 41 20 B1 32 32 20 |48.f.A.. AA .22 | 00000960: A7 20 33 31 33 32 00 7A 11 42 0C 8B 20 41 41 20 |. 3132.z.B.. AA | 00000970: B3 30 20 20 A7 20 33 31 33 32 00 A9 11 43 0C 99 |.0 . 3132...C..| 00000980: 20 41 4E 24 3B 3A 20 41 24 B2 41 24 AA 41 4E 24 | AN$;: A$.A$.AN$| 00000990: 3A 20 4C 4E B2 4C 4E AA 31 3A 20 8B 20 4C 4E B2 |: LN.LN.1: . LN.| 000009A0: B1 34 20 A7 20 33 31 35 30 00 B4 11 44 0C 89 20 |.4 . 3150...D.. | 000009B0: 33 31 33 32 00 CC 11 4E 0C 98 32 2C 46 24 3B 22 |3132...N..2,F$;"| 000009C0: 2C 22 3B 41 24 3B C7 28 31 33 29 3B 00 D7 11 58 |,";A$;.(13);...X| 000009D0: 0C 89 20 33 31 31 30 00 DF 11 E4 0C A0 20 32 00 |.. 3110...... 2.| 000009E0: EE 11 EE 0C 84 31 35 2C 45 4E 2C 45 52 24 00 2B |.....15,EN,ER$.+| 000009F0: 12 F8 0C 8B 20 45 4E B3 B1 30 20 A7 20 99 20 45 |.... EN..0 . . E| 00000A00: 4E 2C 45 52 24 3A 20 99 20 22 45 52 52 4F 52 20 |N,ER$: . "ERROR | 00000A10: 43 4C 4F 53 49 4E 47 20 4E 45 57 20 44 49 52 45 |CLOSING NEW DIRE| 00000A20: 43 54 4F 52 59 20 46 49 4C 45 22 00 34 12 02 0D |CTORY FILE".4...| 00000A30: A0 20 31 35 00 3A 12 0C 0D 8A 00 48 12 A0 0F A0 |. 15.:.....H....| 00000A40: 20 31 35 3A 20 A0 20 32 00 69 12 AA 0F 9F 20 31 | 15: . 2.i.... 1| 00000A50: 35 2C 38 2C 31 35 3A 20 98 31 35 2C 22 53 3A 44 |5,8,15: .15,"S:D| 00000A60: 49 52 45 43 54 4F 52 59 22 00 87 12 B4 0F 9F 20 |IRECTORY"...... | 00000A70: 32 2C 38 2C 32 2C 22 44 49 52 45 43 54 4F 52 59 |2,8,2,"DIRECTORY| 00000A80: 2C 53 45 51 2C 57 22 00 96 12 BE 0F 84 31 35 2C |,SEQ,W"......15,| 00000A90: 45 4E 2C 45 52 24 00 D6 12 C8 0F 8B 20 45 4E B3 |EN,ER$...... EN.| 00000AA0: B1 30 20 A7 20 99 20 45 4E 3B 45 52 24 3A 20 99 |.0 . . EN;ER$: .| 00000AB0: 20 22 45 52 52 4F 52 20 4F 50 45 4E 49 4E 47 20 | "ERROR OPENING | 00000AC0: 4E 45 57 20 44 49 52 45 43 54 4F 52 59 20 46 49 |NEW DIRECTORY FI| 00000AD0: 4C 45 22 3A 20 80 00 00 13 CD 0F 99 22 93 05 92 |LE": ......."...| 00000AE0: 20 20 20 20 20 20 55 50 44 41 54 49 4E 47 20 44 | UPDATING D| 00000AF0: 49 52 45 43 54 4F 52 59 20 46 49 4C 45 11 11 22 |IRECTORY FILE.."| 00000B00: 00 0D 13 D2 0F 81 20 50 B2 31 A4 4E 46 00 39 13 |...... P.1.NF.9.| 00000B10: DC 0F 99 20 22 1C 4B 45 45 50 20 22 3B 46 49 24 |... ".KEEP ";FI$| 00000B20: 28 50 29 3B 22 20 3A 3A 20 22 3B 41 44 24 28 50 |(P);" :: ";AD$(P| 00000B30: 29 3B 22 20 3E 20 1F 22 3B 00 44 13 E1 0F 8D 20 |);" > .";.D.... | 00000B40: 39 30 30 30 00 59 13 E6 0F 8B 20 41 4E 24 B2 22 |9000.Y.... AN$."| 00000B50: 4E 22 20 A7 20 34 30 39 30 00 79 13 F0 0F 98 32 |N" . 4090.y....2| 00000B60: 2C 46 49 24 28 50 29 3B 22 2C 22 3B 41 44 24 28 |,FI$(P);",";AD$(| 00000B70: 50 29 3B C7 28 31 33 29 3B 00 87 13 FA 0F 99 20 |P);.(13);...... | 00000B80: 41 4E 24 3A 20 82 50 00 92 13 04 10 89 20 33 30 |AN$: .P...... 30| 00000B90: 34 30 00 9A 13 88 13 A0 20 32 00 A3 13 92 13 A0 |40...... 2......| 00000BA0: 20 31 35 00 AD 13 9C 13 99 22 93 1F 22 00 B3 13 | 15......".."...| 00000BB0: A6 13 80 00 BB 13 28 23 4B B2 30 00 C5 13 32 23 |......(#K.0...2#| 00000BC0: A1 20 41 4E 24 00 F7 13 3C 23 4B B2 4B AA 31 3A |. AN$...<#K.K.1:| 00000BD0: 20 8B 20 4B B1 33 30 20 A7 20 99 22 12 20 9D 22 | . K.30 . .". ."| 00000BE0: 3B 3A 20 8B 4B B1 36 30 20 A7 20 99 22 92 20 9D |;: .K.60 . .". .| 00000BF0: 22 3B 3A 20 4B B2 30 00 0B 14 46 23 8B 20 41 4E |";: K.0...F#. AN| 00000C00: 24 B2 22 22 20 A7 20 39 30 31 30 00 17 14 50 23 |$."" . 9010...P#| 00000C10: 99 22 92 20 9D 22 3B 00 1D 14 5A 23 8E 00 00 00 |.". .";...Z#....|
....... LA..0 . . LA.,.... FI$(100),AD$(
100).7.... "..".Q.(..53280,15: . 53281,1
5.N.D. 15: . 15,8,15: .15,"I".}.N..15,E
N,ER$...X..EN..0 . . EN;ER$: . "DISK NOT
READY": ...... 2.P.... 2,8,2,"DIRECTOR
Y,SEQ,R"... ..15,EN,ER$......EN..0 . . E
N;ER$.-....EN.62 . . "...CREATING NEW DI
RECTORY FILE": . 3000.Y.... EN..0 . . ".
...SOMETHING IS WRONG": ..B.H.NF.0.N.R.N
F.NF.1......2,FI$(NF),AD$(NF)...... ST.0
. 210...,.NP.0.B.6.."..............**
MENU **."...8.. ".U....................
.................I"...;.. NP..NF . NP.0.
..@.. I.1.10. .J.NP.NP.1.B.O.L.20.C(FI$(
NP)): . L..0 . L.1.R.Q.IP..(NP.10): NP$.
" ": . IP.0 . NP$.G(48.IP)...R.IP..(NP).
IP.10: NP$.NP$.G(48.IP).T.T.. NP..NF . .
".B.";NP$;" - ";FI$(NP);.L);":: $";AD$(
NP);...Y.. NP..NF . . " .B.".*.^.. NP
.NF . . ".B
B".1.H..I.C.M.. ".J.............
........................K."...R.. "....<
F7> TO PRINT NEXT PAGE ".
I.|.. "..<F1> TO UPDATE DIRECTORY
"...... "..<F3> TO EXIT
"."...PG$."" :. "...PR
OGRAM NUMBER > .";.-.... 9000.C.... AN$.
"." . . 310.Z.B.. AN$."." . . 4000.Q.G..
AN$."." . . 5000...L.. AN$.G(13) . . 50
0.C.V.. AN$.G(20) . L.C(PG$): . L.0 . PG
$.H(PG$,L.1): . 420...... AN$; : PG$.PG$
.AN$: . 420.....P.E(PG$).....LA.0: .I.1.
4./...AA.(F(J(AD$(P),I,1)).48): .AA.9 .
AA.AA.7.E...LA.LA.AA.16.(4.I).L.&..I.[.X
. 2 : 15...B..: . ".LOAD";G(34);FI$(P
);".LD";G(34);",8,1"...L.. LA. 2048 . .
"....RUN.......";...V.. LA..2048 . . "..
..SYS";LA;".......";...... 631,13: . 632
,13: . 198,2......: .: ...... 15: 2.?
.B.. 15,8,15: . 2,8,2,"DIRECTORY,SEQ,W".
N.L..15,EN,ER$...V.. EN..0 . . EN;ER$: .
"ERROR OPENING NEW DIRECTORY FILE": ...
.... "..": .I.1.25:.:.I.X.... "..DISK FI
LES MUST HAVE .LD EXTENSION "...... "
.DON'T TYPE EXTENSIONS "
.8.... ".INPUT ADDRESSES IN HEX
".I.... "..<F7> TO RETURN TO MENU
SCREEN "...... ".. UPDATING
DIRECTORY FILE"...&..: .: . "..FILE NAM
E > .";: F$."".A.(.. 9000.Z.+.. AN$.G(13
) . . 3125...,.. AN$.G(20) . L.C(F$): .
L.0 . F$.H(F$,L.1).0.-.. AN$.G(20) . . "
.. ..";: . 3112.G./.. AN$; : F$.F$.AN$.
^.0.. AN$."." . . 3300.I.2.. 3112.~.5..
C(F$).0 . 3300...:..: .".STARTING ADDRES
S > .";: A$."": LN.0...<.. 9000...=.. AN
$.G(20) . L.C(A$): . L.0 . A$.H(A$,L.1):
LN.LN.1...>.. AN$.G(20) . . ".. ..";:
. 3132.A.?.. AN$.G(13) . A$."0800": . A$
;: . 3150.R.@.AA.F(AN$).48.F.A.. AA .22
. 3132.Z.B.. AA .0 . 3132...C.. AN$;: A
$.A$.AN$: LN.LN.1: . LN..4 . 3150...D..
3132.L.N..2,F$;",";A$;G(13);.W.X.. 3110.
.... 2......15,EN,ER$.+.... EN..0 . . E
N,ER$: . "ERROR CLOSING NEW DIRECTORY FI
LE".4... 15.:.....H. . 15: 2.I.... 1
5,8,15: .15,"S:DIRECTORY"...... 2,8,2,"D
IRECTORY,SEQ,W"......15,EN,ER$.V.H.. EN.
.0 . . EN;ER$: . "ERROR OPENING NEW DIRE
CTORY FILE": ....M.."... UPDATING D
IRECTORY FILE.."...R.. P.1.NF.9.... ".KE
EP ";FI$(P);" :: ";AD$(P);" > .";.D....
9000.Y.... AN$."N" . 4090.Y....2,FI$(P);
",";AD$(P);G(13);...... AN$: .P...... 30
40..... 2..... 15......"..".........(#
K.0.E.2#. AN$...<#K.K.1: . K.30 . .". ."
;: .K.60 . .". .";: K.0...F#. AN$."" . 9
010...P#.". .";...Z#....
> CLICK IMAGE PREVIEW FOR FULL MODAL