MENU EDITOR
FILE INFORMATION
FILENAME(S): MENU EDITOR
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 19:47:08
APPEARS ON: 2 disk(s)
FILE HASH
c5f1daafefe8728cd350874d26be05b64e61ef96e4284c34e6350c9b49aaa095
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MEGABYTE GO HOME | MENU EDITOR | PRG | Curtcool, Frank | 25 | 7 | DOWNLOAD FILE |
| COMIC CREW | MENU EDITOR | PRG | Curtcool, Malcom | 25 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 64 00 97 35 33 32 38 30 2C 31 35 3A |....d..53280,15:| 00000010: 97 35 33 32 38 31 2C 31 35 3A 8D 39 35 30 30 00 |.53281,15:.9500.| 00000020: 53 08 6E 00 41 B2 30 3A 99 22 11 11 20 20 54 48 |S.n.A.0:.".. TH| 00000030: 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 |IS PROGRAM WILL | 00000040: 43 55 53 54 4F 4D 49 5A 45 20 54 48 45 20 44 49 |CUSTOMIZE THE DI| 00000050: 53 4B 22 00 8F 08 78 00 99 22 20 20 41 4E 44 20 |SK"...x.." AND | 00000060: 54 48 45 20 4D 45 4E 55 20 53 43 52 45 45 4E 3A |THE MENU SCREEN:| 00000070: 11 22 3A 99 22 11 20 20 20 20 31 2E 20 20 43 48 |.":.". 1. CH| 00000080: 41 4E 47 45 20 44 49 53 4B 20 4E 41 4D 45 22 00 |ANGE DISK NAME".| 00000090: D5 08 82 00 99 22 11 20 20 20 20 32 2E 20 20 43 |.....". 2. C| 000000A0: 48 41 4E 47 45 20 4D 45 4E 55 20 54 49 54 4C 45 |HANGE MENU TITLE| 000000B0: 22 3A 99 22 11 20 20 20 20 33 2E 20 20 43 48 41 |":.". 3. CHA| 000000C0: 4E 47 45 20 43 4F 4C 55 4D 4E 20 50 4F 53 49 54 |NGE COLUMN POSIT| 000000D0: 49 4F 4E 53 22 00 0B 09 8C 00 99 22 11 20 20 20 |IONS"......". | 000000E0: 20 34 2E 20 20 43 48 41 4E 47 45 20 52 4F 57 20 | 4. CHANGE ROW | 000000F0: 50 4F 53 49 54 49 4F 4E 53 22 3A 99 22 11 20 20 |POSITIONS":.". | 00000100: 20 20 35 2E 20 20 45 58 49 54 22 00 33 09 96 00 | 5. EXIT".3...| 00000110: 99 22 11 11 20 20 20 20 20 20 20 20 20 20 53 45 |.".. SE| 00000120: 4C 45 43 54 20 4F 50 54 49 4F 4E 20 28 31 2D 35 |LECT OPTION (1-5| 00000130: 29 3A 22 00 46 09 A0 00 A1 41 24 3A 8B 41 24 B2 |):".F....A$:.A$.| 00000140: 22 22 A7 31 36 30 00 5F 09 AA 00 41 B2 C5 28 41 |"".160._...A..(A| 00000150: 24 29 3A 8B 41 B3 31 B0 41 B1 35 A7 31 36 30 00 |$):.A.1.A.5.160.| 00000160: 7F 09 B4 00 91 41 89 31 30 30 30 2C 32 30 30 30 |.....A.1000,2000| 00000170: 2C 33 30 30 30 2C 34 30 30 30 2C 35 30 30 30 00 |,3000,4000,5000.| 00000180: 95 09 E8 03 8F 3A 2A 2A 2A 44 49 53 4B 20 4E 41 |.....:***DISK NA| 00000190: 4D 45 2A 2A 2A 00 CC 09 F2 03 8D 39 35 30 30 3A |ME***......9500:| 000001A0: 99 22 11 11 20 20 41 20 4D 41 58 49 4D 55 4D 20 |.".. A MAXIMUM | 000001B0: 4F 46 20 31 36 20 43 48 41 52 41 43 54 45 52 53 |OF 16 CHARACTERS| 000001C0: 20 49 53 20 41 4C 4C 4F 57 45 44 22 00 E1 09 FC | IS ALLOWED"....| 000001D0: 03 85 22 11 11 20 20 20 20 4E 41 4D 45 22 3B 53 |..".. NAME";S| 000001E0: 24 00 02 0A 06 04 8B 20 C3 28 53 24 29 B1 31 36 |$...... .(S$).16| 000001F0: A7 53 24 B2 C8 28 53 24 2C 31 36 29 3A 89 31 30 |.S$..(S$,16):.10| 00000200: 37 30 00 25 0A 10 04 81 4E B2 31 A4 31 36 3A 8B |70.%....N.1.16:.| 00000210: C3 28 53 24 29 B3 31 36 A7 53 24 B2 53 24 AA C7 |.(S$).16.S$.S$..| 00000220: 28 31 36 30 29 00 38 0A 1A 04 8B C3 28 53 24 29 |(160).8.....(S$)| 00000230: B2 31 36 A7 31 30 37 30 00 3F 0A 24 04 82 4E 00 |.16.1070.?.$..N.| 00000240: 62 0A 2E 04 4C 53 B2 C3 28 53 24 29 3A 53 B2 30 |b...LS..(S$):S.0| 00000250: 3A 4C 4F B2 31 34 34 3A 8D 39 30 30 30 3A 89 31 |:LO.144:.9000:.1| 00000260: 30 30 00 79 0A D0 07 8F 3A 2A 2A 2A 4D 45 4E 55 |00.y....:***MENU| 00000270: 20 54 49 54 4C 45 2A 2A 2A 00 B0 0A DA 07 8D 39 | TITLE***......9| 00000280: 35 30 30 3A 99 22 11 11 20 20 41 20 4D 41 58 49 |500:.".. A MAXI| 00000290: 4D 55 4D 20 4F 46 20 32 31 20 43 48 41 52 41 43 |MUM OF 21 CHARAC| 000002A0: 54 45 52 53 20 49 53 20 41 4C 4C 4F 57 45 44 22 |TERS IS ALLOWED"| 000002B0: 00 C6 0A E4 07 85 22 11 11 20 20 20 20 54 49 54 |......".. TIT| 000002C0: 4C 45 22 3B 51 24 00 DA 0A EE 07 8B 20 C3 28 51 |LE";Q$...... .(Q| 000002D0: 24 29 B1 32 31 A7 32 30 31 30 00 FA 0A F8 07 4B |$).21.2010.....K| 000002E0: B2 B5 28 28 32 31 AB C3 28 51 24 29 29 AD 32 29 |..((21..(Q$)).2)| 000002F0: 3A 8B 4B B2 30 A7 32 30 36 30 00 14 0B 02 08 81 |:.K.0.2060......| 00000300: 4E B2 31 A4 4B 3A 51 24 B2 C7 28 33 32 29 AA 51 |N.1.K:Q$..(32).Q| 00000310: 24 3A 82 4E 00 2F 0B 0C 08 81 4E B2 31 A4 31 30 |$:.N./....N.1.10| 00000320: 3A 8B C3 28 51 24 29 B2 32 31 A7 32 30 38 30 00 |:..(Q$).21.2080.| 00000330: 42 0B 16 08 51 24 B2 51 24 AA C7 28 33 32 29 3A |B...Q$.Q$..(32):| 00000340: 82 4E 00 6F 0B 20 08 53 24 B2 C8 28 51 24 2C 37 |.N.o. .S$..(Q$,7| 00000350: 29 3A 53 B2 31 35 3A 4C 4F B2 32 34 39 3A 4C 53 |):S.15:LO.249:LS| 00000360: B2 37 3A 8D 39 30 30 30 3A 8B 41 A7 31 30 30 00 |.7:.9000:.A.100.| 00000370: 99 0B 2A 08 4C 53 B2 31 34 3A 53 24 B2 C9 28 51 |..*.LS.14:S$..(Q| 00000380: 24 2C 31 34 29 3A 53 B2 36 3A 4C 4F B2 32 3A 8D |$,14):S.6:LO.2:.| 00000390: 39 30 32 30 3A 89 31 30 30 00 B6 0B B8 0B 8F 3A |9020:.100......:| 000003A0: 2A 2A 2A 43 4F 4C 55 4D 4E 20 4C 4F 43 41 54 49 |***COLUMN LOCATI| 000003B0: 4F 4E 53 2A 2A 2A 00 EF 0B C2 0B 41 B2 30 3A 8D |ONS***.....A.0:.| 000003C0: 39 35 30 30 3A 99 22 11 11 20 20 54 48 45 20 53 |9500:.".. THE S| 000003D0: 43 52 45 45 4E 20 48 41 53 20 34 30 20 43 4F 4C |CREEN HAS 40 COL| 000003E0: 55 4D 4E 53 2C 20 4E 55 4D 42 45 52 45 44 22 00 |UMNS, NUMBERED".| 000003F0: 1C 0C CC 0B 99 22 20 20 31 20 54 48 52 4F 55 47 |....." 1 THROUG| 00000400: 48 20 34 30 2E 20 49 46 20 41 20 53 49 4E 47 4C |H 40. IF A SINGL| 00000410: 45 20 43 4F 4C 55 4D 4E 20 49 53 22 00 49 0C D6 |E COLUMN IS".I..| 00000420: 0B 99 22 20 20 53 55 46 46 49 43 49 45 4E 54 20 |.." SUFFICIENT | 00000430: 54 4F 20 44 49 53 50 4C 41 59 20 54 48 45 20 50 |TO DISPLAY THE P| 00000440: 52 4F 47 52 41 4D 53 2C 22 00 76 0C E0 0B 99 22 |ROGRAMS,".v...."| 00000450: 20 20 54 48 45 20 4C 4F 41 44 45 52 20 50 4C 41 | THE LOADER PLA| 00000460: 43 45 53 20 54 48 45 20 53 49 4E 47 4C 45 20 43 |CES THE SINGLE C| 00000470: 4F 4C 55 4D 4E 22 00 94 0C E5 0B 99 22 20 20 53 |OLUMN"......" S| 00000480: 54 41 52 54 20 41 54 20 43 4F 4C 55 4D 4E 20 23 |TART AT COLUMN #| 00000490: 31 31 2E 22 00 C2 0C EA 0B 99 22 11 20 20 20 20 |11."......". | 000004A0: 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 43 |DO YOU WISH TO C| 000004B0: 48 41 4E 47 45 20 54 48 49 53 20 28 59 2F 4E 29 |HANGE THIS (Y/N)| 000004C0: 3F 22 00 D7 0C F4 0B A1 41 24 3A 8B 41 24 B2 22 |?"......A$:.A$."| 000004D0: 4E 22 A7 33 31 30 30 00 E9 0C FE 0B 8B 41 24 B3 |N".3100......A$.| 000004E0: B1 22 59 22 A7 33 30 36 30 00 14 0D 08 0C 85 22 |."Y".3060......"| 000004F0: 11 20 20 20 20 43 4F 4C 55 4D 4E 20 4E 55 4D 42 |. COLUMN NUMB| 00000500: 45 52 22 3B 43 3A 8B 43 B3 30 B0 43 B1 33 35 A7 |ER";C:.C.0.C.35.| 00000510: 33 30 38 30 00 38 0D 12 0C 53 24 B2 C7 28 43 AB |3080.8...S$..(C.| 00000520: 31 29 3A 53 B2 33 3A 4C 4F B2 31 30 36 3A 4C 53 |1):S.3:LO.106:LS| 00000530: B2 31 3A 8D 39 30 30 30 00 6E 0D 1C 0C 8D 39 35 |.1:.9000.n....95| 00000540: 30 30 3A 99 22 11 11 20 20 49 46 20 54 57 4F 20 |00:.".. IF TWO | 00000550: 43 4F 4C 55 4D 4E 53 20 41 52 45 20 4E 45 43 45 |COLUMNS ARE NECE| 00000560: 53 53 41 52 59 20 54 4F 20 44 49 53 2D 22 00 9C |SSARY TO DIS-"..| 00000570: 0D 26 0C 99 22 20 20 50 4C 41 59 20 54 48 45 20 |.&.." PLAY THE | 00000580: 50 52 4F 47 52 41 4D 53 2C 20 54 48 45 20 4C 4F |PROGRAMS, THE LO| 00000590: 41 44 45 52 20 50 4C 41 43 45 53 22 00 C9 0D 30 |ADER PLACES"...0| 000005A0: 0C 99 22 20 20 54 48 45 20 46 49 52 53 54 20 43 |.." THE FIRST C| 000005B0: 4F 4C 55 4D 4E 20 53 54 41 52 54 20 41 54 20 43 |OLUMN START AT C| 000005C0: 4F 4C 55 4D 4E 20 23 32 22 00 F5 0D 3A 0C 99 22 |OLUMN #2"...:.."| 000005D0: 20 20 41 4E 44 20 50 4C 41 43 45 53 20 54 48 45 | AND PLACES THE| 000005E0: 20 53 45 43 4F 4E 44 20 43 4F 4C 55 4D 4E 20 53 | SECOND COLUMN S| 000005F0: 54 41 52 54 22 00 0D 0E 3F 0C 99 22 20 20 41 54 |TART"...?.." AT| 00000600: 20 43 4F 4C 55 4D 4E 20 23 32 32 2E 22 00 34 0E | COLUMN #22.".4.| 00000610: 44 0C 99 22 11 20 20 20 20 43 48 41 4E 47 45 20 |D..". CHANGE | 00000620: 46 49 52 53 54 20 43 4F 4C 55 4D 4E 20 28 59 2F |FIRST COLUMN (Y/| 00000630: 4E 29 3F 22 00 49 0E 4E 0C A1 41 24 3A 8B 41 24 |N)?".I.N..A$:.A$| 00000640: B2 22 4E 22 A7 33 32 30 30 00 5B 0E 58 0C 8B 41 |."N".3200.[.X..A| 00000650: 24 B3 B1 22 59 22 A7 33 31 35 30 00 7D 0E 62 0C |$.."Y".3150.}.b.| 00000660: 85 22 11 20 20 20 20 46 49 52 53 54 20 43 4F 4C |.". FIRST COL| 00000670: 55 4D 4E 20 4E 55 4D 42 45 52 22 3B 43 00 90 0E |UMN NUMBER";C...| 00000680: 6C 0C 8B 43 B3 31 B0 43 B1 33 35 A7 33 31 37 30 |l..C.1.C.35.3170| 00000690: 00 B4 0E 76 0C 53 24 B2 C7 28 43 AB 31 29 3A 53 |...v.S$..(C.1):S| 000006A0: B2 33 3A 4C 53 B2 31 3A 4C 4F B2 31 30 31 3A 8D |.3:LS.1:LO.101:.| 000006B0: 39 30 30 30 00 DC 0E 80 0C 99 22 11 20 20 20 20 |9000......". | 000006C0: 43 48 41 4E 47 45 20 53 45 43 4F 4E 44 20 43 4F |CHANGE SECOND CO| 000006D0: 4C 55 4D 4E 20 28 59 2F 4E 29 3F 22 00 F0 0E 8A |LUMN (Y/N)?"....| 000006E0: 0C A1 41 24 3A 8B 41 24 B2 22 4E 22 A7 31 30 30 |..A$:.A$."N".100| 000006F0: 00 02 0F 94 0C 8B 41 24 B3 B1 22 59 22 A7 33 32 |......A$.."Y".32| 00000700: 31 30 00 25 0F 9E 0C 85 22 11 20 20 20 20 53 45 |10.%....". SE| 00000710: 43 4F 4E 44 20 43 4F 4C 55 4D 4E 20 4E 55 4D 42 |COND COLUMN NUMB| 00000720: 45 52 22 3B 43 00 39 0F A8 0C 8B 43 B3 31 30 B0 |ER";C.9....C.10.| 00000730: 43 B1 33 35 A7 33 32 33 30 00 62 0F B2 0C 53 24 |C.35.3230.b...S$| 00000740: B2 C7 28 43 AB 31 29 3A 53 B2 33 3A 4C 53 B2 31 |..(C.1):S.3:LS.1| 00000750: 3A 4C 4F B2 31 32 34 3A 8D 39 30 30 30 3A 89 31 |:LO.124:.9000:.1| 00000760: 30 30 00 7C 0F A0 0F 8F 3A 2A 2A 2A 52 4F 57 20 |00.|....:***ROW | 00000770: 4C 4F 43 41 54 49 4F 4E 53 2A 2A 2A 00 B4 0F AA |LOCATIONS***....| 00000780: 0F 41 B2 30 3A 8D 39 35 30 30 3A 99 22 11 11 20 |.A.0:.9500:.".. | 00000790: 20 54 48 45 20 53 43 52 45 45 4E 20 48 41 53 20 | THE SCREEN HAS | 000007A0: 32 35 20 52 4F 57 53 2C 20 4E 55 4D 42 45 52 45 |25 ROWS, NUMBERE| 000007B0: 44 20 31 22 00 E0 0F B4 0F 99 22 20 20 54 48 52 |D 1"......" THR| 000007C0: 4F 55 47 48 20 32 35 2E 20 20 54 48 45 20 4C 4F |OUGH 25. THE LO| 000007D0: 41 44 45 52 20 53 54 41 52 54 53 20 54 48 45 22 |ADER STARTS THE"| 000007E0: 00 0C 10 BE 0F 99 22 20 20 50 52 4F 47 52 41 4D |......" PROGRAM| 000007F0: 20 4C 49 53 54 49 4E 47 20 41 54 20 52 4F 57 20 | LISTING AT ROW | 00000800: 23 36 20 41 4E 44 20 45 4E 44 53 22 00 38 10 C8 |#6 AND ENDS".8..| 00000810: 0F 99 22 20 20 49 54 20 41 54 20 52 4F 57 20 23 |.." IT AT ROW #| 00000820: 32 30 2C 20 4C 45 41 56 49 4E 47 20 45 56 45 52 |20, LEAVING EVER| 00000830: 59 20 4F 54 48 45 52 22 00 64 10 D2 0F 99 22 20 |Y OTHER".d...." | 00000840: 20 52 4F 57 20 42 4C 41 4E 4B 2E 20 59 4F 55 20 | ROW BLANK. YOU | 00000850: 43 41 4E 4E 4F 54 20 49 4E 43 52 45 41 53 45 20 |CANNOT INCREASE | 00000860: 54 48 45 22 00 90 10 DC 0F 99 22 20 20 46 49 45 |THE"......" FIE| 00000870: 4C 44 20 53 49 5A 45 20 20 42 45 59 4F 4E 44 20 |LD SIZE BEYOND | 00000880: 20 54 48 45 53 45 20 53 45 54 54 49 4E 47 53 22 | THESE SETTINGS"| 00000890: 00 BC 10 E6 0F 99 22 20 20 42 55 54 20 59 4F 55 |......" BUT YOU| 000008A0: 20 43 41 4E 20 4D 4F 44 49 46 59 20 54 48 45 4D | CAN MODIFY THEM| 000008B0: 20 46 4F 52 20 42 45 54 54 45 52 22 00 EA 10 F0 | FOR BETTER"....| 000008C0: 0F 99 22 20 20 43 45 4E 54 45 52 49 4E 47 2E 20 |.." CENTERING. | 000008D0: 20 12 57 41 52 4E 49 4E 47 92 20 2D 20 52 45 44 | .WARNING. - RED| 000008E0: 55 43 49 4E 47 20 54 48 45 22 00 16 11 FA 0F 99 |UCING THE"......| 000008F0: 22 20 20 46 49 45 4C 44 20 53 49 5A 45 20 57 49 |" FIELD SIZE WI| 00000900: 4C 4C 20 52 45 44 55 43 45 20 54 48 45 20 4D 41 |LL REDUCE THE MA| 00000910: 58 49 4D 55 4D 22 00 42 11 04 10 99 22 20 20 4E |XIMUM".B...." N| 00000920: 55 4D 42 45 52 20 4F 46 20 50 52 4F 47 52 41 4D |UMBER OF PROGRAM| 00000930: 53 20 54 48 45 20 4C 4F 41 44 45 52 20 57 49 4C |S THE LOADER WIL| 00000940: 4C 22 00 54 11 0E 10 99 22 20 20 44 49 53 50 4C |L".T...." DISPL| 00000950: 41 59 2E 22 00 78 11 18 10 99 22 11 20 20 20 20 |AY.".x....". | 00000960: 43 48 41 4E 47 45 20 46 49 52 53 54 20 52 4F 57 |CHANGE FIRST ROW| 00000970: 20 28 59 2F 4E 29 3F 22 00 8D 11 22 10 A1 41 24 | (Y/N)?"..."..A$| 00000980: 3A 8B 41 24 B2 22 4E 22 A7 34 31 38 30 00 9F 11 |:.A$."N".4180...| 00000990: 2C 10 8B 41 24 B3 B1 22 59 22 A7 34 31 33 30 00 |,..A$.."Y".4130.| 000009A0: BE 11 36 10 85 22 11 20 20 20 20 46 49 52 53 54 |..6..". FIRST| 000009B0: 20 52 4F 57 20 4E 55 4D 42 45 52 22 3B 43 00 D1 | ROW NUMBER";C..| 000009C0: 11 40 10 8B 43 B3 36 B0 43 B1 32 30 A7 34 31 35 |.@..C.6.C.20.415| 000009D0: 30 00 F4 11 4A 10 53 24 B2 C7 28 43 AB 31 29 3A |0...J.S$..(C.1):| 000009E0: 53 B2 33 3A 4C 53 B2 31 3A 4C 4F B2 38 34 3A 8D |S.3:LS.1:LO.84:.| 000009F0: 39 30 30 30 00 17 12 54 10 99 22 11 20 20 20 20 |9000...T..". | 00000A00: 43 48 41 4E 47 45 20 4C 41 53 54 20 52 4F 57 20 |CHANGE LAST ROW | 00000A10: 28 59 2F 4E 29 3F 22 00 2B 12 5E 10 A1 41 24 3A |(Y/N)?".+.^..A$:| 00000A20: 8B 41 24 B2 22 4E 22 A7 31 30 30 00 3D 12 68 10 |.A$."N".100.=.h.| 00000A30: 8B 41 24 B3 B1 22 59 22 A7 34 31 39 30 00 5B 12 |.A$.."Y".4190.[.| 00000A40: 72 10 85 22 11 20 20 20 20 4C 41 53 54 20 52 4F |r..". LAST RO| 00000A50: 57 20 4E 55 4D 42 45 52 22 3B 43 00 6E 12 7C 10 |W NUMBER";C.n.|.| 00000A60: 8B 43 B3 36 B0 43 B1 32 30 A7 34 32 31 30 00 94 |.C.6.C.20.4210..| 00000A70: 12 86 10 53 24 B2 C7 28 43 29 3A 53 B2 33 3A 4C |...S$..(C):S.3:L| 00000A80: 53 B2 31 3A 4C 4F B2 38 39 3A 8D 39 30 30 30 3A |S.1:LO.89:.9000:| 00000A90: 89 31 30 30 00 9F 12 88 13 9E 36 34 37 33 38 00 |.100......64738.| 00000AA0: CE 12 28 23 41 B2 30 3A 99 22 11 20 20 20 20 49 |..(#A.0:.". I| 00000AB0: 4E 53 45 52 54 20 44 49 53 4B 20 41 4E 44 20 50 |NSERT DISK AND P| 00000AC0: 52 45 53 53 20 3C 52 45 54 55 52 4E 3E 22 00 EE |RESS <RETURN>"..| 00000AD0: 12 2D 23 8F 20 50 52 49 4E 54 43 48 52 24 28 33 |.-#. PRINTCHR$(3| 00000AE0: 34 29 2B 53 24 2B 43 48 52 24 28 33 34 29 00 06 |4)+S$+CHR$(34)..| 00000AF0: 13 32 23 A1 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 |.2#.A$:.A$...(13| 00000B00: 29 A7 39 30 31 30 00 2A 13 3C 23 9F 31 35 2C 38 |).9010.*.<#.15,8| 00000B10: 2C 31 35 2C 22 49 30 22 3A A0 31 35 3A 8D 39 33 |,15,"I0":.15:.93| 00000B20: 30 30 3A 8B 41 A7 39 30 37 30 00 56 13 46 23 9F |00:.A.9070.V.F#.| 00000B30: 31 35 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C 22 |15,8,15:.2,8,2,"| 00000B40: 23 30 22 3A 98 31 35 2C 22 55 31 3A 32 2C 30 2C |#0":.15,"U1:2,0,| 00000B50: 31 38 2C 22 3B 53 00 75 13 50 23 98 31 35 2C 22 |18,";S.u.P#.15,"| 00000B60: 4D 2D 57 22 C7 28 4C 4F 29 C7 28 33 29 C7 28 4C |M-W".(LO).(3).(L| 00000B70: 53 29 AA 53 24 00 A1 13 5A 23 98 31 35 2C 22 55 |S).S$...Z#.15,"U| 00000B80: 32 3A 32 2C 30 2C 31 38 2C 22 3B 53 3A A0 32 3A |2:2,0,18,";S:.2:| 00000B90: A0 31 35 3A 8D 39 33 30 30 3A 8B 41 A7 39 30 37 |.15:.9300:.A.907| 00000BA0: 30 00 A7 13 64 23 8E 00 CD 13 6E 23 85 22 11 20 |0...d#....n#.". | 00000BB0: 20 20 20 20 20 20 20 20 20 20 54 52 59 20 41 47 | TRY AG| 00000BC0: 41 49 4E 20 28 59 2F 4E 29 22 3B 41 24 00 E4 13 |AIN (Y/N)";A$...| 00000BD0: 78 23 8B 20 C8 28 41 24 2C 31 29 B2 22 59 22 A7 |x#. .(A$,1)."Y".| 00000BE0: 39 30 32 30 00 FB 13 82 23 8B C8 28 41 24 2C 31 |9020....#..(A$,1| 00000BF0: 29 B3 B1 22 4E 22 A7 39 30 37 30 00 01 14 8C 23 |).."N".9070....#| 00000C00: 8E 00 2D 14 54 24 9F 31 35 2C 38 2C 31 35 3A 84 |..-.T$.15,8,15:.| 00000C10: 31 35 2C 41 24 2C 42 24 2C 43 24 2C 44 24 3A A0 |15,A$,B$,C$,D$:.| 00000C20: 31 35 3A 8B 41 24 B2 22 30 30 22 A7 8E 00 6D 14 |15:.A$."00"...m.| 00000C30: 5E 24 41 B2 31 3A 99 22 11 1C 20 20 20 20 44 49 |^$A.1:.".. DI| 00000C40: 53 4B 20 45 52 52 4F 52 20 4E 4F 2E 22 3B 41 24 |SK ERROR NO.";A$| 00000C50: 3A 99 22 20 20 20 20 22 3B 42 24 3A 99 22 20 20 |:." ";B$:." | 00000C60: 20 20 54 52 41 43 4B 20 22 AA 43 24 3B 00 86 14 | TRACK ".C$;...| 00000C70: 68 24 99 22 2C 53 45 43 54 4F 52 20 22 AA 44 24 |h$.",SECTOR ".D$| 00000C80: AA 22 97 22 3A 8E 00 8C 14 1B 25 80 00 B2 14 1C |.".":.....%.....| 00000C90: 25 99 22 93 97 20 20 20 20 20 20 20 20 20 20 20 |%.".. | 00000CA0: 20 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 | ..............| 00000CB0: A4 22 00 DA 14 26 25 99 22 20 20 20 20 20 20 20 |."...&%." | 00000CC0: 20 20 20 20 20 20 12 20 46 4F 52 4D 41 54 20 45 | . FORMAT E| 00000CD0: 44 49 54 4F 52 20 92 22 3A 8E 00 00 00 |DITOR .":.... |
....D..53280,15:.53281,15:.9500.S.N.A.0:
.".. THIS PROGRAM WILL CUSTOMIZE THE DI
SK"...X.." AND THE MENU SCREEN:.":.".
1. CHANGE DISK NAME".U....". 2. C
HANGE MENU TITLE":.". 3. CHANGE COLU
MN POSITIONS"......". 4. CHANGE ROW
POSITIONS":.". 5. EXIT".3...."..
SELECT OPTION (1-5):".F. ..A$:.A$.
"".160._...A.E(A$):.A.1.A.5.160.....A.1
000,2000,3000,4000,5000......:***DISK NA
ME***.L....9500:.".. A MAXIMUM OF 16 CH
ARACTERS IS ALLOWED"......".. NAME";S
$...... C(S$).16.S$.H(S$,16):.1070.%....
N.1.16:.C(S$).16.S$.S$.G(160).8....C(S$)
.16.1070.?.$..N.B...LS.C(S$):S.0:LO.144:
.9000:.100.Y.P..:***MENU TITLE***...Z..9
500:.".. A MAXIMUM OF 21 CHARACTERS IS
ALLOWED".F....".. TITLE";Q$.Z.... C(Q
$).21.2010.....K..((21.C(Q$)).2):.K.0.20
60......N.1.K:Q$.G(32).Q$:.N./....N.1.10
:.C(Q$).21.2080.B...Q$.Q$.G(32):.N.O. .S
$.H(Q$,7):S.15:LO.249:LS.7:.9000:.A.100.
..*.LS.14:S$.I(Q$,14):S.6:LO.2:.9020:.10
0......:***COLUMN LOCATIONS***...B.A.0:.
9500:.".. THE SCREEN HAS 40 COLUMNS, NU
MBERED"...L.." 1 THROUGH 40. IF A SINGL
E COLUMN IS".I.V.." SUFFICIENT TO DISPL
AY THE PROGRAMS,".V...." THE LOADER PLA
CES THE SINGLE COLUMN"......" START AT
COLUMN #11.".B....". DO YOU WISH TO C
HANGE THIS (Y/N)?".W....A$:.A$."N".3100.
.....A$.."Y".3060......". COLUMN NUMB
ER";C:.C.0.C.35.3080.8...S$.G(C.1):S.3:L
O.106:LS.1:.9000.N....9500:.".. IF TWO
COLUMNS ARE NECESSARY TO DIS-"...&.." P
LAY THE PROGRAMS, THE LOADER PLACES".I.0
.." THE FIRST COLUMN START AT COLUMN #2
"...:.." AND PLACES THE SECOND COLUMN S
TART"...?.." AT COLUMN #22.".4.D..".
CHANGE FIRST COLUMN (Y/N)?".I.N..A$:.A$
."N".3200.[.X..A$.."Y".3150.}.B..". F
IRST COLUMN NUMBER";C...L..C.1.C.35.3170
...V.S$.G(C.1):S.3:LS.1:LO.101:.9000....
..". CHANGE SECOND COLUMN (Y/N)?"....
..A$:.A$."N".100......A$.."Y".3210.%....
". SECOND COLUMN NUMBER";C.9....C.10.
C.35.3230.B...S$.G(C.1):S.3:LS.1:LO.124:
.9000:.100.|. ..:***ROW LOCATIONS***....
.A.0:.9500:.".. THE SCREEN HAS 25 ROWS,
NUMBERED 1"......" THROUGH 25. THE LO
ADER STARTS THE"......" PROGRAM LISTING
AT ROW #6 AND ENDS".8.H.." IT AT ROW #
20, LEAVING EVERY OTHER".D.R.." ROW BLA
NK. YOU CANNOT INCREASE THE"......" FIE
LD SIZE BEYOND THESE SETTINGS"......"
BUT YOU CAN MODIFY THEM FOR BETTER"....
.." CENTERING. .WARNING. - REDUCING TH
E"......" FIELD SIZE WILL REDUCE THE MA
XIMUM".B...." NUMBER OF PROGRAMS THE LO
ADER WILL".T...." DISPLAY.".X....".
CHANGE FIRST ROW (Y/N)?"..."..A$:.A$."N"
.4180...,..A$.."Y".4130...6..". FIRST
ROW NUMBER";C.Q.@..C.6.C.20.4150...J.S$
.G(C.1):S.3:LS.1:LO.84:.9000...T..".
CHANGE LAST ROW (Y/N)?".+.^..A$:.A$."N".
100.=.H..A$.."Y".4190.[.R..". LAST RO
W NUMBER";C.N.|..C.6.C.20.4210.....S$.G(
C):S.3:LS.1:LO.89:.9000:.100......64738.
N.(#A.0:.". INSERT DISK AND PRESS <RE
TURN>"...-#. PRINTCHR$(34)+S$+CHR$(34)..
.2#.A$:.A$..G(13).9010.*.<#.15,8,15,"I0"
: 15:.9300:.A.9070.V.F#.15,8,15:.2,8,2,"
#0":.15,"U1:2,0,18,";S.U.P#.15,"M-W"G(LO
)G(3)G(LS).S$...Z#.15,"U2:2,0,18,";S: 2:
15:.9300:.A.9070...D#..M.N#.".
TRY AGAIN (Y/N)";A$...X#. H(A$,1)."Y".
9020....#.H(A$,1).."N".9070....#..-.T$.1
5,8,15:.15,A$,B$,C$,D$: 15:.A$."00"...M.
^$A.1:.".. DISK ERROR NO.";A$:." "
;B$:." TRACK ".C$;...H$.",SECTOR ".D$
.".":.....%.....%.".. ......
.........".Z.&%." . FORMAT E
DITOR .":....
> CLICK IMAGE PREVIEW FOR FULL MODAL