DISKY
FILE INFORMATION
FILENAME(S): DISKY
FILE TYPE(S): PRG, DEL
FILE SIZE: 8.3K
FIRST SEEN: 2025-11-30 21:12:22
APPEARS ON: 2 disk(s)
FILE HASH
507d21ff353db70a46ff518fd10c6e56af929cfb9895950dbebdfc5dc63dee87
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COPIEER PRG | DISKY | PRG | DuncanTwain | 7 | 0 | DOWNLOAD FILE |
| ANTISOFT 69A | DISKY | DEL | DuncanTwain | 4 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 08 28 08 0A 00 99 C7 28 31 34 29 22 9E 22 3A |..(.....(14)".":|
00000010: 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C |.53281,0:.53280,|
00000020: 30 3A 89 31 30 30 31 30 00 2E 08 6E 00 9C 00 4C |0:.10010...n...L|
00000030: 08 78 00 99 C7 28 31 34 29 22 93 20 D4 49 44 59 |.x...(14)". .IDY|
00000040: 20 C4 49 52 45 43 54 4F 52 59 20 22 00 7C 08 82 | .IRECTORY ".|..|
00000050: 00 99 22 11 11 20 C2 52 45 4E 47 20 44 49 53 4B |..".. .RENG DISK|
00000060: 20 49 4E 20 44 52 49 56 45 20 30 2E 20 D2 C5 D4 | IN DRIVE 0. ...|
00000070: D5 D2 CE 20 3D 20 52 45 41 44 59 2E 00 93 08 8C |... = READY.....|
00000080: 00 A1 5A 24 3A 8B 5A 24 B3 B1 C7 28 31 33 29 89 |..Z$:.Z$...(13).|
00000090: 31 34 30 00 B7 08 96 00 8F 2A 2A 2A 2A 2A 2A 2A |140......*******|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000B0: 2A 2A 2A 2A 2A 2A 2A 00 DC 08 97 00 8F 20 20 2A |*******...... *|
000000C0: 20 4F 50 45 4E 20 46 49 4C 45 53 20 26 20 42 55 | OPEN FILES & BU|
000000D0: 46 46 45 52 20 43 48 41 4E 4E 45 4C 00 FF 08 98 |FFER CHANNEL....|
000000E0: 00 8F 20 20 2A 20 53 45 54 20 55 50 20 49 4E 49 |.. * SET UP INI|
000000F0: 54 49 41 4C 20 50 41 52 41 4D 45 54 45 52 53 00 |TIAL PARAMETERS.|
00000100: 23 09 99 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |#....***********|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000120: 2A 2A 2A 00 4B 09 A0 00 44 4E B2 38 3A 44 B2 30 |***.K...DN.8:D.0|
00000130: 3A 43 32 B2 32 3A 43 43 B2 31 35 3A 54 B2 31 38 |:C2.2:CC.15:T.18|
00000140: 3A 53 B2 30 3A 42 50 B2 31 34 34 00 64 09 AA 00 |:S.0:BP.144.d...|
00000150: 9F 43 43 2C 44 4E 2C 43 43 2C 22 49 30 22 3A 8D |.CC,DN,CC,"I0":.|
00000160: 31 30 30 30 00 7C 09 B4 00 9F 43 32 2C 44 4E 2C |1000.|....C2,DN,|
00000170: 43 32 2C 22 23 22 3A 8D 31 30 30 30 00 A0 09 C8 |C2,"#":.1000....|
00000180: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001A0: 00 BF 09 C9 00 8F 20 47 45 54 20 44 49 53 4B 20 |...... GET DISK |
000001B0: 49 44 3A 54 52 43 4B 31 38 2F 53 43 54 52 30 00 |ID:TRCK18/SCTR0.|
000001C0: E3 09 CA 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001E0: 2A 2A 2A 00 FF 09 D2 00 98 43 43 2C 22 55 31 3A |***......CC,"U1:|
000001F0: 22 43 32 3B 44 3B 54 3B 53 3A 8D 31 30 30 30 00 |"C2;D;T;S:.1000.|
00000200: 13 0A DC 00 98 43 43 2C 22 42 2D 50 3A 22 43 32 |.....CC,"B-P:"C2|
00000210: 3B 42 50 00 30 0A E6 00 49 44 24 B2 22 22 3A 4E |;BP.0...ID$."":N|
00000220: B2 32 30 3A 8D 31 30 33 30 3A 49 44 24 B2 5A 24 |.20:.1030:ID$.Z$|
00000230: 00 50 0A F0 00 99 22 11 D4 45 20 4C 41 44 45 4E |.P...."..E LADEN|
00000240: 20 44 49 53 4B 20 3A 20 20 22 49 44 24 22 20 22 | DISK : "ID$" "|
00000250: 00 74 0A 2C 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.t.,.. *********|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000270: 2A 2A 2A 2A 00 92 0A 2D 01 8F 20 53 45 54 20 55 |****...-.. SET U|
00000280: 50 20 44 49 52 45 43 54 4F 52 59 20 41 52 52 41 |P DIRECTORY ARRA|
00000290: 59 53 00 A9 0A 2E 01 8F 20 41 4E 44 20 53 45 43 |YS...... AND SEC|
000002A0: 54 4F 52 20 54 52 41 49 4C 00 C4 0A 2F 01 8F 20 |TOR TRAIL.../.. |
000002B0: 41 4C 4C 4F 57 20 46 4F 52 20 31 39 20 53 45 43 |ALLOW FOR 19 SEC|
000002C0: 54 4F 52 53 00 E0 0A 30 01 8F 20 41 4C 4C 4F 57 |TORS...0.. ALLOW|
000002D0: 20 46 4F 52 20 31 35 32 20 45 4E 54 52 49 45 53 | FOR 152 ENTRIES|
000002E0: 00 04 0B 31 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...1.. *********|
000002F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000300: 2A 2A 2A 2A 00 29 0B 36 01 86 20 53 25 28 31 39 |****.).6.. S%(19|
00000310: 29 3A 8F 20 4E 45 58 54 20 44 49 52 45 43 54 4F |):. NEXT DIRECTO|
00000320: 52 59 20 53 45 43 54 4F 52 00 44 0B 37 01 86 20 |RY SECTOR.D.7.. |
00000330: 46 54 24 28 31 39 32 29 3A 8F 20 46 49 4C 45 20 |FT$(192):. FILE |
00000340: 54 59 50 45 00 6E 0B 38 01 86 20 54 53 24 28 31 |TYPE.n.8.. TS$(1|
00000350: 39 32 29 3A 8F 20 54 52 26 53 20 4F 46 20 46 49 |92):. TR&S OF FI|
00000360: 52 53 54 20 44 41 54 41 20 42 4C 4F 43 4B 00 88 |RST DATA BLOCK..|
00000370: 0B 39 01 86 20 4E 46 24 28 31 39 32 29 3A 8F 20 |.9.. NF$(192):. |
00000380: 46 49 4C 45 4E 41 4D 45 00 A6 0B 3A 01 86 20 46 |FILENAME...:.. F|
00000390: 45 24 28 31 39 32 29 3A 8F 20 46 49 4C 45 20 45 |E$(192):. FILE E|
000003A0: 4E 54 52 49 45 53 00 C1 0B 3B 01 86 20 53 4B 24 |NTRIES...;.. SK$|
000003B0: 28 31 39 32 29 3A 8F 20 53 4F 52 54 20 4B 45 59 |(192):. SORT KEY|
000003C0: 53 00 CD 0B 40 01 86 20 54 24 28 34 29 00 01 0C |S...@.. T$(4)...|
000003D0: 41 01 54 24 28 31 29 B2 22 53 45 51 22 3A 54 24 |A.T$(1)."SEQ":T$|
000003E0: 28 32 29 B2 22 50 52 47 22 3A 54 24 28 33 29 B2 |(2)."PRG":T$(3).|
000003F0: 22 55 53 52 22 3A 54 24 28 34 29 B2 22 52 45 4C |"USR":T$(4)."REL|
00000400: 22 00 1C 0C 4A 01 81 49 B2 31 A4 33 30 3A 5A 30 |"...J..I.1.30:Z0|
00000410: 24 B2 5A 30 24 AA C7 28 30 29 3A 82 00 41 0C 5E |$.Z0$..(0):..A.^|
00000420: 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000440: 2A 00 62 0C 5F 01 8F 20 20 20 20 20 52 45 41 44 |*.b._.. READ|
00000450: 20 44 49 52 45 43 54 4F 52 59 20 45 4E 54 52 49 | DIRECTORY ENTRI|
00000460: 45 53 00 87 0C 60 01 8F 20 2A 2A 2A 2A 2A 2A 2A |ES...`.. *******|
00000470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000480: 2A 2A 2A 2A 2A 2A 2A 00 9E 0C 68 01 53 B2 31 3A |*******...h.S.1:|
00000490: 8F 20 53 54 41 52 54 20 53 45 43 54 4F 52 00 B9 |. START SECTOR..|
000004A0: 0C 72 01 45 B2 31 3A 8F 20 53 54 41 52 54 20 46 |.r.E.1:. START F|
000004B0: 49 4C 45 20 45 4E 54 52 59 00 DA 0C 7C 01 98 43 |ILE ENTRY...|..C|
000004C0: 43 2C 22 55 31 3A 22 43 32 3B 44 3B 54 3B 53 3A |C,"U1:"C2;D;T;S:|
000004D0: 8D 31 30 30 30 3A 42 50 B2 31 00 0F 0D 86 01 98 |.1000:BP.1......|
000004E0: 43 43 2C 22 42 2D 50 3A 22 3B 43 32 3B 42 50 3A |CC,"B-P:";C2;BP:|
000004F0: 8D 31 31 30 30 3A 53 25 28 53 29 B2 41 3A 8F 20 |.1100:S%(S).A:. |
00000500: 47 45 54 20 4E 45 58 54 20 53 45 43 54 4F 52 00 |GET NEXT SECTOR.|
00000510: 3E 0D 90 01 98 43 43 2C 22 42 2D 50 3A 22 43 32 |>....CC,"B-P:"C2|
00000520: 3B 42 50 3A 8D 31 31 30 30 3A 46 54 B2 41 3A 8F |;BP:.1100:FT.A:.|
00000530: 20 47 45 54 20 46 49 4C 45 20 54 59 50 45 00 6B | GET FILE TYPE.k|
00000540: 0D 9A 01 8B 46 54 B2 30 B0 46 54 B2 31 32 38 A7 |....FT.0.FT.128.|
00000550: 42 50 B2 42 50 AA 33 31 3A 89 35 30 30 3A 8F 20 |BP.BP.31:.500:. |
00000560: 42 4C 41 4E 4B 20 45 4E 54 52 59 00 98 0D A4 01 |BLANK ENTRY.....|
00000570: 8B 46 54 B3 31 32 38 A7 20 99 22 11 20 C6 C9 CC |.FT.128. .". ...|
00000580: C5 A0 C5 D2 D2 CF D2 20 CE 4F 54 20 43 4C 4F 53 |....... .OT CLOS|
00000590: 45 44 22 3A 89 39 39 39 00 A6 0D AE 01 46 54 24 |ED":.999.....FT$|
000005A0: 28 45 29 B2 41 24 00 C8 0D B8 01 4E B2 32 3A 8D |(E).A$.....N.2:.|
000005B0: 31 30 34 30 3A 54 53 24 28 45 29 B2 5A 24 3A 8F |1040:TS$(E).Z$:.|
000005C0: 20 47 45 54 20 54 26 53 00 EC 0D C2 01 4E B2 31 | GET T&S.....N.1|
000005D0: 36 3A 8D 31 30 34 30 3A 4E 46 24 28 45 29 B2 5A |6:.1040:NF$(E).Z|
000005E0: 24 3A 8F 20 47 45 54 20 4E 41 4D 45 00 18 0E CC |$:. GET NAME....|
000005F0: 01 4E B2 31 31 3A 8D 31 30 34 30 3A 46 45 24 28 |.N.11:.1040:FE$(|
00000600: 45 29 B2 5A 24 3A 8F 20 47 45 54 20 46 49 4C 45 |E).Z$:. GET FILE|
00000610: 20 45 4E 54 52 49 45 53 00 3E 0E D6 01 8F 20 2A | ENTRIES.>.... *|
00000620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5C |**************.\|
00000640: 0E D7 01 8F 20 20 20 50 52 49 4E 54 20 44 49 52 |.... PRINT DIR|
00000650: 45 43 54 4F 52 59 20 45 4E 54 52 59 00 82 0E D8 |ECTORY ENTRY....|
00000660: 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000680: 2A 2A 00 A4 0E E0 01 99 2C 22 20 20 20 20 22 4E |**......," "N|
00000690: 46 24 28 45 29 22 20 3A 20 22 54 24 28 46 54 AB |F$(E)" : "T$(FT.|
000006A0: 31 32 38 29 00 B6 0E EA 01 42 50 B2 42 50 AA 32 |128).....BP.BP.2|
000006B0: 3A 45 B2 45 AA 31 00 D7 0E F4 01 8B 42 50 B3 32 |:E.E.1......BP.2|
000006C0: 35 36 89 34 30 30 3A 8F 20 46 4F 52 20 4E 45 58 |56.400:. FOR NEX|
000006D0: 54 20 45 4E 54 52 59 00 02 0F FE 01 8B 53 25 28 |T ENTRY......S%(|
000006E0: 53 29 B3 B1 32 35 35 A7 53 B2 53 25 28 53 29 3A |S)..255.S.S%(S):|
000006F0: 89 33 38 30 3A 8F 20 4E 45 58 54 20 53 45 43 54 |.380:. NEXT SECT|
00000700: 4F 52 00 22 0F 08 02 8D 31 31 33 30 3A 20 8F 20 |OR."....1130: . |
00000710: 47 45 54 20 4F 4B 20 54 4F 20 43 4F 4E 54 49 4E |GET OK TO CONTIN|
00000720: 55 45 00 4A 0F 12 02 45 B2 45 AB 31 3A 8B 45 B2 |UE.J...E.E.1:.E.|
00000730: 30 89 37 33 30 3A 8F 20 44 49 52 45 43 54 4F 52 |0.730:. DIRECTOR|
00000740: 59 20 49 53 20 45 4D 50 54 59 00 76 0F 1C 02 99 |Y IS EMPTY.v....|
00000750: 22 20 C7 52 4F 45 50 45 52 45 4E 20 56 4F 4C 47 |" .ROEPEREN VOLG|
00000760: 45 4E 53 20 46 49 4C 45 53 4F 4F 52 54 20 3F 20 |ENS FILESOORT ? |
00000770: 28 59 2F 4E 29 22 00 91 0F 26 02 A1 5A 24 3A 46 |(Y/N)"...&..Z$:F|
00000780: 54 24 B2 5A 24 3A 8B 5A 24 B2 22 59 22 89 35 37 |T$.Z$:.Z$."Y".57|
00000790: 30 00 A2 0F 30 02 8B 5A 24 B3 B1 22 4E 22 89 35 |0...0..Z$.."N".5|
000007A0: 35 30 00 C6 0F 3A 02 8F 20 2A 2A 2A 2A 2A 2A 2A |50...:.. *******|
000007B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007C0: 2A 2A 2A 2A 2A 2A 00 DA 0F 3B 02 8F 20 53 45 54 |******...;.. SET|
000007D0: 20 53 4F 52 54 20 4B 45 59 53 00 F7 0F 3C 02 8F | SORT KEYS...<..|
000007E0: 20 53 4F 52 54 20 44 49 52 45 43 54 4F 52 59 20 | SORT DIRECTORY |
000007F0: 45 4E 54 52 49 45 53 00 0D 10 3D 02 8F 20 55 53 |ENTRIES...=.. US|
00000800: 45 53 20 53 48 45 4C 4C 20 53 4F 52 54 00 31 10 |ES SHELL SORT.1.|
00000810: 3E 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |>.. ************|
00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000830: 2A 00 50 10 44 02 99 22 11 C2 45 4E 20 41 41 4E |*.P.D.."..EN AAN|
00000840: 20 48 45 54 20 53 4F 52 54 45 52 45 4E 2E 2E 22 | HET SORTEREN.."|
00000850: 00 60 10 4E 02 81 49 B2 31 A4 45 3A 4B B2 31 36 |.`.N..I.1.E:K.16|
00000860: 00 8D 10 58 02 81 4A B2 31 A4 31 36 3A 8B CA 28 |...X..J.1.16:..(|
00000870: 4E 46 24 28 49 29 2C 4A 2C 31 29 B2 C7 28 31 36 |NF$(I),J,1)..(16|
00000880: 30 29 A7 4B B2 4A AB 31 3A 4A B2 31 36 00 A7 10 |0).K.J.1:J.16...|
00000890: 62 02 82 4A 3A 53 4B 24 28 49 29 B2 C8 28 4E 46 |b..J:SK$(I)..(NF|
000008A0: 24 28 49 29 2C 4B 29 00 C9 10 6C 02 8B 46 54 24 |$(I),K)...l..FT$|
000008B0: B2 22 59 22 A7 53 4B 24 28 49 29 B2 46 54 24 28 |."Y".SK$(I).FT$(|
000008C0: 49 29 AA 53 4B 24 28 49 29 00 D4 10 76 02 82 49 |I).SK$(I)...v..I|
000008D0: 3A 4D B2 45 00 EA 10 80 02 4D B2 B5 28 4D AD 32 |:M.E.....M..(M.2|
000008E0: 29 3A 8B 4D B2 30 89 37 33 30 00 F8 10 8A 02 4B |):.M.0.730.....K|
000008F0: B2 45 AB 4D 3A 4A B2 30 00 05 11 94 02 8B 4A B1 |.E.M:J.0......J.|
00000900: 4B 89 36 34 30 00 0D 11 9E 02 49 B2 4A 00 1A 11 |K.640.....I.J...|
00000910: A8 02 8B 49 B3 30 89 37 30 30 00 33 11 B2 02 8B |...I.0.700.3....|
00000920: 53 4B 24 28 49 AA 4D 29 B3 53 4B 24 28 49 29 89 |SK$(I.M).SK$(I).|
00000930: 37 31 30 00 42 11 BC 02 4A B2 4A AA 31 3A 89 36 |710.B...J.J.1:.6|
00000940: 36 30 00 6C 11 C6 02 41 24 B2 46 54 24 28 49 29 |60.l...A$.FT$(I)|
00000950: 3A 46 54 24 28 49 29 B2 46 54 24 28 49 AA 4D 29 |:FT$(I).FT$(I.M)|
00000960: 3A 46 54 24 28 49 AA 4D 29 B2 41 24 00 96 11 C7 |:FT$(I.M).A$....|
00000970: 02 41 24 B2 54 53 24 28 49 29 3A 54 53 24 28 49 |.A$.TS$(I):TS$(I|
00000980: 29 B2 54 53 24 28 49 AA 4D 29 3A 54 53 24 28 49 |).TS$(I.M):TS$(I|
00000990: AA 4D 29 B2 41 24 00 C0 11 C8 02 41 24 B2 4E 46 |.M).A$.....A$.NF|
000009A0: 24 28 49 29 3A 4E 46 24 28 49 29 B2 4E 46 24 28 |$(I):NF$(I).NF$(|
000009B0: 49 AA 4D 29 3A 4E 46 24 28 49 AA 4D 29 B2 41 24 |I.M):NF$(I.M).A$|
000009C0: 00 EA 11 C9 02 41 24 B2 46 45 24 28 49 29 3A 46 |.....A$.FE$(I):F|
000009D0: 45 24 28 49 29 B2 46 45 24 28 49 AA 4D 29 3A 46 |E$(I).FE$(I.M):F|
000009E0: 45 24 28 49 AA 4D 29 B2 41 24 00 14 12 CA 02 41 |E$(I.M).A$.....A|
000009F0: 24 B2 53 4B 24 28 49 29 3A 53 4B 24 28 49 29 B2 |$.SK$(I):SK$(I).|
00000A00: 53 4B 24 28 49 AA 4D 29 3A 53 4B 24 28 49 AA 4D |SK$(I.M):SK$(I.M|
00000A10: 29 B2 41 24 00 23 12 D0 02 49 B2 49 AB 4D 3A 89 |).A$.#...I.I.M:.|
00000A20: 36 38 30 00 49 12 DA 02 8F 20 2A 2A 2A 2A 2A 2A |680.I.... ******|
00000A30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 68 12 DB 02 8F 20 |*********.h.... |
00000A50: 20 57 52 49 54 45 20 44 49 52 45 43 54 4F 52 59 | WRITE DIRECTORY|
00000A60: 20 45 4E 54 52 49 45 53 00 8D 12 DC 02 8F 20 2A | ENTRIES...... *|
00000A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B5 12 |*************...|
00000A90: E4 02 99 22 91 C2 45 4E 20 41 41 4E 20 48 45 54 |..."..EN AAN HET|
00000AA0: 20 53 43 48 52 49 4A 56 45 4E 2E 2E 3A 20 22 49 | SCHRIJVEN..: "I|
00000AB0: 44 24 22 20 22 00 E7 12 EE 02 5A 24 B2 C7 28 30 |D$" ".....Z$..(0|
00000AC0: 29 AA C7 28 32 35 35 29 3A 8F 20 54 4F 20 54 45 |)..(255):. TO TE|
00000AD0: 52 4D 49 4E 41 54 45 20 44 49 52 45 43 54 4F 52 |RMINATE DIRECTOR|
00000AE0: 59 20 43 48 41 49 4E 00 02 13 F8 02 53 B2 31 3A |Y CHAIN.....S.1:|
00000AF0: 4E B2 31 3A 8F 20 53 54 41 52 54 20 53 45 43 54 |N.1:. START SECT|
00000B00: 4F 52 00 36 13 02 03 98 43 43 2C 22 55 31 3A 22 |OR.6....CC,"U1:"|
00000B10: 43 32 3B 44 3B 54 3B 53 3A 8D 31 30 30 30 3A 8F |C2;D;T;S:.1000:.|
00000B20: 20 52 45 41 44 20 44 49 52 45 43 54 4F 52 59 20 | READ DIRECTORY |
00000B30: 53 45 43 54 4F 52 00 4D 13 0C 03 42 50 B2 32 3A |SECTOR.M...BP.2:|
00000B40: 8F 20 46 49 52 53 54 20 45 4E 54 52 59 00 6E 13 |. FIRST ENTRY.n.|
00000B50: 16 03 8B 4E B1 45 89 38 39 30 3A 4E 4F 20 4D B0 |...N.E.890:NO M.|
00000B60: 45 20 4C 49 56 45 20 45 4E 54 52 49 45 53 00 8D |E LIVE ENTRIES..|
00000B70: 13 20 03 8B 42 50 B3 32 35 36 89 38 34 30 3A 8F |. ..BP.256.840:.|
00000B80: 20 4E 4F 54 20 59 45 54 20 46 55 4C 4C 00 C2 13 | NOT YET FULL...|
00000B90: 34 03 98 43 43 2C 22 55 32 3A 22 43 32 3B 44 3B |4..CC,"U2:"C2;D;|
00000BA0: 54 3B 53 3A 8D 31 30 30 30 3A 8F 20 57 52 49 54 |T;S:.1000:. WRIT|
00000BB0: 45 20 44 49 52 45 43 54 4F 52 59 20 53 45 43 54 |E DIRECTORY SECT|
00000BC0: 4F 52 00 E1 13 3E 03 53 B2 53 25 28 53 29 3A 89 |OR...>.S.S%(S):.|
00000BD0: 37 37 30 3A 8F 20 4E 45 58 54 20 53 45 43 54 4F |770:. NEXT SECTO|
00000BE0: 52 00 12 14 48 03 98 43 43 2C 22 42 2D 50 3A 22 |R...H..CC,"B-P:"|
00000BF0: 3B 43 32 3B 42 50 3A 8F 20 53 45 54 20 50 4F 49 |;C2;BP:. SET POI|
00000C00: 4E 54 45 52 20 54 4F 20 4E 45 58 54 20 45 4E 54 |NTER TO NEXT ENT|
00000C10: 52 59 00 3B 14 52 03 99 2C 22 20 20 20 20 22 4E |RY.;.R..," "N|
00000C20: 46 24 28 4E 29 22 20 3A 20 22 54 24 28 C6 28 46 |F$(N)" : "T$(.(F|
00000C30: 54 24 28 4E 29 29 AB 31 32 38 29 00 72 14 5C 03 |T$(N)).128).r.\.|
00000C40: 98 43 32 2C 46 54 24 28 4E 29 3B 54 53 24 28 4E |.C2,FT$(N);TS$(N|
00000C50: 29 3B 4E 46 24 28 4E 29 3B 46 45 24 28 4E 29 3B |);NF$(N);FE$(N);|
00000C60: 3A 8F 20 44 49 52 45 43 54 4F 52 59 20 45 4E 54 |:. DIRECTORY ENT|
00000C70: 52 59 00 8A 14 66 03 42 50 B2 42 50 AA 33 32 3A |RY...f.BP.BP.32:|
00000C80: 4E B2 4E AA 31 3A 89 37 39 30 00 A8 14 7A 03 8B |N.N.1:.790...z..|
00000C90: 42 50 B1 32 35 35 89 39 33 30 3A 8F 20 46 55 4C |BP.255.930:. FUL|
00000CA0: 4C 20 53 45 43 54 4F 52 00 BD 14 84 03 98 43 43 |L SECTOR......CC|
00000CB0: 2C 22 42 2D 50 3A 22 3B 43 32 3B 42 50 00 D7 14 |,"B-P:";C2;BP...|
00000CC0: 8E 03 98 43 32 2C 5A 30 24 3A 8F 20 42 4C 41 4E |...C2,Z0$:. BLAN|
00000CD0: 4B 20 45 4E 54 52 59 00 E9 14 98 03 42 50 B2 42 |K ENTRY.....BP.B|
00000CE0: 50 AA 33 32 3A 89 38 39 30 00 03 15 A2 03 42 50 |P.32:.890.....BP|
00000CF0: B2 30 3A 98 43 43 2C 22 42 2D 50 3A 22 3B 43 32 |.0:.CC,"B-P:";C2|
00000D00: 3B 42 50 00 28 15 AC 03 98 43 32 2C 5A 24 3B 3A |;BP.(....C2,Z$;:|
00000D10: 8F 20 45 4E 44 20 4F 46 20 44 49 52 45 43 54 4F |. END OF DIRECTO|
00000D20: 52 59 20 43 48 41 49 4E 00 5D 15 B6 03 98 43 43 |RY CHAIN.]....CC|
00000D30: 2C 22 55 32 3A 22 43 32 3B 44 3B 54 3B 53 3A 8D |,"U2:"C2;D;T;S:.|
00000D40: 31 30 30 30 3A 8F 20 57 52 49 54 45 20 44 49 52 |1000:. WRITE DIR|
00000D50: 45 43 54 4F 52 59 20 53 45 43 54 4F 52 00 89 15 |ECTORY SECTOR...|
00000D60: C0 03 5A 24 B2 C8 28 5A 30 24 2C 32 29 3A 8F 20 |..Z$..(Z0$,2):. |
00000D70: 42 4C 41 4E 4B 53 20 46 4F 52 20 46 55 52 54 48 |BLANKS FOR FURTH|
00000D80: 45 52 20 43 48 41 49 4E 53 00 A8 15 CA 03 53 B2 |ER CHAINS.....S.|
00000D90: 53 25 28 53 29 3A 8B 53 B2 32 35 35 89 39 39 39 |S%(S):.S.255.999|
00000DA0: 3A 8F 20 45 49 4E 44 45 00 E2 15 D4 03 98 43 43 |:. EINDE......CC|
00000DB0: 2C 22 55 31 3A 22 43 32 3B 44 3B 54 3B 53 3A 8D |,"U1:"C2;D;T;S:.|
00000DC0: 31 30 30 30 3A 8F 20 52 45 41 44 20 45 4D 50 54 |1000:. READ EMPT|
00000DD0: 59 20 44 49 52 45 43 54 4F 52 59 20 53 45 43 54 |Y DIRECTORY SECT|
00000DE0: 4F 52 00 06 16 DE 03 42 50 B2 32 3A 89 39 30 30 |OR.....BP.2:.900|
00000DF0: 3A 8F 20 54 4F 20 43 4C 45 41 52 20 4F 55 54 20 |:. TO CLEAR OUT |
00000E00: 53 45 43 54 4F 52 00 19 16 E7 03 A0 43 32 3A A0 |SECTOR......C2:.|
00000E10: 43 43 3A 89 31 31 30 30 30 00 3B 16 E8 03 8F 20 |CC:.11000.;.... |
00000E20: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |* * * * * * * * |
00000E30: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 00 5D 16 E9 03 |* * * * * *.]...|
00000E40: 8F 20 20 49 4E 50 55 54 20 45 52 52 4F 52 20 43 |. INPUT ERROR C|
00000E50: 48 41 4E 4E 45 4C 20 53 54 41 54 55 53 00 7F 16 |HANNEL STATUS...|
00000E60: EA 03 8F 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |... * * * * * * |
00000E70: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 00 |* * * * * * * *.|
00000E80: 9C 16 F2 03 84 43 43 2C 45 4E 2C 45 4D 24 2C 45 |.....CC,EN,EM$,E|
00000E90: 54 2C 45 53 3A 8B 45 4E B2 30 A7 8E 00 C2 16 FC |T,ES:.EN.0......|
00000EA0: 03 99 22 93 20 C4 C9 D3 CB A0 C5 D2 D2 CF D2 A0 |..". ...........|
00000EB0: 22 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 3A 89 39 |"EN;EM$;ET;ES:.9|
00000EC0: 39 39 00 E6 16 06 04 8F 20 2A 20 2A 20 2A 20 2A |99...... * * * *|
00000ED0: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *|
00000EE0: 20 2A 20 2A 20 2A 00 FD 16 07 04 8F 20 47 45 54 | * * *...... GET|
00000EF0: 20 4E 20 43 48 41 52 41 43 54 45 52 53 00 0F 17 | N CHARACTERS...|
00000F00: 08 04 8F 20 46 52 4F 4D 20 42 55 46 46 45 52 00 |... FROM BUFFER.|
00000F10: 33 17 09 04 8F 20 2A 20 2A 20 2A 20 2A 20 2A 20 |3.... * * * * * |
00000F20: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |* * * * * * * * |
00000F30: 2A 20 2A 00 3D 17 10 04 5A 24 B2 22 22 00 4E 17 |* *.=...Z$."".N.|
00000F40: 1A 04 81 49 B2 31 A4 4E 3A 8D 31 31 30 30 00 5F |...I.1.N:.1100._|
00000F50: 17 24 04 5A 24 B2 5A 24 AA 41 24 3A 82 3A 8E 00 |.$.Z$.Z$.A$:.:..|
00000F60: 81 17 4C 04 8F 20 2A 20 2A 20 2A 20 2A 20 2A 20 |..L.. * * * * * |
00000F70: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |* * * * * * * * |
00000F80: 2A 00 99 17 4D 04 8F 20 49 4E 50 55 54 20 46 52 |*...M.. INPUT FR|
00000F90: 4F 4D 20 42 55 46 46 45 52 00 BB 17 4E 04 8F 20 |OM BUFFER...N.. |
00000FA0: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |* * * * * * * * |
00000FB0: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 00 D6 17 56 04 |* * * * * *...V.|
00000FC0: A1 23 43 32 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 |.#C2,A$:.A$."".A|
00000FD0: 24 B2 C7 28 30 29 00 EC 17 60 04 41 B2 C6 28 41 |$..(0)...`.A..(A|
00000FE0: 24 29 3A 42 50 B2 42 50 AA 31 3A 8E 00 10 18 6A |$):BP.BP.1:....j|
00000FF0: 04 8F 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A |.. * * * * * * *|
00001000: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *|
00001010: 00 2A 18 6B 04 8F 20 20 47 45 54 20 4F 4B 20 54 |.*.k.. GET OK T|
00001020: 4F 20 43 4F 4E 54 49 4E 55 45 00 4E 18 6C 04 8F |O CONTINUE.N.l..|
00001030: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *|
00001040: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 00 6E | * * * * * * *.n|
00001050: 18 74 04 99 22 11 CF CB 20 54 4F 20 41 4C 46 41 |.t.."... TO ALFA|
00001060: 42 45 54 49 53 49 5A 45 3F 20 59 2F 4E 22 00 82 |BETISIZE? Y/N"..|
00001070: 18 7E 04 A1 5A 24 3A 8B 5A 24 B2 22 4E 22 A7 39 |.~..Z$:.Z$."N".9|
00001080: 39 39 00 94 18 88 04 8B 5A 24 B3 B1 22 59 22 A7 |99......Z$.."Y".|
00001090: 31 31 35 30 00 C5 18 92 04 99 22 91 20 20 20 20 |1150......". |
000010A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010C0: 20 91 22 3A 8E 00 D2 18 15 27 97 35 33 32 38 30 | .":.....'.53280|
000010D0: 2C 36 00 EC 18 1A 27 99 A3 31 33 29 22 11 11 11 |,6....'..13)"...|
000010E0: 11 11 12 44 4F 53 20 54 4F 4F 4C 22 00 0E 19 1B |...DOS TOOL"....|
000010F0: 27 99 A3 38 29 22 11 20 20 20 42 59 20 53 54 45 |'..8)". BY STE|
00001100: 46 41 41 4E 20 4A 41 4E 53 53 45 4E 53 22 00 34 |FAAN JANSSENS".4|
00001110: 19 1C 27 99 A3 38 29 22 11 4D 41 4E 59 20 54 48 |..'..8)".MANY TH|
00001120: 41 4E 4B 53 20 54 4F 20 44 41 4E 4E 59 20 44 4F |ANKS TO DANNY DO|
00001130: 59 4C 45 22 00 53 19 24 27 99 A3 38 29 22 11 11 |YLE".S.$'..8)"..|
00001140: 20 31 2E 20 52 45 53 54 4F 52 45 20 46 4F 52 4D | 1. RESTORE FORM|
00001150: 41 54 22 00 70 19 25 27 99 A3 38 29 22 11 20 32 |AT".p.%'..8)". 2|
00001160: 2E 20 43 48 41 4E 47 45 20 46 4F 52 4D 41 54 22 |. CHANGE FORMAT"|
00001170: 00 90 19 26 27 99 A3 38 29 22 11 20 33 2E 20 43 |...&'..8)". 3. C|
00001180: 48 41 4E 47 45 20 4E 41 4D 45 20 26 20 49 44 22 |HANGE NAME & ID"|
00001190: 00 AB 19 27 27 99 A3 38 29 22 11 20 34 2E 20 56 |...''..8)". 4. V|
000011A0: 49 45 57 20 53 45 43 54 4F 52 22 00 C6 19 28 27 |IEW SECTOR"...('|
000011B0: 99 A3 38 29 22 11 20 35 2E 20 56 49 45 57 20 54 |..8)". 5. VIEW T|
000011C0: 31 38 20 53 30 22 00 E3 19 29 27 99 A3 38 29 22 |18 S0"...)'..8)"|
000011D0: 11 20 36 2E 20 43 48 41 4E 47 45 20 41 20 42 59 |. 6. CHANGE A BY|
000011E0: 54 45 22 00 F9 19 2A 27 99 A3 38 29 22 11 20 37 |TE"...*'..8)". 7|
000011F0: 2E 20 4F 54 48 45 52 53 22 00 0C 1A 2B 27 99 A3 |. OTHERS"...+'..|
00001200: 38 29 22 11 20 38 2E 20 45 4E 44 22 00 29 1A 2C |8)". 8. END".).,|
00001210: 27 99 A3 31 32 29 22 11 59 4F 55 52 20 43 48 4F |'..12)".YOUR CHO|
00001220: 49 43 45 22 3B 3A 85 43 24 00 3B 1A 2D 27 8B 43 |ICE";:.C$.;.-'.C|
00001230: 24 B2 22 31 22 A7 31 30 31 39 39 00 4D 1A 2E 27 |$."1".10199.M..'|
00001240: 8B 43 24 B2 22 32 22 A7 31 30 31 30 30 00 5F 1A |.C$."2".10100._.|
00001250: 2F 27 8B 43 24 B2 22 33 22 A7 31 30 31 31 30 00 |/'.C$."3".10110.|
00001260: 71 1A 30 27 8B 43 24 B2 22 34 22 A7 31 30 34 30 |q.0'.C$."4".1040|
00001270: 30 00 83 1A 31 27 8B 43 24 B2 22 35 22 A7 31 30 |0...1'.C$."5".10|
00001280: 35 30 30 00 95 1A 32 27 8B 43 24 B2 22 36 22 A7 |500...2'.C$."6".|
00001290: 31 30 37 30 30 00 A7 1A 33 27 8B 43 24 B2 22 37 |10700...3'.C$."7|
000012A0: 22 A7 31 30 38 30 30 00 E1 1A 34 27 8B 43 24 B2 |".10800...4'.C$.|
000012B0: 22 38 22 A7 99 22 11 11 C9 20 48 4F 50 45 20 C9 |"8".."... HOPE .|
000012C0: 20 48 41 56 45 4E 27 54 20 44 4F 4E 45 20 41 4E | HAVEN'T DONE AN|
000012D0: 59 54 48 49 4E 47 20 57 52 4F 4E 47 21 21 22 3A |YTHING WRONG!!":|
000012E0: 80 00 EC 1A 35 27 89 31 30 30 31 30 00 1C 1B 74 |....5'.10010...t|
000012F0: 27 99 A3 37 29 22 11 11 57 48 49 43 48 20 46 4F |'..7)"..WHICH FO|
00001300: 52 4D 41 54 20 5B 4F 4E 45 20 43 48 41 52 41 43 |RMAT [ONE CHARAC|
00001310: 54 45 52 21 5D 22 3B 3A 85 44 4F 24 00 3B 1B 76 |TER!]";:.DO$.;.v|
00001320: 27 44 4F 24 B2 C8 28 44 4F 24 2C 31 29 3A 44 4F |'DO$..(DO$,1):DO|
00001330: 24 B2 C7 28 C5 28 44 4F 24 29 29 00 46 1B 79 27 |$..(.(DO$)).F.y'|
00001340: 89 31 30 32 30 30 00 53 1B 7E 27 9F 31 35 2C 38 |.10200.S.~'.15,8|
00001350: 2C 31 35 00 64 1B 7F 27 9F 31 30 2C 38 2C 31 30 |,15.d..'.10,8,10|
00001360: 2C 22 23 22 00 7A 1B 80 27 98 31 35 2C 22 55 31 |,"#".z..'.15,"U1|
00001370: 22 31 30 3B 30 3B 31 38 3B 30 00 8F 1B 81 27 98 |"10;0;18;0....'.|
00001380: 31 35 2C 22 42 2D 50 3A 22 31 30 3B 31 34 34 00 |15,"B-P:"10;144.|
00001390: A6 1B 83 27 81 54 B2 31 34 34 A4 31 35 39 3A A1 |...'.T.144.159:.|
000013A0: 23 31 30 2C 41 24 00 B7 1B 84 27 4E 41 24 B2 4E |#10,A$....'NA$.N|
000013B0: 41 24 AA 41 24 3A 82 00 CC 1B 85 27 98 31 35 2C |A$.A$:.....'.15,|
000013C0: 22 42 2D 50 3A 22 31 30 3B 31 36 32 00 EA 1B 86 |"B-P:"10;162....|
000013D0: 27 A1 23 31 30 2C 41 24 3A A1 23 31 30 2C 42 24 |'.#10,A$:.#10,B$|
000013E0: 3A 49 44 24 B2 41 24 AA 42 24 00 04 1C 88 27 99 |:ID$.A$.B$....'.|
000013F0: 22 11 11 50 52 45 53 45 4E 54 20 4E 41 4D 45 3A |"..PRESENT NAME:|
00001400: 22 4E 41 24 00 1D 1C 89 27 99 22 11 50 52 45 53 |"NA$....'.".PRES|
00001410: 45 4E 54 20 49 44 20 20 3A 22 49 44 24 00 33 1C |ENT ID :"ID$.3.|
00001420: 8D 27 85 22 11 11 4E 45 57 20 4E 41 4D 45 22 3B |.'."..NEW NAME";|
00001430: 4E 41 24 00 5B 1C 8E 27 8B C3 28 4E 41 24 29 B1 |NA$.[..'..(NA$).|
00001440: 31 36 A7 99 22 11 4E 41 4D 45 20 54 4F 4F 20 4C |16..".NAME TOO L|
00001450: 4F 4E 47 22 3A 89 31 30 31 32 35 00 71 1C 8F 27 |ONG":.10125.q..'|
00001460: 85 22 11 11 4E 45 57 20 49 44 20 20 22 3B 49 44 |."..NEW ID ";ID|
00001470: 24 00 A8 1C 90 27 8B C3 28 49 44 24 29 B3 B1 32 |$....'..(ID$)..2|
00001480: A7 99 22 11 4F 4E 4C 59 20 32 2D 43 48 41 52 41 |..".ONLY 2-CHARA|
00001490: 43 54 45 52 20 49 44 27 53 20 50 4C 45 41 53 45 |CTER ID'S PLEASE|
000014A0: 22 3A 89 31 30 31 32 37 00 CE 1C 92 27 8B C3 28 |":.10127....'..(|
000014B0: 4E 41 24 29 B3 B1 31 38 A7 4E 41 24 B2 4E 41 24 |NA$)..18.NA$.NA$|
000014C0: AA C7 28 31 36 30 29 3A 89 31 30 31 33 30 00 E3 |..(160):.10130..|
000014D0: 1C 97 27 98 31 35 2C 22 42 2D 50 3A 22 31 30 3B |..'.15,"B-P:"10;|
000014E0: 31 34 34 00 F0 1C 9C 27 98 31 30 2C 4E 41 24 3B |144....'.10,NA$;|
000014F0: 00 05 1D 9D 27 98 31 35 2C 22 42 2D 50 3A 22 31 |....'.15,"B-P:"1|
00001500: 30 3B 31 36 32 00 12 1D 9E 27 98 31 30 2C 49 44 |0;162....'.10,ID|
00001510: 24 3B 00 28 1D A1 27 98 31 35 2C 22 55 32 22 31 |$;.(..'.15,"U2"1|
00001520: 30 3B 30 3B 31 38 3B 30 00 30 1D A6 27 A0 31 30 |0;0;18;0.0..'.10|
00001530: 00 38 1D AB 27 A0 31 35 00 43 1D B0 27 89 31 30 |.8..'.15.C..'.10|
00001540: 32 39 30 00 51 1D D7 27 44 4F 24 B2 C7 28 36 35 |290.Q..'DO$..(65|
00001550: 29 00 5E 1D D8 27 9F 31 35 2C 38 2C 31 35 00 6F |).^..'.15,8,15.o|
00001560: 1D E2 27 9F 31 30 2C 38 2C 31 30 2C 22 23 22 00 |..'.10,8,10,"#".|
00001570: 85 1D EC 27 98 31 35 2C 22 55 31 22 31 30 3B 30 |...'.15,"U1"10;0|
00001580: 3B 31 38 3B 30 00 98 1D F6 27 98 31 35 2C 22 42 |;18;0....'.15,"B|
00001590: 2D 50 3A 22 31 30 3B 32 00 A5 1D 00 28 98 31 30 |-P:"10;2....(.10|
000015A0: 2C 44 4F 24 3B 00 BB 1D 0A 28 98 31 35 2C 22 55 |,DO$;....(.15,"U|
000015B0: 32 22 31 30 3B 30 3B 31 38 3B 30 00 C3 1D 14 28 |2"10;0;18;0....(|
000015C0: A0 31 30 00 CB 1D 28 28 A0 31 35 00 DC 1D 32 28 |.10...((.15...2(|
000015D0: 9F 31 35 2C 38 2C 31 35 2C 22 49 22 00 E4 1D 3C |.15,8,15,"I"...<|
000015E0: 28 A0 31 35 00 EF 1D 46 28 89 31 31 30 30 30 00 |(.15...F(.11000.|
000015F0: FC 1D A0 28 9F 31 35 2C 38 2C 31 35 00 0D 1E AA |...(.15,8,15....|
00001600: 28 9F 31 30 2C 38 2C 31 30 2C 22 23 22 00 25 1E |(.10,8,10,"#".%.|
00001610: AF 28 85 22 11 11 54 52 41 43 4B 20 5B 31 2D 33 |.(."..TRACK [1-3|
00001620: 35 5D 22 3B 54 00 3F 1E B0 28 85 22 53 45 43 54 |5]";T.?..(."SECT|
00001630: 4F 52 20 5B 30 2D 32 31 4D 41 58 5D 22 3B 53 00 |OR [0-21MAX]";S.|
00001640: 53 1E B1 28 8B 54 B1 33 35 B0 54 B2 30 A7 31 30 |S..(.T.35.T.0.10|
00001650: 34 31 35 00 63 1E B2 28 8B 53 B1 32 31 A7 31 30 |415.c..(.S.21.10|
00001660: 34 31 36 00 92 1E B3 28 8B 28 54 B1 33 30 AF 53 |416....(.(T.30.S|
00001670: B1 31 37 29 B0 28 54 B1 32 34 AF 53 B1 31 38 29 |.17).(T.24.S.18)|
00001680: B0 28 54 B1 31 37 AF 53 B1 31 39 29 A7 31 30 34 |.(T.17.S.19).104|
00001690: 31 36 00 A7 1E B4 28 98 31 35 2C 22 55 31 22 31 |16....(.15,"U1"1|
000016A0: 30 3B 30 3B 54 3B 53 00 BC 1E B9 28 81 51 B2 30 |0;0;T;S....(.Q.0|
000016B0: A4 32 35 35 3A A1 23 31 30 2C 41 24 00 D4 1E BE |.255:.#10,A$....|
000016C0: 28 99 51 3B 3A 99 A3 37 29 C6 28 41 24 AA C7 28 |(.Q;:..7).(A$..(|
000016D0: 30 29 29 3B 00 F8 1E C3 28 99 A3 31 32 29 41 24 |0));....(..12)A$|
000016E0: 3B 3A 8B 41 24 B3 B1 C7 28 33 34 29 A7 99 22 9A |;:.A$...(34)..".|
000016F0: 22 3A 89 31 30 34 34 30 00 FE 1E C4 28 99 00 10 |":.10440....(...|
00001700: 1F C8 28 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 |..(.198,0:.198,1|
00001710: 00 16 1F CD 28 82 00 1E 1F D2 28 A0 31 30 00 2D |....(.....(.10.-|
00001720: 1F D7 28 A0 31 35 3A 89 31 31 30 30 30 00 3A 1F |..(.15:.11000.:.|
00001730: 04 29 9F 31 35 2C 38 2C 31 35 00 4B 1F 0E 29 9F |.).15,8,15.K..).|
00001740: 31 30 2C 38 2C 31 30 2C 22 23 22 00 6A 1F 13 29 |10,8,10,"#".j..)|
00001750: 99 22 42 41 4D 20 4F 52 20 44 49 52 45 43 54 4F |."BAM OR DIRECTO|
00001760: 52 59 20 48 45 41 44 45 52 22 00 78 1F 14 29 85 |RY HEADER".x..).|
00001770: 22 42 2F 44 22 3B 43 24 00 8A 1F 15 29 8B 43 24 |"B/D";C$....).C$|
00001780: B2 22 42 22 A7 31 30 35 35 30 00 9C 1F 16 29 8B |."B".10550....).|
00001790: 43 24 B2 22 44 22 A7 31 30 36 30 30 00 A7 1F 17 |C$."D".10600....|
000017A0: 29 89 31 30 35 31 35 00 BD 1F 36 29 98 31 35 2C |).10515...6).15,|
000017B0: 22 55 31 22 31 30 3B 30 3B 31 38 3B 30 00 CF 1F |"U1"10;0;18;0...|
000017C0: 3B 29 98 31 35 2C 22 42 2D 50 22 31 30 2C 30 00 |;).15,"B-P"10,0.|
000017D0: DB 1F 3C 29 A1 23 31 30 2C 41 24 00 09 20 3D 29 |..<).#10,A$.. =)|
000017E0: 99 30 3B A3 35 29 22 46 49 52 53 54 20 44 49 52 |.0;.5)"FIRST DIR|
000017F0: 45 43 54 4F 52 59 20 42 4C 4F 43 4B 20 54 52 41 |ECTORY BLOCK TRA|
00001800: 43 4B 20 22 C6 28 41 24 29 00 15 20 3E 29 A1 23 |CK ".(A$).. >).#|
00001810: 31 30 2C 41 24 00 43 20 3F 29 99 31 3B A3 35 29 |10,A$.C ?).1;.5)|
00001820: 22 46 49 52 53 54 20 44 49 52 45 43 54 4F 52 59 |"FIRST DIRECTORY|
00001830: 20 42 4C 4F 43 4B 20 53 45 43 54 4F 52 22 C6 28 | BLOCK SECTOR".(|
00001840: 41 24 29 00 4F 20 40 29 A1 23 31 30 2C 41 24 00 |A$).O @).#10,A$.|
00001850: 61 20 41 29 99 32 3B A3 35 29 3B C6 28 41 24 29 |a A).2;.5);.(A$)|
00001860: 3B 00 86 20 42 29 8B C6 28 41 24 29 B2 36 35 A7 |;.. B)..(A$).65.|
00001870: 99 22 20 34 30 34 30 20 46 4F 52 4D 41 54 22 3A |." 4040 FORMAT":|
00001880: 89 31 30 35 36 35 00 95 20 43 29 99 22 20 46 4F |.10565.. C)." FO|
00001890: 52 4D 41 54 22 00 AA 20 45 29 81 54 B2 33 A4 31 |RMAT".. E).T.3.1|
000018A0: 34 33 3A A1 23 31 30 2C 41 24 00 C2 20 46 29 99 |43:.#10,A$.. F).|
000018B0: 54 3B 3A 99 A3 37 29 C6 28 41 24 AA C7 28 30 29 |T;:..7).(A$..(0)|
000018C0: 29 3B 00 E6 20 47 29 99 A3 31 32 29 41 24 3B 3A |);.. G)..12)A$;:|
000018D0: 8B 41 24 B3 B1 C7 28 33 34 29 A7 99 22 9A 22 3A |.A$...(34)..".":|
000018E0: 89 31 30 35 36 39 00 EC 20 48 29 99 00 00 21 49 |.10569.. H)...!I|
000018F0: 29 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A 82 |).198,0:.198,1:.|
00001900: 00 13 21 4A 29 A0 31 30 3A A0 31 35 3A 89 31 31 |..!J).10:.15:.11|
00001910: 30 30 30 00 29 21 68 29 98 31 35 2C 22 55 31 22 |000.)!h).15,"U1"|
00001920: 31 30 3B 30 3B 31 38 3B 30 00 3D 21 6D 29 98 31 |10;0;18;0.=!m).1|
00001930: 35 2C 22 42 2D 50 22 31 30 2C 31 34 34 00 4F 21 |5,"B-P"10,144.O!|
00001940: 6F 29 99 22 12 44 49 53 4B 20 4E 41 4D 45 22 00 |o).".DISK NAME".|
00001950: 66 21 72 29 81 54 B2 31 34 34 A4 31 35 39 3A A1 |f!r).T.144.159:.|
00001960: 23 31 30 2C 41 24 00 7E 21 73 29 99 54 3B 3A 99 |#10,A$.~!s).T;:.|
00001970: A3 37 29 C6 28 41 24 AA C7 28 30 29 29 3B 00 A2 |.7).(A$..(0));..|
00001980: 21 74 29 99 A3 31 32 29 41 24 3B 3A 8B 41 24 B3 |!t)..12)A$;:.A$.|
00001990: B1 C7 28 33 34 29 A7 99 22 9A 22 3A 89 31 30 36 |..(34)..".":.106|
000019A0: 31 34 00 A8 21 75 29 99 00 BC 21 76 29 97 31 39 |14..!u)...!v).19|
000019B0: 38 2C 30 3A 92 31 39 38 2C 31 3A 82 00 D3 21 77 |8,0:.198,1:...!w|
000019C0: 29 99 22 12 53 48 49 46 54 45 44 20 53 50 41 43 |).".SHIFTED SPAC|
000019D0: 45 53 22 00 E2 21 78 29 81 54 B2 31 36 30 A4 31 |ES"..!x).T.160.1|
000019E0: 36 31 00 EE 21 7C 29 A1 23 31 30 2C 41 24 00 06 |61..!|).#10,A$..|
000019F0: 22 7D 29 99 54 3B 3A 99 A3 37 29 C6 28 41 24 AA |"}).T;:..7).(A$.|
00001A00: C7 28 30 29 29 3B 00 2A 22 7E 29 99 A3 31 32 29 |.(0));.*"~)..12)|
00001A10: 41 24 3B 3A 8B 41 24 B3 B1 C7 28 33 34 29 A7 99 |A$;:.A$...(34)..|
00001A20: 22 9A 22 3A 89 31 30 36 32 34 00 30 22 7F 29 99 |".":.10624.0".).|
00001A30: 00 36 22 80 29 82 00 46 22 81 29 99 22 12 44 49 |.6".)..F".).".DI|
00001A40: 53 4B 20 49 44 22 00 55 22 82 29 81 54 B2 31 36 |SK ID".U".).T.16|
00001A50: 32 A4 31 36 33 00 61 22 86 29 A1 23 31 30 2C 41 |2.163.a".).#10,A|
00001A60: 24 00 79 22 87 29 99 54 3B 3A 99 A3 37 29 C6 28 |$.y".).T;:..7).(|
00001A70: 41 24 AA C7 28 30 29 29 3B 00 9D 22 88 29 99 A3 |A$..(0));..".)..|
00001A80: 31 32 29 41 24 3B 3A 8B 41 24 B3 B1 C7 28 33 34 |12)A$;:.A$...(34|
00001A90: 29 A7 99 22 9A 22 3A 89 31 30 36 33 34 00 A3 22 |)..".":.10634.."|
00001AA0: 89 29 99 00 A9 22 8A 29 82 00 BF 22 8B 29 99 22 |.)...".)...".)."|
00001AB0: 12 53 48 49 46 54 45 44 20 53 50 41 43 45 22 00 |.SHIFTED SPACE".|
00001AC0: CB 22 90 29 A1 23 31 30 2C 41 24 00 E3 22 91 29 |.".).#10,A$..".)|
00001AD0: 99 54 3B 3A 99 A3 37 29 C6 28 41 24 AA C7 28 30 |.T;:..7).(A$..(0|
00001AE0: 29 29 3B 00 07 23 92 29 99 A3 31 32 29 41 24 3B |));..#.)..12)A$;|
00001AF0: 3A 8B 41 24 B3 B1 C7 28 33 34 29 A7 99 22 9A 22 |:.A$...(34).."."|
00001B00: 3A 89 31 30 36 34 35 00 0D 23 93 29 99 00 2F 23 |:.10645..#.)../#|
00001B10: 95 29 99 22 12 44 4F 53 20 56 45 52 53 49 4F 4E |.).".DOS VERSION|
00001B20: 20 26 20 46 4F 52 4D 41 54 20 54 59 50 45 22 00 | & FORMAT TYPE".|
00001B30: 3E 23 96 29 81 54 B2 31 36 35 A4 31 36 36 00 4A |>#.).T.165.166.J|
00001B40: 23 9A 29 A1 23 31 30 2C 41 24 00 62 23 9B 29 99 |#.).#10,A$.b#.).|
00001B50: 54 3B 3A 99 A3 37 29 C6 28 41 24 AA C7 28 30 29 |T;:..7).(A$..(0)|
00001B60: 29 3B 00 86 23 9C 29 99 A3 31 32 29 41 24 3B 3A |);..#.)..12)A$;:|
00001B70: 8B 41 24 B3 B1 C7 28 33 34 29 A7 99 22 9A 22 3A |.A$...(34)..".":|
00001B80: 89 31 30 36 35 34 00 8C 23 9D 29 99 00 92 23 9E |.10654..#.)...#.|
00001B90: 29 82 00 A9 23 9F 29 99 22 12 53 48 49 46 54 45 |)...#.).".SHIFTE|
00001BA0: 44 20 53 50 41 43 45 53 22 00 B8 23 A0 29 81 54 |D SPACES"..#.).T|
00001BB0: B2 31 36 37 A4 31 37 30 00 C4 23 A4 29 A1 23 31 |.167.170..#.).#1|
00001BC0: 30 2C 41 24 00 DC 23 A5 29 99 54 3B 3A 99 A3 37 |0,A$..#.).T;:..7|
00001BD0: 29 C6 28 41 24 AA C7 28 30 29 29 3B 00 00 24 A6 |).(A$..(0));..$.|
00001BE0: 29 99 A3 31 32 29 41 24 3B 3A 8B 41 24 B3 B1 C7 |)..12)A$;:.A$...|
00001BF0: 28 33 34 29 A7 99 22 9A 22 3A 89 31 30 36 36 34 |(34)..".":.10664|
00001C00: 00 06 24 A7 29 99 00 1A 24 A8 29 97 31 39 38 2C |..$.)...$.).198,|
00001C10: 30 3A 92 31 39 38 2C 31 3A 82 00 33 24 A9 29 99 |0:.198,1:..3$.).|
00001C20: 22 12 4E 55 4C 4C 53 20 2C 20 4E 4F 54 20 55 53 |".NULLS , NOT US|
00001C30: 45 44 22 00 42 24 AA 29 81 54 B2 31 37 31 A4 32 |ED".B$.).T.171.2|
00001C40: 35 35 00 4E 24 AE 29 A1 23 31 30 2C 41 24 00 66 |55.N$.).#10,A$.f|
00001C50: 24 AF 29 99 54 3B 3A 99 A3 37 29 C6 28 41 24 AA |$.).T;:..7).(A$.|
00001C60: C7 28 30 29 29 3B 00 8A 24 B0 29 99 A3 31 32 29 |.(0));..$.)..12)|
00001C70: 41 24 3B 3A 8B 41 24 B3 B1 C7 28 33 34 29 A7 99 |A$;:.A$...(34)..|
00001C80: 22 9A 22 3A 89 31 30 36 37 34 00 90 24 B1 29 99 |".":.10674..$.).|
00001C90: 00 A4 24 B2 29 97 31 39 38 2C 30 3A 92 31 39 38 |..$.).198,0:.198|
00001CA0: 2C 31 3A 82 00 B7 24 B8 29 A0 31 30 3A A0 31 35 |,1:...$.).10:.15|
00001CB0: 3A 89 31 31 30 30 30 00 C4 24 CC 29 9F 31 35 2C |:.11000..$.).15,|
00001CC0: 38 2C 31 35 00 D5 24 D1 29 9F 31 30 2C 38 2C 31 |8,15..$.).10,8,1|
00001CD0: 30 2C 22 23 22 00 F4 24 D5 29 99 22 11 11 57 48 |0,"#"..$.)."..WH|
00001CE0: 49 43 48 20 54 52 41 43 4B 20 26 20 53 45 43 54 |ICH TRACK & SECT|
00001CF0: 4F 52 20 22 00 FD 24 D6 29 85 54 2C 53 00 26 25 |OR "..$.).T,S.&%|
00001D00: D7 29 99 22 11 57 48 49 43 48 20 42 59 54 45 20 |.).".WHICH BYTE |
00001D10: 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 |DO YOU WANT TO C|
00001D20: 48 41 4E 47 45 22 00 2D 25 D8 29 85 42 00 42 25 |HANGE".-%.).B.B%|
00001D30: DB 29 98 31 35 2C 22 55 31 22 31 30 3B 30 3B 54 |.).15,"U1"10;0;T|
00001D40: 3B 53 00 55 25 DD 29 98 31 35 2C 22 42 2D 50 3A |;S.U%.).15,"B-P:|
00001D50: 22 31 30 3B 42 00 77 25 E0 29 99 22 41 53 43 49 |"10;B.w%.)."ASCI|
00001D60: 49 20 56 41 4C 55 45 20 4F 46 20 42 59 54 45 20 |I VALUE OF BYTE |
00001D70: 50 4C 45 41 53 45 22 00 7F 25 E2 29 85 42 59 00 |PLEASE"..%.).BY.|
00001D80: 8E 25 E5 29 98 31 30 2C C7 28 42 59 29 3B 00 A9 |.%.).10,.(BY);..|
00001D90: 25 EA 29 99 22 41 4E 4F 54 48 45 52 20 4F 4E 45 |%.)."ANOTHER ONE|
00001DA0: 20 59 2F 4E 22 3A 85 41 24 00 BB 25 EC 29 8B 41 | Y/N":.A$..%.).A|
00001DB0: 24 B2 22 59 22 A7 31 30 37 30 39 00 D0 25 EF 29 |$."Y".10709..%.)|
00001DC0: 98 31 35 2C 22 55 32 22 31 30 3B 30 3B 54 3B 53 |.15,"U2"10;0;T;S|
00001DD0: 00 D8 25 F4 29 A0 31 30 00 E0 25 F9 29 A0 31 35 |..%.).10..%.).15|
00001DE0: 00 EB 25 FE 29 89 31 30 32 39 30 00 08 26 30 2A |..%.).10290..&0*|
00001DF0: 99 22 93 22 A3 38 29 22 11 31 29 20 46 4F 52 4D |.".".8)".1) FORM|
00001E00: 41 54 20 44 49 53 4B 22 00 26 26 31 2A 99 A3 38 |AT DISK".&&1*..8|
00001E10: 29 22 11 32 29 20 43 4C 45 41 52 20 44 49 52 45 |)".2) CLEAR DIRE|
00001E20: 43 54 4F 52 59 22 00 43 26 32 2A 99 A3 38 29 22 |CTORY".C&2*..8)"|
00001E30: 11 33 29 20 52 45 4E 41 4D 45 20 50 52 4F 47 52 |.3) RENAME PROGR|
00001E40: 41 4D 22 00 61 26 33 2A 99 A3 38 29 22 11 34 29 |AM".a&3*..8)".4)|
00001E50: 20 53 43 52 41 54 43 48 20 50 52 4F 47 52 41 4D | SCRATCH PROGRAM|
00001E60: 22 00 7F 26 34 2A 99 A3 38 29 22 11 35 29 20 49 |"..&4*..8)".5) I|
00001E70: 4E 49 54 49 41 4C 49 5A 45 20 44 49 53 4B 22 00 |NITIALIZE DISK".|
00001E80: A7 26 35 2A 99 A3 38 29 22 11 36 29 20 52 45 41 |.&5*..8)".6) REA|
00001E90: 44 20 44 49 52 45 43 54 4F 52 59 20 28 50 52 45 |D DIRECTORY (PRE|
00001EA0: 53 53 20 5B 4E 5D 22 00 D2 26 36 2A 99 A3 38 29 |SS [N]"..&6*..8)|
00001EB0: 22 11 37 29 20 41 4C 46 41 42 45 54 49 53 49 5A |".7) ALFABETISIZ|
00001EC0: 45 20 44 49 52 2E 20 28 50 52 45 53 53 20 5B 59 |E DIR. (PRESS [Y|
00001ED0: 5D 22 00 EF 26 39 2A 99 A3 31 32 29 22 11 59 4F |]"..&9*..12)".YO|
00001EE0: 55 52 20 43 48 4F 49 43 45 22 3B 3A 85 43 24 00 |UR CHOICE";:.C$.|
00001EF0: 01 27 44 2A 8B 43 24 B2 22 31 22 A7 31 30 38 34 |.'D*.C$."1".1084|
00001F00: 30 00 13 27 45 2A 8B 43 24 B2 22 32 22 A7 31 30 |0..'E*.C$."2".10|
00001F10: 38 35 30 00 25 27 46 2A 8B 43 24 B2 22 33 22 A7 |850.%'F*.C$."3".|
00001F20: 31 30 38 36 30 00 37 27 47 2A 8B 43 24 B2 22 34 |10860.7'G*.C$."4|
00001F30: 22 A7 31 30 38 37 30 00 49 27 48 2A 8B 43 24 B2 |".10870.I'H*.C$.|
00001F40: 22 35 22 A7 31 30 38 38 30 00 59 27 49 2A 8B 43 |"5".10880.Y'I*.C|
00001F50: 24 B2 22 36 22 A7 31 31 30 00 69 27 4A 2A 8B 43 |$."6".110.i'J*.C|
00001F60: 24 B2 22 37 22 A7 31 31 30 00 74 27 54 2A 89 31 |$."7".110.t'T*.1|
00001F70: 30 30 31 30 00 8B 27 58 2A 85 22 4E 41 4D 45 20 |0010..'X*."NAME |
00001F80: 4F 46 20 44 49 53 4B 22 3B 4E 24 00 9F 27 59 2A |OF DISK";N$..'Y*|
00001F90: 8B C3 28 44 24 29 B1 31 36 A7 31 30 38 34 30 00 |..(D$).16.10840.|
00001FA0: B2 27 5A 2A 85 22 44 49 53 4B 20 49 44 22 3B 49 |.'Z*."DISK ID";I|
00001FB0: 44 24 00 C6 27 5B 2A 8B C3 28 49 44 24 29 B1 32 |D$..'[*..(ID$).2|
00001FC0: A7 31 30 38 34 32 00 E8 27 5C 2A 9F 31 35 2C 38 |.10842..'\*.15,8|
00001FD0: 2C 31 35 2C 22 4E 30 3A 22 AA 4E 24 AA 22 2C 22 |,15,"N0:".N$.","|
00001FE0: AA 49 44 24 3A A0 31 35 00 F3 27 5D 2A 89 31 31 |.ID$:.15..']*.11|
00001FF0: 30 30 30 00 0A 28 62 2A 85 22 4E 41 4D 45 20 4F |000..(b*."NAME O|
00002000: 46 20 44 49 53 4B 22 3B 4E 24 00 1F 28 63 2A 8B |F DISK";N$..(c*.|
00002010: C3 28 4E 24 29 B1 31 36 A7 31 30 38 35 30 24 00 |.(N$).16.10850$.|
00002020: 39 28 66 2A 9F 31 35 2C 38 2C 31 35 2C 22 4E 30 |9(f*.15,8,15,"N0|
00002030: 3A 22 AA 4E 24 3A A0 31 35 00 44 28 67 2A 89 31 |:".N$:.15.D(g*.1|
00002040: 31 30 30 30 00 57 28 6C 2A 85 22 4F 4C 44 20 4E |1000.W(l*."OLD N|
00002050: 41 4D 45 22 3B 4F 24 00 6A 28 6D 2A 85 22 4E 45 |AME";O$.j(m*."NE|
00002060: 57 20 4E 41 4D 45 22 3B 4E 24 00 8B 28 6E 2A 9F |W NAME";N$..(n*.|
00002070: 31 35 2C 38 2C 31 35 2C 22 52 30 3A 22 AA 4E 24 |15,8,15,"R0:".N$|
00002080: AA 22 3D 22 AA 4F 24 3A A0 31 35 00 96 28 6F 2A |."=".O$:.15..(o*|
00002090: 89 31 31 30 30 30 00 A7 28 76 2A 99 22 4E 41 4D |.11000..(v*."NAM|
000020A0: 45 3F 22 3A 85 4E 24 00 C1 28 78 2A 9F 31 35 2C |E?":.N$..(x*.15,|
000020B0: 38 2C 31 35 2C 22 53 30 3A 22 AA 4E 24 3A A0 31 |8,15,"S0:".N$:.1|
000020C0: 35 00 CC 28 7B 2A 89 31 31 30 30 30 00 EF 28 F8 |5..({*.11000..(.|
000020D0: 2A 9F 31 35 2C 38 2C 31 35 3A 99 22 93 11 11 11 |*.15,8,15:."....|
000020E0: 20 44 49 53 4B 20 53 54 41 54 55 53 20 22 3B 00 | DISK STATUS ";.|
000020F0: 03 29 F9 2A 84 31 35 2C 41 24 2C 42 24 2C 43 24 |.).*.15,A$,B$,C$|
00002100: 2C 44 24 00 1A 29 FA 2A 99 41 24 22 20 22 42 24 |,D$..).*.A$" "B$|
00002110: 22 20 22 43 24 22 20 22 44 24 00 29 29 FB 2A A0 |" "C$" "D$.)).*.|
00002120: 31 35 3A 89 31 30 30 32 30 00 00 00 31 32 AA A0 |15:.10020...12..|
..(....G(14)".":.53281,0:.53280,0:.10010
...N...L.X..G(14)". TIDY DIRECTORY ".|..
..".. BRENG DISK IN DRIVE 0. RETURN = RE
ADY.......Z$:.Z$..G(13).140......*******
***********************...... * OPEN FI
LES & BUFFER CHANNEL...... * SET UP INI
TIAL PARAMETERS.#....*******************
***********.K. .DN.8:D.0:C2.2:CC.15:T.18
:S.0:BP.144.D....CC,DN,CC,"I0":.1000.|..
..C2,DN,C2,"#":.1000. .H.. *************
****************...I.. GET DISK ID:TRCK1
8/SCTR0...J.. **************************
***...R..CC,"U1:"C2;D;T;S:.1000......CC,
"B-P:"C2;BP.0...ID$."":N.20:.1030:ID$.Z$
.P....".TE LADEN DISK : "ID$" ".T.,.. *
****************************...-.. SET U
P DIRECTORY ARRAYS...... AND SECTOR TRAI
L.D./.. ALLOW FOR 19 SECTORS...0.. ALLOW
FOR 152 ENTRIES...1.. *****************
************.).6.. S%(19):. NEXT DIRECTO
RY SECTOR.D.7.. FT$(192):. FILE TYPE.N.8
.. TS$(192):. TR&S OF FIRST DATA BLOCK..
.9.. NF$(192):. FILENAME...:.. FE$(192):
. FILE ENTRIES.A.;.. SK$(192):. SORT KEY
S.M.@.. T$(4)...A.T$(1)."SEQ":T$(2)."PRG
":T$(3)."USR":T$(4)."REL"...J..I.1.30:Z0
$.Z0$.G(0):..A.^.. *********************
*********.B._.. READ DIRECTORY ENTRI
ES...`.. ******************************.
..H.S.1:. START SECTOR...R.E.1:. START F
ILE ENTRY.Z.|..CC,"U1:"C2;D;T;S:.1000:BP
.1......CC,"B-P:";C2;BP:.1100:S%(S).A:.
GET NEXT SECTOR.>....CC,"B-P:"C2;BP:.110
0:FT.A:. GET FILE TYPE.K....FT.0.FT.128.
BP.BP.31:.500:. BLANK ENTRY......FT.128.
.". FILE ERROR NOT CLOSED":.999.....FT$
(E).A$.H...N.2:.1040:TS$(E).Z$:. GET T&S
...B.N.16:.1040:NF$(E).Z$:. GET NAME...L
.N.11:.1040:FE$(E).Z$:. GET FILE ENTRIES
.>.V.. *******************************.\
.W.. PRINT DIRECTORY ENTRY...X.. *****
**************************......," "N
F$(E)" : "T$(FT.128).....BP.BP.2:E.E.1.W
....BP.256.400:. FOR NEXT ENTRY......S%(
S)..255.S.S%(S):.380:. NEXT SECTOR."....
1130: . GET OK TO CONTINUE.J...E.E.1:.E.
0.730:. DIRECTORY IS EMPTY.V...." GROEPE
REN VOLGENS FILESOORT ? (Y/N)"...&..Z$:F
T$.Z$:.Z$."Y".570...0..Z$.."N".550.F.:..
*****************************.Z.;.. SET
SORT KEYS...<.. SORT DIRECTORY ENTRIES.
..=.. USES SHELL SORT.1.>.. ************
*****************.P.D..".BEN AAN HET SOR
TEREN..".`.N..I.1.E:K.16...X..J.1.16:.J(
NF$(I),J,1).G(160).K.J.1:J.16...B..J:SK$
(I).H(NF$(I),K).I.L..FT$."Y".SK$(I).FT$(
I).SK$(I).T.V..I:M.E.....M..(M.2):.M.0.7
30.....K.E.M:J.0......J.K.640.....I.J...
...I.0.700.3....SK$(I.M).SK$(I).710.B...
J.J.1:.660.L.F.A$.FT$(I):FT$(I).FT$(I.M)
:FT$(I.M).A$...G.A$.TS$(I):TS$(I).TS$(I.
M):TS$(I.M).A$...H.A$.NF$(I):NF$(I).NF$(
I.M):NF$(I.M).A$...I.A$.FE$(I):FE$(I).FE
$(I.M):FE$(I.M).A$...J.A$.SK$(I):SK$(I).
SK$(I.M):SK$(I.M).A$.#.P.I.I.M:.680.I.Z.
. *******************************.H....
WRITE DIRECTORY ENTRIES...... *********
*********************......".BEN AAN HET
SCHRIJVEN..: "ID$" ".....Z$.G(0).G(255)
:. TO TERMINATE DIRECTORY CHAIN.....S.1:
N.1:. START SECTOR.6....CC,"U1:"C2;D;T;S
:.1000:. READ DIRECTORY SECTOR.M...BP.2:
. FIRST ENTRY.N....N.E.890:NO M.E LIVE E
NTRIES... ..BP.256.840:. NOT YET FULL.B.
4..CC,"U2:"C2;D;T;S:.1000:. WRITE DIRECT
ORY SECTOR...>.S.S%(S):.770:. NEXT SECTO
R...H..CC,"B-P:";C2;BP:. SET POINTER TO
NEXT ENTRY.;.R..," "NF$(N)" : "T$(F(F
T$(N)).128).R.\..C2,FT$(N);TS$(N);NF$(N)
;FE$(N);:. DIRECTORY ENTRY...F.BP.BP.32:
N.N.1:.790...Z..BP.255.930:. FULL SECTOR
......CC,"B-P:";C2;BP.W....C2,Z0$:. BLAN
K ENTRY.....BP.BP.32:.890.....BP.0:.CC,"
B-P:";C2;BP.(....C2,Z$;:. END OF DIRECTO
RY CHAIN.]....CC,"U2:"C2;D;T;S:.1000:. W
RITE DIRECTORY SECTOR.....Z$.H(Z0$,2):.
BLANKS FOR FURTHER CHAINS...J.S.S%(S):.S
.255.999:. EINDE...T..CC,"U1:"C2;D;T;S:.
1000:. READ EMPTY DIRECTORY SECTOR.....B
P.2:.900:. TO CLEAR OUT SECTOR..... C2:
CC:.11000.;.... * * * * * * * * * * * *
* *.].... INPUT ERROR CHANNEL STATUS..
... * * * * * * * * * * * * * *......CC,
EN,EM$,ET,ES:.EN.0...B....". DISK ERROR
"EN;EM$;ET;ES:.999...... * * * * * * * *
* * * * * * *...... GET N CHARACTERS...
... FROM BUFFER.3.... * * * * * * * * *
* * * * * *.=...Z$."".N....I.1.N:.1100._
.$.Z$.Z$.A$:.:....L.. * * * * * * * * *
* * * * *...M.. INPUT FROM BUFFER...N..
* * * * * * * * * * * * * *.V.V..#C2,A$:
.A$."".A$.G(0)...`.A.F(A$):BP.BP.1:....J
.. * * * * * * * * * * * * * * *.*.K..
GET OK TO CONTINUE.N.L.. * * * * * * * *
* * * * * * *.N.T..".OK TO ALFABETISIZE
? Y/N"...~..Z$:.Z$."N".999......Z$.."Y".
1150.E....".
.":..R..'.53280,6....'..13)"...
...DOS TOOL"....'..8)". BY STEFAAN JAN
SSENS".4..'..8)".MANY THANKS TO DANNY DO
YLE".S.$'..8)".. 1. RESTORE FORMAT".P.%'
..8)". 2. CHANGE FORMAT"...&'..8)". 3. C
HANGE NAME & ID"...''..8)". 4. VIEW SECT
OR".F.('..8)". 5. VIEW T18 S0"...)'..8)"
. 6. CHANGE A BYTE"...*'..8)". 7. OTHERS
"...+'..8)". 8. END".).,'..12)".YOUR CHO
ICE";:.C$.;.-'.C$."1".10199.M..'.C$."2".
10100._./'.C$."3".10110.Q.0'.C$."4".1040
0...1'.C$."5".10500...2'.C$."6".10700...
3'.C$."7".10800...4'.C$."8".."..I HOPE I
HAVEN'T DONE ANYTHING WRONG!!":....5'.1
0010...T'..7)"..WHICH FORMAT [ONE CHARAC
TER!]";:.DO$.;.V'DO$.H(DO$,1):DO$.G(E(DO
$)).F.Y'.10200.S.~'.15,8,15.D.'.10,8,10
,"#".Z..'.15,"U1"10;0;18;0....'.15,"B-P:
"10;144....'.T.144.159:.#10,A$....'NA$.N
A$.A$:..L..'.15,"B-P:"10;162....'.#10,A$
:.#10,B$:ID$.A$.B$....'."..PRESENT NAME:
"NA$....'.".PRESENT ID :"ID$.3..'."..NE
W NAME";NA$.[..'.C(NA$).16..".NAME TOO L
ONG":.10125.Q..'."..NEW ID ";ID$....'.C
(ID$)..2..".ONLY 2-CHARACTER ID'S PLEASE
":.10127.N..'.C(NA$)..18.NA$.NA$.G(160):
.10130....'.15,"B-P:"10;144....'.10,NA$;
....'.15,"B-P:"10;162....'.10,ID$;.(..'.
15,"U2"10;0;18;0.0..' 10.8..' 15.C..'.10
290.Q.W'DO$.G(65).^.X'.15,8,15.O..'.10,8
,10,"#"....'.15,"U1"10;0;18;0....'.15,"B
-P:"10;2....(.10,DO$;....(.15,"U2"10;0;1
8;0.C..( 10.K.(( 15...2(.15,8,15,"I"...<
( 15...F(.11000... (.15,8,15....(.10,8,1
0,"#".%..(."..TRACK [1-35]";T.?..(."SECT
OR [0-21MAX]";S.S..(.T.35.T.0.10415.C..(
.S.21.10416....(.(T.30.S.17).(T.24.S.18)
.(T.17.S.19).10416....(.15,"U1"10;0;T;S.
...(.Q.0.255:.#10,A$.T..(.Q;:..7)F(A$.G(
0));...C(..12)A$;:.A$..G(34)..".":.10440
...D(....H(.198,0:.198,1...M(....R( 10.-
.W( 15:.11000.:..).15,8,15.K..).10,8,10,
"#".J..)."BAM OR DIRECTORY HEADER".X..).
"B/D";C$....).C$."B".10550....).C$."D".1
0600....).10515...6).15,"U1"10;0;18;0.O.
;).15,"B-P"10,0...<).#10,A$.. =).0;.5)"F
IRST DIRECTORY BLOCK TRACK "F(A$).. >).#
10,A$.C ?).1;.5)"FIRST DIRECTORY BLOCK S
ECTOR"F(A$).O @).#10,A$.A A).2;.5);F(A$)
;.. B).F(A$).65.." 4040 FORMAT":.10565..
C)." FORMAT".. E).T.3.143:.#10,A$.B F).
T;:..7)F(A$.G(0));.. G)..12)A$;:.A$..G(3
4)..".":.10569.. H)...!I).198,0:.198,1:.
..!J) 10: 15:.11000.)!H).15,"U1"10;0;18;
0.=!M).15,"B-P"10,144.O!O).".DISK NAME".
F!R).T.144.159:.#10,A$.~!S).T;:..7)F(A$.
G(0));..!T)..12)A$;:.A$..G(34)..".":.106
14..!U)...!V).198,0:.198,1:..S!W).".SHIF
TED SPACES"..!X).T.160.161..!|).#10,A$..
"}).T;:..7)F(A$.G(0));.*"~)..12)A$;:.A$.
.G(34)..".":.10624.0")..6".)..F".).".DI
SK ID".U".).T.162.163.A".).#10,A$.Y".).T
;:..7)F(A$.G(0));..".)..12)A$;:.A$..G(34
)..".":.10634..".)...".)...".).".SHIFTED
SPACE".K".).#10,A$..".).T;:..7)F(A$.G(0
));..#.)..12)A$;:.A$..G(34)..".":.10645.
.#.)../#.).".DOS VERSION & FORMAT TYPE".
>#.).T.165.166.J#.).#10,A$.B#.).T;:..7)F
(A$.G(0));..#.)..12)A$;:.A$..G(34)..".":
.10654..#.)...#.)...#.).".SHIFTED SPACES
"..# ).T.167.170.D#.).#10,A$..#.).T;:..7
)F(A$.G(0));..$.)..12)A$;:.A$..G(34)..".
":.10664..$.)...$.).198,0:.198,1:..3$.).
".NULLS , NOT USED".B$.).T.171.255.N$.).
#10,A$.F$.).T;:..7)F(A$.G(0));..$.)..12)
A$;:.A$..G(34)..".":.10674..$.)...$.).19
8,0:.198,1:...$.) 10: 15:.11000.D$L).15,
8,15.U$Q).10,8,10,"#"..$U)."..WHICH TRAC
K & SECTOR "..$V).T,S.&%W).".WHICH BYTE
DO YOU WANT TO CHANGE".-%X).B.B%.).15,"U
1"10;0;T;S.U%.).15,"B-P:"10;B.W%.)."ASCI
I VALUE OF BYTE PLEASE".%.).BY..%.).10,
G(BY);..%.)."ANOTHER ONE Y/N":.A$..%.).A
$."Y".10709.P%.).15,"U2"10;0;T;S.X%.) 10
..%.) 15..%.).10290..&0*.".".8)".1) FORM
AT DISK".&&1*..8)".2) CLEAR DIRECTORY".C
&2*..8)".3) RENAME PROGRAM".A&3*..8)".4)
SCRATCH PROGRAM".&4*..8)".5) INITIALIZ
E DISK"..&5*..8)".6) READ DIRECTORY (PRE
SS [N]".R&6*..8)".7) ALFABETISIZE DIR. (
PRESS [Y]"..&9*..12)".YOUR CHOICE";:.C$.
.'D*.C$."1".10840..'E*.C$."2".10850.%'F*
.C$."3".10860.7'G*.C$."4".10870.I'H*.C$.
"5".10880.Y'I*.C$."6".110.I'J*.C$."7".11
0.T'T*.10010..'X*."NAME OF DISK";N$..'Y*
.C(D$).16.10840..'Z*."DISK ID";ID$.F'[*.
C(ID$).2.10842..'\*.15,8,15,"N0:".N$.","
.ID$: 15..']*.11000..(B*."NAME OF DISK";
N$..(C*.C(N$).16.10850$.9(F*.15,8,15,"N0
:".N$: 15.D(G*.11000.W(L*."OLD NAME";O$.
J(M*."NEW NAME";N$..(N*.15,8,15,"R0:".N$
."=".O$: 15..(O*.11000..(V*."NAME?":.N$.
A(X*.15,8,15,"S0:".N$: 15.L({*.11000..(.
*.15,8,15:.".... DISK STATUS ";..).*.15,
A$,B$,C$,D$..).*.A$" "B$" "C$" "D$.)).*
15:.10020...12.
> CLICK IMAGE PREVIEW FOR FULL MODAL