TCS-TURBOMENU V2
FILE INFORMATION
FILENAME(S): TCS-TURBOMENU V2
FILE TYPE(S): PRG
FILE SIZE: 7.6K
FIRST SEEN: 2025-11-30 19:47:33
APPEARS ON: 1 disk(s)
FILE HASH
f4d53b8e01e10b0f632bf3e5b94e08f37ab80da1af5a3d5e664f45c90313cee3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DANISH GOLD | TCS-TURBOMENU V2 | PRG | Curtcool, Frank | 7 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 C1 07 9E 32 30 37 33 20 54 43 53 2D |.......2073 TCS-|
00000010: 43 52 55 4E 43 48 21 00 00 00 A9 36 85 01 4C 97 |CRUNCH!....6..L.|
00000020: 25 00 86 20 46 24 28 33 32 29 2C 5A 24 28 33 32 |%.. F$(32),Z$(32|
00000030: 29 3A 45 50 B2 C2 28 34 35 29 AA 32 35 36 AC C2 |):EP..(45).256..|
00000040: 28 34 36 29 3A 50 47 B2 45 50 AB 31 38 36 38 3A |(46):PG.EP.1868:|
00000050: 4E 4D B2 50 47 AA 35 31 33 3A 4E 50 B2 30 00 6C |NM.PG.513:NP.0.l|
00000060: 08 0F 00 86 20 50 54 25 28 33 32 29 00 96 08 14 |.... PT%(32)....|
00000070: 00 99 22 93 9A 54 48 45 20 54 2E 43 2E 53 20 54 |.."..THE T.C.S T|
00000080: 55 52 42 4F 20 4D 45 4E 55 20 43 52 45 41 54 4F |URBO MENU CREATO|
00000090: 52 20 56 32 2E 31 00 C0 08 1E 00 99 22 B8 21 79 |R V2.1......".!y|
000000A0: 22 3B 00 F2 08 28 00 99 3A 99 22 05 54 48 49 53 |";...(..:.".THIS|
000000B0: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 43 52 | PROGRAM WILL CR|
000000C0: 45 41 54 45 20 41 20 54 55 52 42 4F 20 44 52 49 |EATE A TURBO DRI|
000000D0: 56 45 4E 22 00 22 09 32 00 99 22 11 4D 45 4E 55 |VEN".".2..".MENU|
000000E0: 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 59 20 | PROGRAM ON ANY |
000000F0: 44 49 53 4B 2C 20 45 56 45 4E 20 49 46 20 54 48 |DISK, EVEN IF TH|
00000100: 45 52 45 22 00 42 09 3C 00 99 22 11 41 52 45 20 |ERE".B.<..".ARE |
00000110: 5A 45 52 4F 20 42 4C 4F 43 4B 53 20 46 52 45 45 |ZERO BLOCKS FREE|
00000120: 20 21 21 22 00 70 09 3D 00 99 3A 99 22 9F 54 48 | !!".p.=..:.".TH|
00000130: 45 20 43 4F 4D 50 55 54 45 52 20 4E 45 45 44 53 |E COMPUTER NEEDS|
00000140: 20 54 4F 20 4B 4E 4F 57 20 48 4F 57 20 4D 41 4E | TO KNOW HOW MAN|
00000150: 59 22 00 9F 09 3E 00 99 22 11 50 41 52 54 53 20 |Y"...>..".PARTS |
00000160: 45 41 43 48 20 4D 41 49 4E 20 50 52 4F 47 52 41 |EACH MAIN PROGRA|
00000170: 4D 20 54 41 4B 45 53 2C 20 42 45 43 41 55 53 45 |M TAKES, BECAUSE|
00000180: 22 00 CF 09 3F 00 99 22 11 54 48 45 20 54 55 52 |"...?..".THE TUR|
00000190: 42 4F 20 52 45 53 49 44 45 53 20 4F 4E 20 54 48 |BO RESIDES ON TH|
000001A0: 45 20 53 43 52 45 45 4E 2C 20 41 4E 44 20 49 46 |E SCREEN, AND IF|
000001B0: 22 00 FE 09 40 00 99 22 11 54 48 45 20 53 43 52 |"...@..".THE SCR|
000001C0: 45 45 4E 20 49 53 20 50 52 49 4E 54 45 44 20 54 |EEN IS PRINTED T|
000001D0: 4F 20 42 45 46 4F 52 45 20 41 4C 4C 20 54 48 45 |O BEFORE ALL THE|
000001E0: 00 2B 0A 41 00 99 22 11 4D 41 49 4E 20 50 41 52 |.+.A..".MAIN PAR|
000001F0: 54 53 20 48 41 56 45 20 42 45 45 4E 20 4C 4F 41 |TS HAVE BEEN LOA|
00000200: 44 45 44 2C 20 54 48 45 20 43 2D 36 34 00 5A 0A |DED, THE C-64.Z.|
00000210: 42 00 99 22 11 57 49 4C 4C 20 43 52 41 53 48 2E |B..".WILL CRASH.|
00000220: 49 46 20 41 20 47 41 4D 45 20 50 52 49 4E 54 53 |IF A GAME PRINTS|
00000230: 20 54 4F 20 54 48 45 20 53 43 52 4E 00 87 0A 43 | TO THE SCRN...C|
00000240: 00 99 22 11 49 4E 20 50 41 52 54 20 4F 4E 45 2C |..".IN PART ONE,|
00000250: 20 12 53 45 54 20 54 48 45 20 4E 4F 2E 50 41 52 | .SET THE NO.PAR|
00000260: 54 53 20 54 4F 20 31 2E 22 00 AF 0A 44 00 99 22 |TS TO 1."...D.."|
00000270: 11 11 05 3D 04 79 3E 50 52 45 53 53 20 53 50 41 |...=.y>PRESS SPA|
00000280: 43 45 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3B |CE TO CONTINUE";|
00000290: 00 C3 0A 45 00 A1 41 24 3A 8B 41 24 B3 B1 22 20 |...E..A$:.A$.." |
000002A0: 22 A7 36 39 00 F7 0A 46 00 99 3A 99 22 11 03 79 |".69...F..:."..y|
000002B0: 05 49 46 20 41 20 50 52 4F 47 52 41 4D 20 4E 41 |.IF A PROGRAM NA|
000002C0: 4D 45 20 44 4F 45 53 20 4E 4F 54 20 53 54 41 52 |ME DOES NOT STAR|
000002D0: 54 20 57 49 54 48 20 41 00 29 0B 47 00 99 22 11 |T WITH A.).G..".|
000002E0: 53 50 41 43 45 2C 20 54 48 45 20 43 4F 4D 50 55 |SPACE, THE COMPU|
000002F0: 54 45 52 20 57 49 4C 4C 20 41 53 53 55 4D 45 20 |TER WILL ASSUME |
00000300: 54 48 41 54 20 41 4E 59 22 3B 00 5B 0B 48 00 99 |THAT ANY";.[.H..|
00000310: 22 11 46 49 4C 45 53 20 46 4F 4C 4C 4F 57 49 4E |".FILES FOLLOWIN|
00000320: 47 20 57 48 49 43 48 20 53 54 41 52 54 20 57 49 |G WHICH START WI|
00000330: 54 48 20 41 20 53 50 41 43 45 22 3B 00 88 0B 49 |TH A SPACE";...I|
00000340: 00 99 22 11 41 52 45 20 50 41 52 54 20 4F 46 20 |..".ARE PART OF |
00000350: 54 48 49 53 20 27 4D 41 49 4E 20 50 52 4F 47 52 |THIS 'MAIN PROGR|
00000360: 41 4D 27 2E 20 20 41 4E 44 00 B7 0B 4A 00 99 22 |AM'. AND...J.."|
00000370: 11 57 49 4C 4C 20 54 4F 54 41 4C 20 54 48 45 53 |.WILL TOTAL THES|
00000380: 45 20 54 4F 20 57 4F 52 4B 20 4F 55 54 20 54 48 |E TO WORK OUT TH|
00000390: 45 20 4E 55 4D 42 45 52 00 E6 0B 4B 00 99 22 11 |E NUMBER...K..".|
000003A0: 4F 46 20 50 41 52 54 53 2E 20 20 53 4F 2C 20 57 |OF PARTS. SO, W|
000003B0: 48 45 4E 20 53 45 54 54 49 4E 47 20 55 50 20 59 |HEN SETTING UP Y|
000003C0: 4F 55 52 20 4E 45 57 00 13 0C 4C 00 99 22 11 44 |OUR NEW...L..".D|
000003D0: 49 52 45 43 54 4F 52 59 2C 20 50 55 54 20 54 48 |IRECTORY, PUT TH|
000003E0: 45 20 32 4E 44 2C 33 52 44 2C 45 54 43 2E 20 50 |E 2ND,3RD,ETC. P|
000003F0: 41 52 54 53 00 42 0C 4D 00 99 22 11 41 46 54 45 |ARTS.B.M..".AFTE|
00000400: 52 20 54 48 45 20 4D 41 49 4E 20 50 52 4F 47 2E |R THE MAIN PROG.|
00000410: 20 20 55 53 49 4E 47 20 54 48 49 53 20 4D 45 54 | USING THIS MET|
00000420: 48 4F 44 00 71 0C 4E 00 99 22 11 57 49 4C 4C 20 |HOD.q.N..".WILL |
00000430: 41 4C 53 4F 20 47 49 56 45 20 41 20 12 56 45 52 |ALSO GIVE A .VER|
00000440: 59 20 54 49 44 59 20 44 49 52 45 43 54 4F 52 59 |Y TIDY DIRECTORY|
00000450: 2E 22 00 A3 0C 5A 00 99 22 11 11 1C 50 4C 45 41 |."...Z.."...PLEA|
00000460: 53 45 20 4E 4F 54 45 20 3A 20 4D 41 58 20 4E 4F |SE NOTE : MAX NO|
00000470: 2E 49 4E 50 55 54 20 46 49 4C 45 53 20 03 79 3D |.INPUT FILES .y=|
00000480: 20 31 36 22 00 D2 0C 5B 00 99 22 20 0E 79 4D 41 | 16"...[.." .yMA|
00000490: 58 20 4E 4F 2E 4D 45 4E 55 20 50 52 4F 47 52 41 |X NO.MENU PROGRA|
000004A0: 4D 53 20 3D 20 31 36 22 00 F0 0C C3 00 8F 20 2A |MS = 16"...... *|
000004B0: 04 79 20 57 41 49 54 20 46 4F 52 20 44 49 53 4B |.y WAIT FOR DISK|
000004C0: 20 2A 04 79 00 22 0D C8 00 99 22 11 11 9A 57 41 | *.y."...."...WA|
000004D0: 4E 54 20 54 4F 20 56 41 4C 49 44 41 54 45 20 54 |NT TO VALIDATE T|
000004E0: 48 45 20 44 49 53 4B 20 46 49 52 53 54 20 28 59 |HE DISK FIRST (Y|
000004F0: 2F 4E 29 20 3F 22 00 36 0D CD 00 A1 41 24 3A 8B |/N) ?".6....A$:.|
00000500: 41 24 B2 22 4E 22 A7 32 32 30 00 48 0D CE 00 8B |A$."N".220.H....|
00000510: 20 41 24 B3 B1 22 59 22 A7 32 30 35 00 7D 0D D2 | A$.."Y".205.}..|
00000520: 00 99 22 93 9A 56 41 4C 49 44 41 54 49 4E 47 20 |.."..VALIDATING |
00000530: 44 49 53 4B 20 2E 04 79 22 3A 9F 31 35 2C 38 2C |DISK ..y":.15,8,|
00000540: 31 35 2C 22 56 30 22 3A 8D 33 30 30 3A A0 31 35 |15,"V0":.300:.15|
00000550: 00 94 0D DC 00 9F 31 35 2C 38 2C 31 35 2C 22 49 |......15,8,15,"I|
00000560: 30 22 3A 8D 33 30 30 00 9F 0D E6 00 89 20 31 30 |0":.300...... 10|
00000570: 03 79 00 BC 0D 27 01 8F 20 2A 04 79 20 44 49 53 |.y...'.. *.y DIS|
00000580: 4B 20 45 52 52 4F 52 20 3F 20 2A 04 79 00 DC 0D |K ERROR ? *.y...|
00000590: 2C 01 84 31 35 2C 45 31 24 2C 45 32 24 2C 45 33 |,..15,E1$,E2$,E3|
000005A0: 24 3A 8B 45 31 24 B2 22 30 30 22 A7 8E 00 03 0E |$:.E1$."00".....|
000005B0: 36 01 99 22 93 12 9A 44 49 53 4B 20 45 52 52 4F |6.."...DISK ERRO|
000005C0: 52 20 3A 20 22 45 31 24 22 2C 22 45 32 24 22 2C |R : "E1$","E2$",|
000005D0: 22 45 33 24 00 16 0E 40 01 99 22 11 11 22 3A A0 |"E3$...@.."..":.|
000005E0: 32 3A A0 31 35 3A 80 00 38 0E E3 03 8F 20 2A 04 |2:.15:..8.... *.|
000005F0: 79 20 43 52 45 41 54 45 20 50 52 4F 47 20 4D 45 |y CREATE PROG ME|
00000600: 4E 55 20 2A 05 79 00 4C 0E E8 03 9F 32 2C 38 2C |NU *.y.L....2,8,|
00000610: 32 2C 22 23 22 3A 8D 33 30 30 00 66 0E 4C 04 8F |2,"#":.300.f.L..|
00000620: 20 43 52 45 41 54 45 20 48 45 41 44 45 52 20 45 | CREATE HEADER E|
00000630: 4E 54 52 59 00 8A 0E 56 04 99 22 93 9A 52 45 41 |NTRY...V.."..REA|
00000640: 44 49 4E 47 20 44 49 53 4B 20 44 49 52 45 43 54 |DING DISK DIRECT|
00000650: 4F 52 59 2E 04 79 22 00 99 0E 5C 04 4E 54 B2 31 |ORY..y"...\.NT.1|
00000660: 38 3A 4E 53 B2 31 00 AD 0E 5D 04 54 B2 4E 54 3A |8:NS.1...].T.NT:|
00000670: 53 B2 4E 53 3A 8D 35 30 03 79 00 C8 0E 60 04 8D |S.NS:.50.y...`..|
00000680: 35 30 33 30 3A 8B 4E 54 B2 30 AF 50 B1 32 35 38 |5030:.NT.0.P.258|
00000690: A7 31 32 30 30 00 D8 0E 6A 04 8B 50 B1 32 35 38 |.1200...j..P.258|
000006A0: A7 31 03 79 37 00 F2 0E 6F 04 8B 20 28 54 46 20 |.1.y7...o.. (TF |
000006B0: AF 20 31 33 30 29 B2 30 20 A7 20 31 31 32 30 00 |. 130).0 . 1120.|
000006C0: 1B 0F 74 04 4E 50 B2 4E 50 AA 31 3A 8B 4E 50 B3 |..t.NP.NP.1:.NP.|
000006D0: 31 37 A7 5A 24 28 4E 50 29 B2 C7 28 54 46 29 AA |17.Z$(NP)..(TF).|
000006E0: 4E 24 3A 89 31 31 32 30 00 53 0F 7E 04 99 22 93 |N$:.1120.S.~..".|
000006F0: 12 9A 54 48 45 52 45 20 41 52 45 20 54 4F 4F 20 |..THERE ARE TOO |
00000700: 4D 41 4E 59 20 50 52 4F 47 52 41 4D 53 20 4F 4E |MANY PROGRAMS ON|
00000710: 20 54 48 45 20 44 49 53 4B 21 22 3A 89 33 32 30 | THE DISK!":.320|
00000720: 00 76 0F AB 04 8F 20 50 52 4F 47 52 41 4D 53 20 |.v.... PROGRAMS |
00000730: 41 52 45 20 4E 4F 57 20 49 4E 20 41 52 52 41 59 |ARE NOW IN ARRAY|
00000740: 20 5A 24 00 B5 0F B0 04 50 B2 4E 50 3A 8D 37 30 | Z$.....P.NP:.70|
00000750: 03 79 3A 81 49 B2 31 A4 4E 50 3A 50 54 25 28 49 |.y:.I.1.NP:PT%(I|
00000760: 29 B2 30 3A 46 24 28 49 29 B2 22 22 3A 82 3A 43 |).0:F$(I)."":.:C|
00000770: 24 28 30 29 B2 22 98 22 3A 43 24 28 31 29 B2 22 |$(0).".":C$(1)."|
00000780: 05 22 00 E7 0F B1 04 99 22 93 9F 59 4F 55 20 4D |."......"..YOU M|
00000790: 55 53 54 20 4E 4F 57 20 53 50 45 43 49 46 59 20 |UST NOW SPECIFY |
000007A0: 57 48 41 54 20 46 49 4C 45 53 20 59 4F 55 20 57 |WHAT FILES YOU W|
000007B0: 49 53 48 22 00 15 10 B2 04 99 22 54 4F 20 41 50 |ISH"......"TO AP|
000007C0: 50 45 41 52 20 49 4E 20 54 48 45 20 4E 45 57 20 |PEAR IN THE NEW |
000007D0: 44 49 52 45 43 54 4F 52 59 2C 20 41 4E 44 20 49 |DIRECTORY, AND I|
000007E0: 4E 22 00 40 10 B3 04 99 22 11 57 48 41 54 20 4F |N".@....".WHAT O|
000007F0: 52 44 45 52 20 54 48 45 59 20 53 48 4F 55 4C 44 |RDER THEY SHOULD|
00000800: 20 41 50 50 45 41 52 2C 20 41 4E 59 22 00 6F 10 | APPEAR, ANY".o.|
00000810: B4 04 99 22 11 46 49 4C 45 53 20 57 48 49 43 48 |...".FILES WHICH|
00000820: 20 59 4F 55 20 4D 49 53 53 20 4F 46 46 20 54 48 | YOU MISS OFF TH|
00000830: 45 20 4D 45 4E 55 20 4C 49 53 54 22 00 96 10 B5 |E MENU LIST"....|
00000840: 04 99 22 11 57 49 4C 4C 20 42 45 20 44 45 4C 45 |..".WILL BE DELE|
00000850: 54 45 44 20 46 52 4F 4D 20 54 48 45 20 44 49 53 |TED FROM THE DIS|
00000860: 4B 2E 22 00 C7 10 B6 04 99 22 11 1E 41 46 54 45 |K."......"..AFTE|
00000870: 52 20 59 4F 55 20 48 41 56 45 20 43 52 45 41 54 |R YOU HAVE CREAT|
00000880: 45 44 20 54 48 45 20 4E 45 57 20 44 49 52 45 43 |ED THE NEW DIREC|
00000890: 54 4F 52 59 00 F2 10 B7 04 99 22 54 48 45 20 43 |TORY......"THE C|
000008A0: 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 49 4E 54 |OMPUTER WILL INT|
000008B0: 45 4C 4C 49 47 45 4E 54 4C 59 20 57 4F 52 4B 00 |ELLIGENTLY WORK.|
000008C0: 22 11 B8 04 99 22 11 4F 55 54 20 48 4F 57 20 4D |"....".OUT HOW M|
000008D0: 41 4E 59 20 50 41 52 54 53 20 45 41 43 48 20 4D |ANY PARTS EACH M|
000008E0: 41 49 4E 20 46 49 4C 45 20 49 53 20 49 4E 2E 00 |AIN FILE IS IN..|
000008F0: 4E 11 B9 04 99 22 49 46 20 54 48 45 20 43 4F 4D |N...."IF THE COM|
00000900: 50 55 54 45 52 20 47 45 54 53 20 49 54 20 57 52 |PUTER GETS IT WR|
00000910: 4F 4E 47 20 50 52 45 53 53 20 41 00 7F 11 BA 04 |ONG PRESS A.....|
00000920: 99 22 11 4E 55 4D 42 45 52 20 28 31 2D 39 29 20 |.".NUMBER (1-9) |
00000930: 54 4F 20 53 45 54 20 54 48 45 20 4E 55 4D 42 45 |TO SET THE NUMBE|
00000940: 52 20 4F 46 20 50 41 52 54 53 2E 22 00 AE 11 BB |R OF PARTS."....|
00000950: 04 99 22 57 48 45 4E 20 59 4F 55 20 48 41 56 45 |.."WHEN YOU HAVE|
00000960: 20 46 49 4E 49 53 48 45 44 2C 20 50 52 45 53 53 | FINISHED, PRESS|
00000970: 20 52 45 54 55 52 4E 20 41 4E 44 00 DA 11 BC 04 | RETURN AND.....|
00000980: 99 22 54 48 45 20 4E 45 58 54 20 46 49 4C 45 4E |."THE NEXT FILEN|
00000990: 41 4D 45 20 57 49 4C 4C 20 42 45 20 44 49 53 50 |AME WILL BE DISP|
000009A0: 4C 41 59 45 44 2E 22 00 0A 12 BD 04 99 22 11 05 |LAYED."......"..|
000009B0: 3D 04 79 3E 50 52 45 53 53 20 53 50 41 43 45 20 |=.y>PRESS SPACE |
000009C0: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3B 3A 51 51 |TO CONTINUE";:QQ|
000009D0: B2 30 3A 50 B2 31 00 20 12 BE 04 A1 41 24 3A 8B |.0:P.1. ....A$:.|
000009E0: 41 24 B3 B1 22 20 22 A7 31 32 31 34 00 4F 12 BF |A$.." ".1214.O..|
000009F0: 04 99 22 93 9A 53 45 4C 45 43 54 20 46 49 4C 45 |.."..SELECT FILE|
00000A00: 20 55 53 49 4E 47 20 43 55 52 53 4F 52 20 4B 45 | USING CURSOR KE|
00000A10: 59 53 2C 20 52 45 54 55 52 4E 22 00 99 12 C0 04 |YS, RETURN".....|
00000A20: 99 22 11 53 45 4C 45 43 54 53 20 41 20 46 49 4C |.".SELECTS A FIL|
00000A30: 45 20 46 4F 52 20 49 4E 43 4C 55 53 49 4F 4E 20 |E FOR INCLUSION |
00000A40: 49 4E 20 4E 45 57 20 44 49 52 22 3A 99 22 11 2A |IN NEW DIR":.".*|
00000A50: 50 52 45 53 53 20 53 50 41 43 45 20 54 4F 20 46 |PRESS SPACE TO F|
00000A60: 49 4E 49 53 48 00 CA 12 C1 04 99 22 98 C0 15 79 |INISH......"...y|
00000A70: B2 C0 11 79 22 3B 00 14 13 C2 04 81 49 B2 31 A4 |...y";......I.1.|
00000A80: 4E 50 3A 97 32 31 34 2C 49 AA 34 3A 99 3A 99 43 |NP:.214,I.4:.:.C|
00000A90: 24 28 50 54 25 28 49 29 29 22 20 04 79 22 3B 3A |$(PT%(I))" .y";:|
00000AA0: 42 24 B2 CA 28 5A 24 28 49 29 2C 34 2C 31 36 29 |B$..(Z$(I),4,16)|
00000AB0: 3A 8D 36 31 30 30 3A 99 22 98 20 DD 20 22 3B 00 |:.6100:.". . ";.|
00000AC0: 5E 13 C3 04 42 24 B2 CA 28 46 24 28 49 29 2C 34 |^...B$..(F$(I),4|
00000AD0: 2C 31 36 29 3A 8D 36 31 30 30 3A 99 3A 82 3A 99 |,16):.6100:.:.:.|
00000AE0: 22 98 C0 15 79 B1 C0 11 79 00 9B 13 C4 04 97 32 |"...y...y......2|
00000AF0: 31 34 2C 50 AA 34 3A 99 3A 99 22 98 3D 03 79 3E |14,P.4:.:.".=.y>|
00000B00: 12 22 43 24 28 50 54 25 28 50 29 29 3B 3A 42 24 |."C$(PT%(P));:B$|
00000B10: B2 CA 28 5A 24 28 50 29 2C 34 2C 31 36 29 3A 8D |..(Z$(P),4,16):.|
00000B20: 36 31 30 30 3A 99 00 CB 13 C5 04 A1 41 24 3A 8B |6100:.......A$:.|
00000B30: 41 24 B3 B1 22 11 22 AF 41 24 B3 B1 22 91 22 AF |A$..".".A$..".".|
00000B40: 41 24 B3 B1 22 20 22 AF 41 24 B3 B1 C7 28 31 33 |A$.." ".A$...(13|
00000B50: 29 A7 31 32 32 31 00 FF 13 C6 04 99 22 91 20 04 |).1221......". .|
00000B60: 79 22 3B 3A 42 24 B2 CA 28 5A 24 28 50 29 2C 34 |y";:B$..(Z$(P),4|
00000B70: 2C 31 36 29 3A 8D 36 31 30 30 3A 99 3A 8B 41 24 |,16):.6100:.:.A$|
00000B80: B2 22 20 22 A7 31 32 32 39 00 1C 14 C7 04 8B 41 |." ".1229......A|
00000B90: 24 B2 22 11 22 AF 50 B3 4E 50 A7 50 B2 50 AA 31 |$.".".P.NP.P.P.1|
00000BA0: 3A 89 31 32 32 30 00 38 14 C8 04 8B 41 24 B2 22 |:.1220.8....A$."|
00000BB0: 91 22 AF 50 B1 31 A7 50 B2 50 AB 31 3A 89 31 32 |.".P.1.P.P.1:.12|
00000BC0: 32 30 00 4C 14 C9 04 8B 41 24 B3 B1 C7 28 31 33 |20.L....A$...(13|
00000BD0: 29 A7 31 32 32 30 00 6D 14 CA 04 46 B2 30 3A 81 |).1220.m...F.0:.|
00000BE0: 49 B2 31 A4 51 51 3A 8B 5A 24 28 50 29 B2 46 24 |I.1.QQ:.Z$(P).F$|
00000BF0: 28 49 29 A7 46 B2 31 00 7B 14 CB 04 82 3A 8B 46 |(I).F.1.{....:.F|
00000C00: A7 31 32 32 30 00 BD 14 CC 04 51 51 B2 51 51 AA |.1220.....QQ.QQ.|
00000C10: 31 3A 46 24 28 51 51 29 B2 5A 24 28 50 29 3A 50 |1:F$(QQ).Z$(P):P|
00000C20: 54 25 28 50 29 B2 31 3A 97 32 31 34 2C 51 51 AA |T%(P).1:.214,QQ.|
00000C30: 34 3A 99 3A 97 32 31 31 2C 32 32 3A 8D 36 31 34 |4:.:.211,22:.614|
00000C40: 30 3A 89 31 32 32 30 00 DA 14 CD 04 81 49 B2 31 |0:.1220......I.1|
00000C50: A4 51 51 3A 50 54 25 28 49 29 B2 30 3A 82 3A 8D |.QQ:PT%(I).0:.:.|
00000C60: 36 31 32 30 00 0E 15 CE 04 99 22 93 9A 50 4C 45 |6120......"..PLE|
00000C70: 41 53 45 20 53 50 45 43 49 46 59 20 48 4F 57 20 |ASE SPECIFY HOW |
00000C80: 4D 41 4E 59 20 50 41 52 54 53 20 45 41 43 48 20 |MANY PARTS EACH |
00000C90: 46 49 4C 45 22 20 03 79 00 5B 15 CF 04 99 22 11 |FILE" .y.[....".|
00000CA0: 49 53 20 49 4E 20 27 30 2D 39 27 20 28 12 30 20 |IS IN '0-9' (.0 |
00000CB0: 3D 20 4E 4F 54 20 54 4F 20 41 50 50 45 41 52 20 |= NOT TO APPEAR |
00000CC0: 49 4E 20 4D 45 4E 55 92 29 22 3A 99 22 11 54 4F |IN MENU.)":.".TO|
00000CD0: 20 46 49 4E 49 53 48 20 50 52 45 53 53 20 52 45 | FINISH PRESS RE|
00000CE0: 54 55 52 4E 2E 00 99 15 D0 04 4C 4E 24 B2 22 98 |TURN......LN$.".|
00000CF0: C0 27 79 22 3A 99 4C 4E 24 3A 4E 50 B2 51 51 00 |.'y":.LN$:NP.QQ.|
00000D00: D5 15 D1 04 81 49 B2 31 A4 4E 50 3A 42 24 B2 CA |.....I.1.NP:B$..|
00000D10: 28 46 24 28 49 29 2C 34 2C 31 36 29 3A 99 22 20 |(F$(I),4,16):." |
00000D20: 04 79 22 3B 3A 50 B2 49 3A 8D 36 31 31 30 3A 82 |.y";:P.I:.6110:.|
00000D30: 3A 50 B2 31 3A 99 4C 4E 24 3B 00 06 16 D2 04 97 |:P.1:.LN$;......|
00000D40: 32 31 34 2C 50 AA 34 3A 99 3A 99 22 98 3D 03 79 |214,P.4:.:.".=.y|
00000D50: 3E 12 22 3B 3A 42 24 B2 CA 28 46 24 28 50 29 2C |>.";:B$..(F$(P),|
00000D60: 34 2C 31 36 29 3A 8D 36 31 31 30 00 47 16 D3 04 |4,16):.6110.G...|
00000D70: A1 41 24 3A 8B 28 41 24 B1 22 2F 22 AF 41 24 B3 |.A$:.(A$."/".A$.|
00000D80: 22 3A 22 29 AF CA 28 46 24 28 50 29 2C 34 2C 31 |":")..(F$(P),4,1|
00000D90: 29 B3 B1 22 20 22 A7 50 54 25 28 50 29 B2 C6 28 |).." ".PT%(P)..(|
00000DA0: 41 24 29 AB 34 38 3A 89 31 32 33 34 00 6B 16 D4 |A$).48:.1234.k..|
00000DB0: 04 8B 41 24 B3 B1 22 91 22 AF 41 24 B3 B1 22 11 |..A$..".".A$..".|
00000DC0: 22 AF 41 24 B3 B1 C7 28 31 33 29 A7 31 32 33 35 |".A$...(13).1235|
00000DD0: 00 93 16 D5 04 99 22 91 20 04 79 92 22 3B 3A 42 |......". .y.";:B|
00000DE0: 24 B2 CA 28 46 24 28 50 29 2C 34 2C 31 36 29 3A |$..(F$(P),4,16):|
00000DF0: 8D 36 31 30 30 3A 99 00 AA 16 D6 04 8B 41 24 B2 |.6100:.......A$.|
00000E00: 22 11 22 AF 50 B3 4E 50 A7 50 B2 50 AA 31 00 C0 |".".P.NP.P.P.1..|
00000E10: 16 D7 04 8B 41 24 B2 22 91 22 AF 50 B1 31 A7 50 |....A$.".".P.1.P|
00000E20: B2 50 AB 31 00 D4 16 D8 04 8B 41 24 B3 B1 C7 28 |.P.1......A$...(|
00000E30: 31 33 29 A7 31 32 33 34 00 DE 16 E9 04 99 22 9A |13).1234......".|
00000E40: 22 3B 00 20 17 EA 04 42 B2 30 3A 81 49 B2 31 A4 |";. ...B.0:.I.1.|
00000E50: 4E 50 3A 8B 50 54 25 28 49 29 B1 30 AF CA 28 46 |NP:.PT%(I).0..(F|
00000E60: 24 28 49 29 2C 34 2C 31 29 B3 B1 22 20 22 A7 97 |$(I),4,1).." "..|
00000E70: 4E 4D AB 31 36 AA 42 2C 50 54 25 28 49 29 3A 42 |NM.16.B,PT%(I):B|
00000E80: B2 42 AA 31 00 26 17 EB 04 82 00 46 17 05 05 8F |.B.1.&.....F....|
00000E90: 20 52 45 57 52 49 54 45 20 44 49 52 45 43 54 4F | REWRITE DIRECTO|
00000EA0: 52 59 20 54 4F 20 44 49 53 4B 00 7A 17 0A 05 4E |RY TO DISK.z...N|
00000EB0: 24 B2 C7 28 31 33 30 29 AA C7 28 31 38 29 AA C7 |$..(130)..(18)..|
00000EC0: 28 30 29 AA 22 4D 45 4E 55 2D 54 43 53 A0 08 79 |(0)."MENU-TCS..y|
00000ED0: 22 3A 41 24 B2 C7 28 30 29 00 AD 17 14 05 4E 24 |":A$..(0).....N$|
00000EE0: B2 4E 24 AA 41 24 AA 41 24 AA 41 24 AA 41 24 AA |.N$.A$.A$.A$.A$.|
00000EF0: 41 24 AA 41 24 AA 41 24 AA 41 24 AA 41 24 AA C7 |A$.A$.A$.A$.A$..|
00000F00: 28 38 29 AA 41 24 AA 41 24 AA 41 24 00 BE 17 15 |(8).A$.A$.A$....|
00000F10: 05 46 24 28 30 29 B2 4E 24 3A 53 B2 31 00 E7 17 |.F$(0).N$:S.1...|
00000F20: 1E 05 99 22 93 9A 52 45 2D 57 52 49 54 49 4E 47 |..."..RE-WRITING|
00000F30: 20 44 49 52 45 43 54 4F 52 59 20 42 4C 4F 43 4B | DIRECTORY BLOCK|
00000F40: 53 2E 04 79 22 00 0B 18 1F 05 81 49 B2 31 A4 31 |S..y"......I.1.1|
00000F50: 38 3A 98 31 35 2C 22 42 2D 46 22 3B 30 3B 31 38 |8:.15,"B-F";0;18|
00000F60: 3B 49 3A 82 3A 8D 33 30 30 00 13 18 28 05 49 B2 |;I:.:.300...(.I.|
00000F70: 30 00 2D 18 32 05 98 31 35 2C 22 42 2D 41 22 3B |0.-.2..15,"B-A";|
00000F80: 30 3B 31 38 3B 53 3A 8D 33 30 30 00 44 18 34 05 |0;18;S:.300.D.4.|
00000F90: 98 31 35 2C 22 42 2D 50 22 3B 32 3B 30 3A 8D 33 |.15,"B-P";2;0:.3|
00000FA0: 30 30 00 75 18 46 05 53 53 B2 53 3A 53 B2 53 AA |00.u.F.SS.S:S.S.|
00000FB0: 31 3A 54 B2 31 38 3A 43 B2 4E 50 AB B5 28 49 AD |1:T.18:C.NP..(I.|
00000FC0: 38 29 AC 38 3A 8B 43 B3 38 A7 54 B2 30 3A 53 B2 |8).8:.C.8.T.0:S.|
00000FD0: 32 35 35 00 8A 18 50 05 41 24 B2 C7 28 54 29 AA |255...P.A$..(T).|
00000FE0: C7 28 53 29 3A 42 B2 30 00 B8 18 5A 05 8B 49 B3 |.(S):B.0...Z..I.|
00000FF0: B2 4E 50 A7 41 24 B2 41 24 AA 46 24 28 49 29 3A |.NP.A$.A$.F$(I):|
00001000: 49 B2 49 AA 31 3A 42 B2 42 AA 31 3A 8B 42 B3 B1 |I.I.1:B.B.1:.B..|
00001010: 37 A7 31 33 37 30 00 E1 18 5F 05 8B 49 B3 B2 4E |7.1370..._..I..N|
00001020: 50 AF 42 B2 37 A7 41 24 B2 41 24 AA CA 28 46 24 |P.B.7.A$.A$..(F$|
00001030: 28 49 29 2C 31 2C 32 39 29 3A 49 B2 49 AA 31 00 |(I),1,29):I.I.1.|
00001040: 02 19 64 05 8B C3 28 41 24 29 B3 B1 32 35 35 A7 |..d...(A$)..255.|
00001050: 41 24 B2 41 24 AA C7 28 30 29 3A 89 31 33 38 30 |A$.A$..(0):.1380|
00001060: 00 2E 19 6E 05 98 32 2C 41 24 3B 3A 98 31 35 2C |...n..2,A$;:.15,|
00001070: 22 55 32 3A 22 3B 32 3B 30 3B 31 38 3B 53 53 3A |"U2:";2;0;18;SS:|
00001080: 8D 33 30 30 3A 8B 54 A7 31 33 33 30 00 40 19 70 |.300:.T.1330.@.p|
00001090: 05 98 31 35 2C 22 42 2D 50 22 3B 32 3B 30 00 65 |..15,"B-P";2;0.e|
000010A0: 19 71 05 98 31 35 2C 22 55 31 3A 22 3B 32 3B 30 |.q..15,"U1:";2;0|
000010B0: 3B 31 38 3B 31 3A 98 31 35 2C 22 42 2D 50 22 3B |;18;1:.15,"B-P";|
000010C0: 32 3B 34 00 75 19 72 05 98 32 2C C7 28 53 53 AA |2;4.u.r..2,.(SS.|
000010D0: 31 29 3B 00 91 19 73 05 98 31 35 2C 22 55 32 3A |1);...s..15,"U2:|
000010E0: 22 3B 32 3B 30 3B 31 38 3B 31 3A 8D 33 30 30 00 |";2;0;18;1:.300.|
000010F0: 9D 19 78 05 41 B2 30 3A 42 B2 31 00 C1 19 82 05 |..x.A.0:B.1.....|
00001100: 8B CA 28 46 24 28 42 29 2C 34 2C 31 29 B2 22 20 |..(F$(B),4,1)." |
00001110: 22 B0 50 54 25 28 42 29 B2 30 A7 31 34 31 35 00 |".PT%(B).0.1415.|
00001120: F5 19 84 05 81 49 B2 30 A4 31 35 3A 97 4E 4D AA |.....I.0.15:.NM.|
00001130: 41 AA 49 2C C6 28 CA 28 46 24 28 42 29 2C 49 AA |A.I,.(.(F$(B),I.|
00001140: 34 2C 31 29 AA C7 28 30 29 29 3A 82 3A 41 B2 41 |4,1)..(0)):.:A.A|
00001150: AA 31 36 00 0C 1A 87 05 42 B2 42 AA 31 3A 8B 4E |.16.....B.B.1:.N|
00001160: 50 AA 31 B1 42 A7 31 34 31 30 00 2A 1A 8C 05 97 |P.1.B.1410.*....|
00001170: 4E 4D AA 41 2C 30 3A 41 B2 41 AA 31 3A 8B 41 B3 |NM.A,0:A.A.1:.A.|
00001180: 32 35 36 A7 31 34 32 30 00 53 1A 91 05 99 22 93 |256.1420.S....".|
00001190: 57 52 49 54 49 4E 47 20 4D 45 4E 55 20 50 52 4F |WRITING MENU PRO|
000011A0: 47 52 41 4D 20 54 4F 20 44 49 53 4B 2E 04 79 22 |GRAM TO DISK..y"|
000011B0: 00 64 1A 96 05 41 44 B2 50 47 3A 53 B2 53 53 AA |.d...AD.PG:S.SS.|
000011C0: 31 00 76 1A 9B 05 98 31 35 2C 22 42 2D 50 22 3B |1.v....15,"B-P";|
000011D0: 32 3B 30 00 A6 1A A0 05 4C 24 B2 C7 28 31 38 29 |2;0.....L$..(18)|
000011E0: AA C7 28 53 AA 31 29 3A 41 B2 45 50 AB 41 44 3A |..(S.1):A.EP.AD:|
000011F0: 8B 41 B3 32 35 34 A7 4C 24 B2 C7 28 30 29 AA C7 |.A.254.L$..(0)..|
00001200: 28 41 29 00 D6 1A AA 05 41 24 B2 22 22 3A 81 49 |(A).....A$."":.I|
00001210: B2 30 A4 32 35 33 3A 41 24 B2 41 24 AA C7 28 C2 |.0.253:A$.A$..(.|
00001220: 28 41 44 AA 49 29 29 3A 82 3A 41 44 B2 41 44 AA |(AD.I)):.:AD.AD.|
00001230: 32 35 34 00 E3 1A AF 05 98 32 2C 4C 24 41 24 3B |254......2,L$A$;|
00001240: 00 FA 1A BE 05 98 31 35 2C 22 55 32 3A 22 3B 32 |......15,"U2:";2|
00001250: 3B 30 3B 31 38 3B 53 00 10 1B C8 05 53 B2 53 AA |;0;18;S.....S.S.|
00001260: 31 3A 8B 45 50 B1 41 44 A7 31 34 33 35 00 44 1B |1:.EP.AD.1435.D.|
00001270: C9 05 99 22 93 9A 44 4F 20 59 4F 55 20 57 49 53 |..."..DO YOU WIS|
00001280: 48 20 54 4F 20 56 41 4C 49 44 41 54 45 20 54 48 |H TO VALIDATE TH|
00001290: 45 20 44 49 53 4B 20 3F 28 59 2F 4E 29 11 03 79 |E DISK ?(Y/N)..y|
000012A0: 22 00 77 1B CA 05 99 22 12 1C 20 20 49 46 20 59 |".w....".. IF Y|
000012B0: 4F 55 20 44 4F 20 4E 4F 54 20 56 41 4C 49 44 41 |OU DO NOT VALIDA|
000012C0: 54 45 20 54 48 45 20 44 49 53 4B 2C 20 54 48 45 |TE THE DISK, THE|
000012D0: 20 20 22 3B 00 A9 1B CB 05 99 22 12 20 20 4E 55 | ";......". NU|
000012E0: 4D 42 45 52 20 4F 46 20 42 4C 4F 43 4B 53 20 46 |MBER OF BLOCKS F|
000012F0: 52 45 45 20 57 49 4C 4C 20 42 45 20 57 52 4F 4E |REE WILL BE WRON|
00001300: 47 2E 20 20 9A 22 00 BE 1B CC 05 A1 41 24 3A 8B |G. ."......A$:.|
00001310: 41 24 B2 22 4E 22 A7 31 34 39 30 00 D0 1B CD 05 |A$."N".1490.....|
00001320: 8B 41 24 B3 B1 22 59 22 A7 31 34 38 34 00 F8 1B |.A$.."Y".1484...|
00001330: CE 05 99 22 93 56 41 4C 49 44 41 54 49 4E 47 20 |...".VALIDATING |
00001340: 44 49 53 4B 20 2E 04 79 20 50 4C 45 41 53 45 20 |DISK ..y PLEASE |
00001350: 57 41 49 54 00 09 1C D1 05 98 31 35 2C 22 56 22 |WAIT......15,"V"|
00001360: 3A 8D 33 30 30 00 20 1C D2 05 99 22 93 9A 46 49 |:.300. ...."..FI|
00001370: 4E 49 53 48 45 44 2E 05 79 22 00 51 1C D3 05 99 |NISHED..y".Q....|
00001380: 22 11 11 05 54 48 45 20 50 52 4F 47 52 41 4D 53 |"...THE PROGRAMS|
00001390: 20 48 41 56 45 20 42 45 45 4E 20 52 45 2D 57 52 | HAVE BEEN RE-WR|
000013A0: 49 54 54 45 4E 20 4F 4E 54 4F 22 00 7F 1C D4 05 |ITTEN ONTO".....|
000013B0: 99 22 11 54 48 45 20 44 49 53 4B 2C 20 27 4D 45 |.".THE DISK, 'ME|
000013C0: 4E 55 27 20 49 53 20 54 48 45 20 50 52 4F 47 52 |NU' IS THE PROGR|
000013D0: 41 4D 20 57 48 49 43 48 22 00 A3 1C D5 05 99 22 |AM WHICH"......"|
000013E0: 11 57 49 4C 4C 20 41 55 54 4F 2D 52 55 4E 20 54 |.WILL AUTO-RUN T|
000013F0: 48 45 4D 20 46 4F 52 20 59 4F 55 2E 22 00 D8 1C |HEM FOR YOU."...|
00001400: D6 05 99 22 11 11 54 4F 20 55 53 45 20 4D 45 4E |..."..TO USE MEN|
00001410: 55 2C 20 54 59 50 45 20 27 4C 4F 41 44 22 C7 28 |U, TYPE 'LOAD".(|
00001420: 33 34 29 22 4D 45 4E 55 22 C7 28 33 34 29 22 2C |34)"MENU".(34)",|
00001430: 38 22 00 00 1D D7 05 99 22 11 22 A3 31 35 29 22 |8"......".".15)"|
00001440: 4F 52 20 27 4C 4F 41 44 22 C7 28 33 34 29 22 2A |OR 'LOAD".(34)"*|
00001450: 22 C7 28 33 34 29 22 2C 38 22 00 1D 1D D8 05 99 |".(34)",8"......|
00001460: 22 11 11 54 48 45 4E 20 54 59 50 45 20 27 52 55 |"..THEN TYPE 'RU|
00001470: 4E 27 2E 11 11 9A 22 00 28 1D DC 05 A0 32 3A A0 |N'....".(....2:.|
00001480: 31 35 00 52 1D E6 05 99 22 11 11 9A 57 41 4E 54 |15.R...."...WANT|
00001490: 20 54 4F 20 44 4F 20 41 4E 4F 54 48 45 52 20 44 | TO DO ANOTHER D|
000014A0: 49 53 4B 20 3F 20 28 59 2F 4E 29 22 00 64 1D F0 |ISK ? (Y/N)".d..|
000014B0: 05 A1 41 24 3A 8B 41 24 B2 22 59 22 A7 8A 00 76 |..A$:.A$."Y"...v|
000014C0: 1D FA 05 8B 41 24 B3 B1 22 4E 22 A7 31 35 32 30 |....A$.."N".1520|
000014D0: 00 7C 1D 04 06 80 00 98 1D 83 13 8F 20 53 45 54 |.|.......... SET|
000014E0: 20 55 50 20 54 4F 20 52 45 41 44 20 53 45 43 54 | UP TO READ SECT|
000014F0: 4F 52 00 AE 1D 88 13 98 31 35 2C 22 55 31 3A 22 |OR......15,"U1:"|
00001500: 3B 32 3B 30 3B 54 3B 53 00 C7 1D 92 13 A1 23 32 |;2;0;T;S......#2|
00001510: 2C 41 24 3A 4E 54 B2 C6 28 41 24 AA C7 28 30 29 |,A$:NT..(A$..(0)|
00001520: 29 00 E6 1D 9C 13 A1 23 32 2C 41 24 3A 4E 53 B2 |)......#2,A$:NS.|
00001530: C6 28 41 24 AA C7 28 30 29 29 3A 50 B2 32 3A 8E |.(A$..(0)):P.2:.|
00001540: 00 FF 1D A1 13 8F 20 52 45 41 44 20 4E 45 58 54 |...... READ NEXT|
00001550: 20 46 49 4C 45 4E 41 4D 45 00 11 1E A6 13 98 31 | FILENAME......1|
00001560: 35 2C 22 42 2D 50 22 3B 32 3B 50 00 2A 1E A8 13 |5,"B-P";2;P.*...|
00001570: A1 23 32 2C 54 24 3A 54 46 B2 C6 28 54 24 AA C7 |.#2,T$:TF..(T$..|
00001580: 28 30 29 29 00 34 1E B0 13 4E 24 B2 22 22 00 66 |(0)).4...N$."".f|
00001590: 1E BA 13 81 49 B2 30 A4 33 30 3A A1 23 32 2C 41 |....I.0.30:.#2,A|
000015A0: 24 3A 4E 24 B2 4E 24 AA C7 28 C6 28 41 24 AA C7 |$:N$.N$..(.(A$..|
000015B0: 28 30 29 03 79 3A 82 3A 50 B2 50 AA 33 32 3A 8E |(0).y:.:P.P.32:.|
000015C0: 00 86 1E 6B 17 8F 20 50 52 45 53 45 4E 54 20 41 |...k.. PRESENT A|
000015D0: 44 4A 55 53 54 4D 45 4E 54 20 53 43 52 45 45 4E |DJUSTMENT SCREEN|
000015E0: 00 A5 1E D4 17 97 32 31 32 2C 31 3A 99 42 24 3B |......212,1:.B$;|
000015F0: 3A 97 32 31 32 2C 30 3A 99 22 92 22 3B 3A 8E 00 |:.212,0:.".";:..|
00001600: C4 1E DE 17 8D 36 31 30 30 3A 99 22 20 20 50 41 |.....6100:." PA|
00001610: 52 54 53 20 3D 22 50 54 25 28 50 29 3A 8E 00 E7 |RTS ="PT%(P):...|
00001620: 1E E8 17 43 B2 31 3A 81 49 B2 4E 50 A4 31 A9 AB |...C.1:.I.NP.1..|
00001630: 31 3A 50 24 B2 CA 28 46 24 28 49 29 2C 34 2C 31 |1:P$..(F$(I),4,1|
00001640: 29 00 FF 1E EA 17 8B 50 24 B2 22 20 22 A7 43 B2 |)......P$." ".C.|
00001650: 43 AA 31 3A 89 36 31 32 34 00 10 1F EB 17 50 54 |C.1:.6124.....PT|
00001660: 25 28 49 29 B2 43 3A 43 B2 31 00 18 1F EC 17 82 |%(I).C:C.1......|
00001670: 3A 8E 00 34 1F FC 17 42 24 B2 CA 28 46 24 28 51 |:..4...B$..(F$(Q|
00001680: 51 29 2C 34 2C 31 36 29 3A 89 36 31 30 30 00 56 |Q),4,16):.6100.V|
00001690: 1F 58 1B 99 22 93 53 4F 52 54 20 54 48 45 20 44 |.X..".SORT THE D|
000016A0: 49 52 45 43 54 4F 52 59 20 3F 28 59 2F 4E 29 22 |IRECTORY ?(Y/N)"|
000016B0: 00 68 1F 59 1B A1 41 24 3A 8B 41 24 B2 22 4E 22 |.h.Y..A$:.A$."N"|
000016C0: A7 8E 00 7A 1F 5A 1B 8B 41 24 B3 B1 22 59 22 A7 |...z.Z..A$.."Y".|
000016D0: 37 30 30 31 00 AE 1F 5C 1B 99 22 93 53 4F 52 54 |7001...\..".SORT|
000016E0: 49 4E 47 20 44 49 52 45 43 54 4F 52 59 2E 05 79 |ING DIRECTORY..y|
000016F0: 22 3A 46 B2 31 3A 81 49 B2 31 A4 50 3A 8B 46 B2 |":F.1:.I.1.P:.F.|
00001700: 30 A7 37 30 32 35 00 E8 1F 5D 1B 46 B2 30 3A 50 |0.7025...].F.0:P|
00001710: B2 50 AB 31 3A 81 5A B2 31 A4 50 3A 8B CA 28 5A |.P.1:.Z.1.P:..(Z|
00001720: 24 28 5A 29 2C 34 2C 31 36 29 B3 B2 CA 28 5A 24 |$(Z),4,16)...(Z$|
00001730: 28 5A AA 31 29 2C 34 2C 31 36 29 A7 37 30 32 30 |(Z.1),4,16).7020|
00001740: 00 12 20 62 1B 41 24 B2 5A 24 28 5A AA 31 29 3A |.. b.A$.Z$(Z.1):|
00001750: 5A 24 28 5A AA 31 29 B2 5A 24 28 5A 29 3A 5A 24 |Z$(Z.1).Z$(Z):Z$|
00001760: 28 5A 29 B2 41 24 3A 46 B2 31 00 19 20 6C 1B 82 |(Z).A$:F.1.. l..|
00001770: 5A 00 22 20 71 1B 82 49 3A 8E 00 FF 79 00 9D 79 |Z." q..I:...y..y|
00001780: 01 08 0A 08 00 00 9E 32 30 36 31 00 03 79 4C E0 |.......2061..yL.|
00001790: 09 93 9A 54 2E 43 2E 53 20 54 55 52 42 4F 20 4D |...T.C.S TURBO M|
000017A0: 45 4E 55 20 56 32 2E 31 20 06 79 0D B8 15 79 20 |ENU V2.1 .y...y |
000017B0: 06 79 0D 0C 43 52 53 52 20 55 50 2F 44 4F 57 4E |.y..CRSR UP/DOWN|
000017C0: 20 54 4F 20 53 45 4C 45 43 54 2F 52 45 54 55 52 | TO SELECT/RETUR|
000017D0: 4E 20 54 4F 20 43 48 4F 4F 53 45 0D 0D 00 0D 20 |N TO CHOOSE.... |
000017E0: 04 79 22 14 00 0D 3D 03 79 3E 12 22 14 00 03 79 |.y"...=.y>."...y|
000017F0: A2 FF 9A D8 A9 2F 85 00 A9 37 85 01 A9 10 A0 08 |...../...7......|
00001800: 20 94 09 A9 00 85 FE A9 0A 85 FF A9 05 85 02 85 | ...............|
00001810: 03 A9 75 A0 08 20 94 09 A0 00 B1 FE F0 13 20 D2 |..u.. ........ .|
00001820: FF C8 C0 10 D0 F4 E6 03 A5 FE 18 69 10 85 FE 90 |...........i....|
00001830: E0 C6 03 A9 F0 85 FE A9 04 85 FF A9 00 85 FC A9 |................|
00001840: 0A 85 FD A0 00 A9 3D 91 FE C8 91 FE C8 91 FE C8 |......=.........|
00001850: A9 3E 91 FE C8 B1 FE 49 80 91 FE C8 C0 14 D0 F5 |.>.....I........|
00001860: 20 E4 FF C9 0D F0 64 C9 11 F0 04 C9 91 D0 F1 48 | .....d........H|
00001870: A0 00 A9 20 91 FE C8 91 FE C8 91 FE C8 91 FE C8 |... ............|
00001880: EA EA B1 FE 49 80 91 FE C8 C0 14 D0 F5 68 C9 91 |....I........h..|
00001890: F0 1C A5 02 C5 03 B0 30 A5 FC 18 69 10 85 FC A5 |.......0...i....|
000018A0: FE 18 69 28 85 FE 90 02 E6 FF E6 02 D0 1A A5 02 |..i(............|
000018B0: C9 05 F0 14 A5 FC 38 E9 10 85 FC A5 FE 38 E9 28 |......8......8.(|
000018C0: 85 FE B0 02 C6 FF C6 02 4C DB 08 A9 10 A6 FC A4 |........L.......|
000018D0: FD 20 BD FF A9 00 A0 01 A2 08 20 BA FF A2 0D BD |. ........ .....|
000018E0: 86 09 9D 20 02 CA 10 F7 A9 00 85 D4 F0 21 A9 00 |... .........!..|
000018F0: 20 D5 FF 20 60 A6 20 8E A6 4C AE A7 85 1A 84 1B | .. `. ..L......|
00001900: A0 00 B1 1A F0 06 20 D2 FF C8 D0 F6 60 00 00 A6 |...... .....`...|
00001910: 02 BD EB 09 8D D8 0C 20 15 0F EA 4C 20 02 00 00 |....... ...L ...|
00001920: A2 00 BD 00 0B 9D 00 04 BD 00 0C 9D 00 05 BD 00 |................|
00001930: 0D 9D 00 06 BD 00 0E 9D 00 07 E8 D0 E5 8E 30 03 |..............0.|
00001940: A9 04 8D 31 03 60 00 00 A9 00 8D 20 D0 8D 21 D0 |...1.`..... ..!.|
00001950: 4C 88 08 00 FF 79 00 16 79 A9 0B 8D 11 D0 20 E1 |L....y..y..... .|
00001960: 05 EA 03 79 CE D8 05 D0 0A A9 A5 8D 30 03 A9 F4 |...y........0...|
00001970: 8D 31 03 4C B5 05 20 EC 07 EA A4 B7 D0 02 18 60 |.1.L.. ........`|
00001980: A6 B9 A9 60 85 B9 20 D5 F3 A9 08 20 09 ED A5 B9 |...`.. .... ....|
00001990: 20 C7 ED 20 13 EE 85 AE A5 90 4A 4A B0 E1 20 13 | .. ......JJ.. .|
000019A0: EE 85 AF 8A D0 08 A5 C3 85 AE A5 C4 85 AF EA A9 |................|
000019B0: E9 A2 05 85 A7 86 A8 A9 00 A2 03 85 A9 86 AA A9 |................|
000019C0: 08 20 0C ED A9 6F 20 B9 ED A9 4D 20 DD ED A9 2D |. ...o ...M ...-|
000019D0: 20 DD ED A9 57 20 DD ED A0 00 A5 A9 20 DD ED A5 | ...W ...... ...|
000019E0: AA 20 DD ED A9 1E 20 DD ED B1 A7 20 DD ED C8 C0 |. .... .... ....|
000019F0: 1E 90 F6 20 FE ED 18 A5 A7 69 1E 85 A7 90 03 E6 |... .....i......|
00001A00: A8 18 A5 A9 A6 AA 69 1E 85 A9 90 02 E6 AA E0 05 |......i.........|
00001A10: 90 AD C9 00 90 A9 A9 08 20 0C ED A9 6F 20 B9 ED |........ ...o ..|
00001A20: A9 4D 20 DD ED A9 2D 20 DD ED A9 45 20 DD ED A9 |.M ...- ...E ...|
00001A30: 8B 20 DD ED A9 04 20 DD ED A9 0B 8D 11 D0 20 FB |. .... ....... .|
00001A40: ED EA EA 4C C9 05 A9 0B 8D 00 DD 2C 00 DD 10 FB |...L.......,....|
00001A50: A9 03 8D 00 DD A2 05 CA EA D0 FC A2 04 AD 00 DD |................|
00001A60: 2A 2A 66 B0 6A 66 B0 EA CA D0 F2 A5 B0 49 FF 60 |**f.jf.......I.`|
00001A70: 20 ED 04 C9 FF F0 F8 A0 00 A9 0B 8D 00 DD 2C 00 | .............,.|
00001A80: DD 10 FB A9 03 8D 00 DD A2 07 CA D0 FD AD 00 DD |................|
00001A90: 2A 2A 66 B0 6A 66 B0 EA EA AD 00 DD 2A 2A 66 B0 |**f.jf......**f.|
00001AA0: 6A 66 B0 EA EA AD 00 DD 2A 2A 66 B0 6A 66 B0 EA |jf......**f.jf..|
00001AB0: EA AD 00 DD 2A 2A 66 B0 6A 66 B0 A5 B0 49 FF 20 |....**f.jf...I. |
00001AC0: D9 05 C8 D0 B4 60 78 A9 01 85 A7 A0 FF 20 17 05 |.....`x...... ..|
00001AD0: C0 FF F0 40 A2 02 A5 A7 F0 02 A2 04 AD 00 03 D0 |...@............|
00001AE0: 07 EE 01 03 AD 01 03 2C A9 00 85 A8 BD 00 03 91 |.......,........|
00001AF0: AE E6 AE D0 02 E6 AF E8 E4 A8 D0 F0 A2 00 86 A7 |................|
00001B00: AD 00 03 D0 C6 A9 37 85 01 A9 1B 8D 11 D0 A9 40 |......7........@|
00001B10: 85 90 18 60 A9 37 85 01 A9 1B 8D 11 D0 A9 40 85 |...`.7........@.|
00001B20: 90 60 20 6D 05 A6 AE A4 AF 86 2D 84 2E 18 4C DF |.` m......-...L.|
00001B30: 07 00 8D 20 D0 99 00 03 60 00 A9 00 8D 15 D0 4C |... ....`......L|
00001B40: 1D 04 A5 00 29 06 C9 02 F0 03 4C 9E FD EA A9 05 |....).....L.....|
00001B50: 85 09 A2 5A 86 4B A2 00 A9 52 85 24 20 56 F5 50 |...Z.K...R.$ V.P|
00001B60: FE B8 AD 01 1C C5 24 F0 09 C6 4B D0 EF A9 0A 4C |......$...K....L|
00001B70: 69 F9 50 FE B8 AD 01 1C 95 25 E8 E0 07 D0 F3 20 |i.P......%..... |
00001B80: 97 F4 A5 16 45 17 45 18 45 19 45 1A F0 07 C6 09 |....E.E.E.E.....|
00001B90: D0 C0 4C 1E F4 A5 18 C5 06 F0 03 4C 0B F4 85 22 |..L........L..."|
00001BA0: A9 06 85 31 4C 3C 04 A5 12 A6 13 85 16 86 17 A5 |...1L<..........|
00001BB0: 06 85 18 A5 07 85 19 A9 00 45 16 45 17 45 18 45 |.........E.E.E.E|
00001BC0: 19 85 1A 20 34 F9 A2 5A 20 56 F5 A0 00 50 FE B8 |... 4..Z V...P..|
00001BD0: AD 01 1C D9 24 00 F0 06 CA D0 ED 4C 51 F5 C8 C0 |....$......LQ...|
00001BE0: 08 D0 EA 20 56 F5 50 FE B8 AD 01 1C 91 30 C8 D0 |... V.P......0..|
00001BF0: F5 A0 BA 50 FE B8 AD 01 1C 99 00 01 C8 D0 F4 20 |...P........... |
00001C00: E0 F8 A5 38 C5 47 F0 03 4C F6 F4 20 E9 F5 C5 3A |...8.G..L.. ...:|
00001C10: F0 03 4C 02 F5 A0 00 A9 55 20 52 04 B9 00 06 85 |..L.....U R.....|
00001C20: 77 2C 00 18 10 FB A9 10 8D 00 18 2C 00 18 30 FB |w,.........,..0.|
00001C30: A2 00 8A 66 77 2A 2A 66 77 2A 2A 8D 00 18 8A 66 |...fw**fw**....f|
00001C40: 77 2A 2A 66 77 2A 2A 8D 00 18 8A 66 77 2A 2A 66 |w**fw**....fw**f|
00001C50: 77 2A 2A 8D 00 18 8A 66 77 2A 2A 66 77 2A 2A 8D |w**....fw**fw**.|
00001C60: 00 18 A2 02 CA D0 FD A9 0F 8D 00 18 C8 D0 AD EA |................|
00001C70: 07 79 AD 00 1C 09 08 8D 00 1C AD 00 06 D0 03 4C |.y.............L|
00001C80: 9E FD C5 18 D0 F9 85 06 AD 01 06 85 07 4C 65 03 |.............Le.|
00001C90: 85 77 2C 00 18 10 FB A9 10 8D 00 18 2C 00 18 30 |.w,.........,..0|
00001CA0: FB A2 04 A9 00 66 77 2A 2A 66 77 2A 2A 8D 00 18 |.....fw**fw**...|
00001CB0: CA D0 F0 EA 06 79 A9 0F 8D 00 18 60 60 85 00 58 |.....y.....``..X|
00001CC0: A5 00 30 FC 78 60 78 EA 06 79 A5 18 8D 00 06 85 |..0.x`x..y......|
00001CD0: 06 A5 19 8D 01 06 85 07 A9 04 85 78 A9 E2 20 82 |...........x.. .|
00001CE0: 04 C9 02 90 33 A0 00 84 78 A4 78 B9 DB FE F0 12 |....3...x.x.....|
00001CF0: 58 20 76 D6 78 A9 E2 20 82 04 C9 02 90 1A E6 78 |X v.x.. .......x|
00001D00: D0 E7 A9 C0 20 82 04 A9 E2 20 82 04 C9 02 90 08 |.... .... ......|
00001D10: A9 FF 20 52 04 4C 22 EB AD 00 06 F0 F8 C5 18 F0 |.. R.L".........|
00001D20: C4 AD 00 06 85 06 AD 01 06 85 07 4C A0 04 A2 33 |...........L...3|
00001D30: BD A8 02 9D 00 03 CA 10 F7 58 60 A2 33 BD 00 03 |.........X`.3...|
00001D40: 9D A8 02 CA 10 F7 60 00 05 79 55 53 45 20 44 49 |......`..yUSE DI|
00001D50: 53 4B 20 54 55 52 42 4F 3F 20 28 59 2F 4E 29 00 |SK TURBO? (Y/N).|
00001D60: 03 79 A9 93 20 D2 FF A2 0C A0 09 18 20 F0 FF A2 |.y.. ....... ...|
00001D70: 00 BD FD 0E F0 06 20 D2 FF E8 D0 F5 20 E4 FF C9 |...... ..... ...|
00001D80: 4E D0 0B A9 A5 8D 30 03 A9 F4 8D 31 03 60 C9 59 |N.....0....1.`.Y|
00001D90: D0 EA 4C B8 09 00 03 79 A2 00 BD D9 25 9D 10 01 |..L....y....%...|
00001DA0: E8 D0 F7 A2 34 BD 40 26 9D 00 03 E8 D0 F7 EA EA |....4.@&........|
00001DB0: A2 FF 9A A9 09 85 2D 38 E9 01 85 FE A9 29 85 2E |......-8.....)..|
00001DC0: E9 00 85 FF A9 96 85 FC A9 25 85 FD AD 20 D0 85 |.........%... ..|
00001DD0: FB 4C 52 01 00 00 00 00 00 00 00 1D 08 05 00 97 |.LR.............|
00001DE0: 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 |53281,0:.53280,0|
00001DF0: 3A 99 22 93 9A 22 00 5E 08 0A 48 C6 FC A5 FC C9 |:."..".^..H.....|
00001E00: FF D0 02 C6 FD 68 60 48 AD 20 D0 49 01 8D 20 D0 |.....h`H. .I.. .|
00001E10: C6 FE A5 FE C9 FF D0 02 C6 FF 68 60 A0 00 B1 FC |..........h`....|
00001E20: C9 79 D0 18 EE 20 D0 20 30 01 B1 FC AA 20 30 01 |.y... . 0.... 0.|
00001E30: B1 FC 91 FE 20 3D 01 CA D0 F8 F0 05 91 FE 20 3D |.... =........ =|
00001E40: 01 A6 FC CA 86 FC E0 FF D0 02 C6 FD A5 FE C9 1F |................|
00001E50: A5 FF E9 08 B0 C8 A5 FB 8D 20 D0 A9 37 85 01 20 |......... ..7.. |
00001E60: 60 A6 20 8E A6 A2 1F BD 10 01 9D 00 08 CA D0 F7 |`. .............|
00001E70: A9 79 4C 34 03 4C AE A7 |.yL4.L.. |
....A..2073 TCS-CRUNCH!....6..L.%.. F$(3
2),Z$(32):EP.B(45).256.B(46):PG.EP.1868:
NM.PG.513:NP.0.L.... PT%(32)......"..THE
T.C.S TURBO MENU CREATOR V2.1......".!Y
";...(..:.".THIS PROGRAM WILL CREATE A T
URBO DRIVEN".".2..".MENU PROGRAM ON ANY
DISK, EVEN IF THERE".B.<..".ARE ZERO BLO
CKS FREE !!".P.=..:.".THE COMPUTER NEEDS
TO KNOW HOW MANY"...>..".PARTS EACH MAI
N PROGRAM TAKES, BECAUSE".O.?..".THE TUR
BO RESIDES ON THE SCREEN, AND IF"...@.."
.THE SCREEN IS PRINTED TO BEFORE ALL THE
.+.A..".MAIN PARTS HAVE BEEN LOADED, THE
C-64.Z.B..".WILL CRASH.IF A GAME PRINTS
TO THE SCRN...C..".IN PART ONE, .SET TH
E NO.PARTS TO 1."...D.."...=.Y>PRESS SPA
CE TO CONTINUE";.C.E..A$:.A$.." ".69...F
..:."..Y.IF A PROGRAM NAME DOES NOT STAR
T WITH A.).G..".SPACE, THE COMPUTER WILL
ASSUME THAT ANY";.[.H..".FILES FOLLOWIN
G WHICH START WITH A SPACE";...I..".ARE
PART OF THIS 'MAIN PROGRAM'. AND...J.."
.WILL TOTAL THESE TO WORK OUT THE NUMBER
...K..".OF PARTS. SO, WHEN SETTING UP Y
OUR NEW...L..".DIRECTORY, PUT THE 2ND,3R
D,ETC. PARTS.B.M..".AFTER THE MAIN PROG.
USING THIS METHOD.Q.N..".WILL ALSO GIV
E A .VERY TIDY DIRECTORY."...Z.."...PLEA
SE NOTE : MAX NO.INPUT FILES .Y= 16".R.[
.." .YMAX NO.MENU PROGRAMS = 16"...C.. *
.Y WAIT FOR DISK *.Y.".H.."...WANT TO VA
LIDATE THE DISK FIRST (Y/N) ?".6.M..A$:.
A$."N".220.H.N.. A$.."Y".205.}.R.."..VAL
IDATING DISK ..Y":.15,8,15,"V0":.300: 15
......15,8,15,"I0":.300...... 10.Y...'..
*.Y DISK ERROR ? *.Y...,..15,E1$,E2$,E3
$:.E1$."00".....6.."...DISK ERROR : "E1$
","E2$","E3$...@.."..": 2: 15:..8.... *.
Y CREATE PROG MENU *.Y.L....2,8,2,"#":.3
00.F.L.. CREATE HEADER ENTRY...V.."..REA
DING DISK DIRECTORY..Y"...\.NT.18:NS.1..
.].T.NT:S.NS:.50.Y.H.`..5030:.NT.0.P.258
.1200.X.J..P.258.1.Y7...O.. (TF . 130).0
. 1120...T.NP.NP.1:.NP.17.Z$(NP).G(TF).
N$:.1120.S.~.."...THERE ARE TOO MANY PRO
GRAMS ON THE DISK!":.320.V.... PROGRAMS
ARE NOW IN ARRAY Z$.....P.NP:.70.Y:.I.1.
NP:PT%(I).0:F$(I)."":.:C$(0).".":C$(1)."
."......"..YOU MUST NOW SPECIFY WHAT FIL
ES YOU WISH"......"TO APPEAR IN THE NEW
DIRECTORY, AND IN".@....".WHAT ORDER THE
Y SHOULD APPEAR, ANY".O....".FILES WHICH
YOU MISS OFF THE MENU LIST"......".WILL
BE DELETED FROM THE DISK.".G...."..AFTE
R YOU HAVE CREATED THE NEW DIRECTORY....
.."THE COMPUTER WILL INTELLIGENTLY WORK.
"....".OUT HOW MANY PARTS EACH MAIN FILE
IS IN..N...."IF THE COMPUTER GETS IT WR
ONG PRESS A.....".NUMBER (1-9) TO SET T
HE NUMBER OF PARTS."......"WHEN YOU HAVE
FINISHED, PRESS RETURN AND.Z...."THE NE
XT FILENAME WILL BE DISPLAYED."......"..
=.Y>PRESS SPACE TO CONTINUE";:QQ.0:P.1.
....A$:.A$.." ".1214.O...."..SELECT FILE
USING CURSOR KEYS, RETURN"......".SELEC
TS A FILE FOR INCLUSION IN NEW DIR":.".*
PRESS SPACE TO FINISH.J.A.."...Y...Y";..
.B..I.1.NP:.214,I.4:.:.C$(PT%(I))" .Y";:
B$.J(Z$(I),4,16):.6100:.". . ";.^.C.B$.J
(F$(I),4,16):.6100:.:.:."...Y...Y...D..2
14,P.4:.:.".=.Y>."C$(PT%(P));:B$.J(Z$(P)
,4,16):.6100:..K.E..A$:.A$..".".A$..".".
A$.." ".A$..G(13).1221...F..". .Y";:B$.J
(Z$(P),4,16):.6100:.:.A$." ".1229...G..A
$.".".P.NP.P.P.1:.1220.8.H..A$.".".P.1.P
.P.1:.1220.L.I..A$..G(13).1220.M.J.F.0:.
I.1.QQ:.Z$(P).F$(I).F.1.{.K..:.F.1220...
L.QQ.QQ.1:F$(QQ).Z$(P):PT%(P).1:.214,QQ.
4:.:.211,22:.6140:.1220.Z.M..I.1.QQ:PT%(
I).0:.:.6120...N.."..PLEASE SPECIFY HOW
MANY PARTS EACH FILE" .Y.[.O..".IS IN '0
-9' (.0 = NOT TO APPEAR IN MENU.)":.".TO
FINISH PRESS RETURN....P.LN$."..'Y":.LN
$:NP.QQ.U.Q..I.1.NP:B$.J(F$(I),4,16):."
.Y";:P.I:.6110:.:P.1:.LN$;...R..214,P.4:
.:.".=.Y>.";:B$.J(F$(P),4,16):.6110.G.S.
.A$:.(A$."/".A$.":").J(F$(P),4,1).." ".P
T%(P).F(A$).48:.1234.K.T..A$..".".A$..".
".A$..G(13).1235...U..". .Y.";:B$.J(F$(P
),4,16):.6100:....V..A$.".".P.NP.P.P.1..
.W..A$.".".P.1.P.P.1.T.X..A$..G(13).1234
......".";. ...B.0:.I.1.NP:.PT%(I).0.J(F
$(I),4,1).." "..NM.16.B,PT%(I):B.B.1.&..
...F.... REWRITE DIRECTORY TO DISK.Z...N
$.G(130).G(18).G(0)."MENU-TCS .Y":A$.G(0
).....N$.N$.A$.A$.A$.A$.A$.A$.A$.A$.A$.G
(8).A$.A$.A$.....F$(0).N$:S.1......"..RE
-WRITING DIRECTORY BLOCKS..Y"......I.1.1
8:.15,"B-F";0;18;I:.:.300...(.I.0.-.2..1
5,"B-A";0;18;S:.300.D.4..15,"B-P";2;0:.3
00.U.F.SS.S:S.S.1:T.18:C.NP..(I.8).8:.C.
8.T.0:S.255...P.A$.G(T).G(S):B.0...Z..I.
.NP.A$.A$.F$(I):I.I.1:B.B.1:.B..7.1370..
._..I..NP.B.7.A$.A$.J(F$(I),1,29):I.I.1.
..D..C(A$)..255.A$.A$.G(0):.1380...N..2,
A$;:.15,"U2:";2;0;18;SS:.300:.T.1330.@.P
..15,"B-P";2;0.E.Q..15,"U1:";2;0;18;1:.1
5,"B-P";2;4.U.R..2,G(SS.1);...S..15,"U2:
";2;0;18;1:.300...X.A.0:B.1.A....J(F$(B)
,4,1)." ".PT%(B).0.1415......I.0.15:.NM.
A.I,F(J(F$(B),I.4,1).G(0)):.:A.A.16.....
B.B.1:.NP.1.B.1410.*....NM.A,0:A.A.1:.A.
256.1420.S....".WRITING MENU PROGRAM TO
DISK..Y".D...AD.PG:S.SS.1.V....15,"B-P";
2;0... .L$.G(18).G(S.1):A.EP.AD:.A.254.L
$.G(0).G(A).V...A$."":.I.0.253:A$.A$.G(B
(AD.I)):.:AD.AD.254......2,L$A$;......15
,"U2:";2;0;18;S...H.S.S.1:.EP.AD.1435.D.
I.."..DO YOU WISH TO VALIDATE THE DISK ?
(Y/N)..Y".W.J..".. IF YOU DO NOT VALIDA
TE THE DISK, THE ";...K..". NUMBER OF
BLOCKS FREE WILL BE WRONG. ."...L..A$:.
A$."N".1490.P.M..A$.."Y".1484...N..".VAL
IDATING DISK ..Y PLEASE WAIT...Q..15,"V"
:.300. .R.."..FINISHED..Y".Q.S.."...THE
PROGRAMS HAVE BEEN RE-WRITTEN ONTO"..T.
.".THE DISK, 'MENU' IS THE PROGRAM WHICH
"...U..".WILL AUTO-RUN THEM FOR YOU.".X.
V.."..TO USE MENU, TYPE 'LOAD"G(34)"MENU
"G(34)",8"...W..".".15)"OR 'LOAD"G(34)"*
"G(34)",8"...X.."..THEN TYPE 'RUN'....".
(... 2: 15.R...."...WANT TO DO ANOTHER D
ISK ? (Y/N)".D....A$:.A$."Y"...V....A$..
"N".1520.|.......... SET UP TO READ SECT
OR......15,"U1:";2;0;T;S.G....#2,A$:NT.F
(A$.G(0))......#2,A$:NS.F(A$.G(0)):P.2:.
...... READ NEXT FILENAME......15,"B-P";
2;P.*....#2,T$:TF.F(T$.G(0)).4...N$."".F
....I.0.30:.#2,A$:N$.N$.G(F(A$.G(0).Y:.:
P.P.32:....K.. PRESENT ADJUSTMENT SCREEN
...T..212,1:.B$;:.212,0:.".";:..D....610
0:." PARTS ="PT%(P):......C.1:.I.NP.1..
1:P$.J(F$(I),4,1)......P$." ".C.C.1:.612
4.....PT%(I).C:C.1......:..4...B$.J(F$(Q
Q),4,16):.6100.V.X..".SORT THE DIRECTORY
?(Y/N)".H.Y..A$:.A$."N"...Z.Z..A$.."Y".
7001...\..".SORTING DIRECTORY..Y":F.1:.I
.1.P:.F.0.7025...].F.0:P.P.1:.Z.1.P:.J(Z
$(Z),4,16)..J(Z$(Z.1),4,16).7020.. B.A$.
Z$(Z.1):Z$(Z.1).Z$(Z):Z$(Z).A$:F.1.. L..
Z." Q..I:...Y..Y.......2061..YL....T.C.S
TURBO MENU V2.1 .Y...Y .Y..CRSR UP/DOWN
TO SELECT/RETURN TO CHOOSE.... .Y"...=.
Y>."...Y...X./...7.... . ...............
..U . .. ..... R.H..P......I.....F......
........... ..=..H..H..H.>..H..I...H..P.
..I..DI...I.P.H .. ..H..H..H..H....I...
H..P.HI.....E..0...I......I(........P...
I.....8......8.(....F.F.L........ .... .
.. ........ .J.....T.!.. U. `. ..L......
..... R.HP.`........X. ...L ...........
...................P..0....1.`..... P.!P
L....Y..Y....P ....YNX.P....0....1.L.. .
....P..`...`.. U... .... G. ......JJ.. .
....P..C...D..................... ...O .
..M ...- ...W .. ... .... .... .... ..H.
... .....I............I...........I.....
...O ...M ...- ...E .... .... ......P .
...LI......,...........J.P......**F.JF..
JP...I.` ..I... ......,...........JP....
**F.JF......**F.JF......**F.JF......**F.
JF...I. Y.HP.`X.... . .....@...........P
.......,...........P......P........PF.7.
.....P.@...`.7......P.@..` M......-...L.
... P...`.....PL....).I...L........Z.K..
.R.$ V.P.....E$..FKP...LI.P......%...P.
....E.E.E.E...F.P.L....E...L..."...1L<..
.................E.E.E.E... 4..Z V. .P..
...Y$...JP.LQ.H..P. V.P......0HP. .P....
....HP. ...8EG..L.. ..E:..L.. ..U R.....
W,.........,..0....FW**FW**....FW**FW**.
...FW**FW**....FW**FW**.....JP......HP..
.Y...........P.L..E.P........LE..W,.....
....,..0.....FW**FW**...JP...Y.....``..X
..0.X`X..Y.................X.. ..I..3 ..
X.X.....X VVX.. ..I....XP... .... ..I...
.. R.L"......E..D..........L ..3......J.
.X`.3......J..`..YUSE DISK TURBO? (Y/N).
.Y.. R... .. ......... R..P. ..INP....0.
...1.`IYP.L....Y...Y%....P..4.@&....P...
......-8.....)...........%... P..LR.....
........53281,0:.53280,0:."..".^..HF...I
.P.F.H`H. PI.. PF...I.P.F.H` ...IYP.. P
0.... 0..... =.JP..... =...J....P.F...I.
.....H... P.7.. `. ..........JP..YL4.L..
> CLICK IMAGE PREVIEW FOR FULL MODAL