_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

TIDY DIRECTORY

FILE INFORMATION

FILENAME(S): TIDY DIRECTORY

FILE TYPE(S): PRG

FILE SIZE: 3.4K

FIRST SEEN: 2025-11-30 21:26:58

APPEARS ON: 1 disk(s)

FILE HASH

e5033460149a28826e49bf8f70abde65d2389ff97e71a07f3861525de3d41aec

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
COMMODORE 64 II TIDY DIRECTORY PRG DuncanTwain 24 3 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 21 08 01 00 8F 20  0E 12 31 35 34 31 20 44  |..!.... ..1541 D|
00000010: 49 52 45 43 54 4F 52 59  20 53 4F 52 54 45 52 45  |IRECTORY SORTERE|
00000020: 4E 00 41 08 04 00 8F 20  54 2E 42 2E 56 2E 20 12  |N.A.... T.B.V. .|
00000030: 56 2E 43 2E 47 2E 4E 2E  20 44 45 4E 20 48 41 41  |V.C.G.N. DEN HAA|
00000040: 47 00 63 08 05 00 8F 20  4C 45 5A 45 4E 2F 53 4F  |G.c.... LEZEN/SO|
00000050: 52 54 45 52 45 4E 2F 48  45 52 53 43 48 52 49 4A  |RTEREN/HERSCHRIJ|
00000060: 56 45 4E 00 69 08 06 00  3A 00 83 08 07 00 8F 20  |VEN.i...:...... |
00000070: 12 56 52 49 4A 20 56 41  4E 20 43 4F 50 59 52 49  |.VRIJ VAN COPYRI|
00000080: 47 48 54 00 89 08 08 00  3A 00 C6 08 09 00 97 35  |GHT.....:......5|
00000090: 33 32 38 30 2C 36 3A 97  35 33 32 38 31 2C 31 31  |3280,6:.53281,11|
000000A0: 3A 99 C7 28 39 29 C7 28  31 34 29 22 9E 93 11 22  |:..(9).(14)"..."|
000000B0: A3 31 33 29 22 D4 C9 C4  D9 20 C4 C9 D2 C5 C3 D4  |.13)".... ......|
000000C0: CF D2 D9 11 11 22 00 01  09 0A 00 99 22 20 CC 41  |....."......" .A|
000000D0: 41 44 20 44 49 53 4B 20  49 4E 20 44 52 49 56 45  |AD DISK IN DRIVE|
000000E0: 2E 22 3A 8D 39 39 3A 99  22 91 05 20 C4 D2 D5 CB  |.":.99:.".. ....|
000000F0: A0 CF D0 A0 C5 C5 CE A0  D4 CF C5 D4 D3 2E 20 9E  |.............. .|
00000100: 22 00 2F 09 0B 00 97 31  39 38 2C 30 3A 92 31 39  |"./....198,0:.19|
00000110: 38 2C 31 3A A1 5A 24 3A  99 22 91 20 20 20 20 20  |8,1:.Z$:.".     |
00000120: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 00  |              ".|
00000130: 57 09 0C 00 9F 31 35 2C  38 2C 31 35 2C 22 49 30  |W....15,8,15,"I0|
00000140: 22 3A 8D 39 34 3A 8F 20  43 4F 4D 4D 41 4E 44 4F  |":.94:. COMMANDO|
00000150: 2D 4B 41 4E 41 41 4C 00  79 09 0D 00 9F 32 2C 38  |-KANAAL.y....2,8|
00000160: 2C 32 2C 22 23 22 3A 8D  39 34 3A 8F 20 42 55 46  |,2,"#":.94:. BUF|
00000170: 46 45 52 4B 41 4E 41 41  4C 00 B5 09 0E 00 98 31  |FERKANAAL......1|
00000180: 35 2C 22 55 31 3A 22 32  3B 30 3B 31 38 3B 30 3A  |5,"U1:"2;0;18;0:|
00000190: 8D 39 34 3A 8F 20 20 20  44 49 53 4B 20 49 44 20  |.94:.   DISK ID |
000001A0: 3A 20 54 52 41 43 4B 20  31 38 20 2C 20 53 45 43  |: TRACK 18 , SEC|
000001B0: 54 4F 52 20 30 00 D3 09  0F 00 98 31 35 2C 22 42  |TOR 0......15,"B|
000001C0: 2D 50 3A 22 32 3B 31 34  34 3A 8F 20 44 49 53 4B  |-P:"2;144:. DISK|
000001D0: 20 49 44 00 EE 09 10 00  49 44 24 B2 22 22 3A 4E  | ID.....ID$."":N|
000001E0: B2 32 30 3A 8D 39 37 3A  49 44 24 B2 5A 24 00 1C  |.20:.97:ID$.Z$..|
000001F0: 0A 11 00 99 22 91 C4 49  53 4B 20 4E 41 41 4D 20  |...."..ISK NAAM |
00000200: 3A 20 22 C8 28 49 44 24  2C 31 38 29 22 20 20 20  |: ".(ID$,18)"   |
00000210: 22 C9 28 49 44 24 2C 32  29 22 11 22 00 37 0A 12  |".(ID$,2)".".7..|
00000220: 00 8F 20 4D 41 58 49 4D  41 41 4C 20 31 39 20 53  |.. MAXIMAAL 19 S|
00000230: 45 43 54 4F 52 45 4E 00  55 0A 13 00 8F 20 4D 41  |ECTOREN.U.... MA|
00000240: 58 49 4D 41 41 4C 20 31  34 34 20 46 49 4C 45 20  |XIMAAL 144 FILE |
00000250: 4E 41 4D 45 4E 00 78 0A  14 00 86 20 53 25 28 31  |NAMEN.x.... S%(1|
00000260: 39 29 3A 8F 20 56 4F 4C  47 45 4E 44 45 20 44 49  |9):. VOLGENDE DI|
00000270: 52 20 53 45 43 54 4F 52  00 93 0A 15 00 86 20 46  |R SECTOR...... F|
00000280: 54 24 28 31 34 34 29 3A  8F 20 46 49 4C 45 20 54  |T$(144):. FILE T|
00000290: 59 50 45 00 B5 0A 16 00  86 20 54 53 24 28 31 34  |YPE...... TS$(14|
000002A0: 34 29 3A 8F 20 54 26 53  20 31 45 20 44 41 54 41  |4):. T&S 1E DATA|
000002B0: 20 42 4C 4F 4B 00 D0 0A  17 00 86 20 4E 46 24 28  | BLOK...... NF$(|
000002C0: 31 34 34 29 3A 8F 20 46  49 4C 45 20 4E 41 41 4D  |144):. FILE NAAM|
000002D0: 00 F4 0A 18 00 86 20 46  45 24 28 31 34 34 29 3A  |...... FE$(144):|
000002E0: 8F 20 46 49 4C 45 53 54  52 55 43 54 55 55 52 2D  |. FILESTRUCTUUR-|
000002F0: 44 41 54 41 00 14 0B 19  00 86 20 53 4B 24 28 31  |DATA...... SK$(1|
00000300: 34 34 29 3A 8F 20 53 4F  52 54 45 45 52 20 4C 41  |44):. SORTEER LA|
00000310: 42 45 4C 53 00 5D 0B 1A  00 86 20 54 24 28 34 29  |BELS.].... T$(4)|
00000320: 3A 54 24 28 31 29 B2 22  53 45 51 22 3A 54 24 28  |:T$(1)."SEQ":T$(|
00000330: 32 29 B2 22 50 52 47 22  3A 54 24 28 33 29 B2 22  |2)."PRG":T$(3)."|
00000340: 55 53 52 22 3A 54 24 28  34 29 B2 22 52 45 4C 22  |USR":T$(4)."REL"|
00000350: 3A 8F 20 46 49 4C 45 20  54 59 50 45 53 00 8F 0B  |:. FILE TYPES...|
00000360: 1B 00 81 49 B2 31 A4 33  30 3A 5A 30 24 B2 5A 30  |...I.1.30:Z0$.Z0|
00000370: 24 AA C7 28 30 29 3A 82  3A 8F 20 20 4C 45 45 47  |$..(0):.:.  LEEG|
00000380: 20 44 49 52 45 43 54 4F  52 59 20 56 45 4C 44 00  | DIRECTORY VELD.|
00000390: AF 0B 1C 00 8F 20 4C 45  45 53 20 44 49 52 45 43  |..... LEES DIREC|
000003A0: 54 4F 52 59 20 50 52 47  2E 20 4E 41 4D 45 4E 00  |TORY PRG. NAMEN.|
000003B0: CA 0B 1D 00 45 B2 31 3A  53 B2 31 3A 8F 20 53 54  |....E.1:S.1:. ST|
000003C0: 41 52 54 20 53 45 43 54  4F 52 00 E9 0B 1E 00 98  |ART SECTOR......|
000003D0: 31 35 2C 22 55 31 3A 22  32 3B 30 3B 31 38 3B 53  |15,"U1:"2;0;18;S|
000003E0: 3A 8D 39 34 3A 42 50 B2  31 00 1F 0C 1F 00 98 31  |:.94:BP.1......1|
000003F0: 35 2C 22 42 2D 50 3A 22  32 3B 42 50 3A 8D 39 38  |5,"B-P:"2;BP:.98|
00000400: 3A 53 25 28 53 29 B2 41  3A 8F 20 4C 45 45 53 20  |:S%(S).A:. LEES |
00000410: 56 4F 4C 47 45 4E 44 45  20 53 45 43 54 4F 52 00  |VOLGENDE SECTOR.|
00000420: 4C 0C 20 00 98 31 35 2C  22 42 2D 50 3A 22 32 3B  |L. ..15,"B-P:"2;|
00000430: 42 50 3A 8D 39 38 3A 46  54 B2 41 3A 8F 20 4C 45  |BP:.98:FT.A:. LE|
00000440: 45 53 20 46 49 4C 45 20  54 59 50 45 00 76 0C 21  |ES FILE TYPE.v.!|
00000450: 00 8B 46 54 B2 30 B0 46  54 B2 31 32 38 A7 42 50  |..FT.0.FT.128.BP|
00000460: B2 42 50 AA 33 31 3A 89  34 31 3A 8F 20 4C 45 45  |.BP.31:.41:. LEE|
00000470: 47 20 56 45 4C 44 00 A3  0C 22 00 8B 46 54 B3 31  |G VELD..."..FT.1|
00000480: 32 38 A7 99 22 11 3F 46  49 4C 45 20 4E 4F 54 20  |28..".?FILE NOT |
00000490: 43 4C 4F 53 45 44 20 20  45 52 52 4F 52 91 22 3A  |CLOSED  ERROR.":|
000004A0: 89 39 32 00 B1 0C 23 00  46 54 24 28 45 29 B2 41  |.92...#.FT$(E).A|
000004B0: 24 00 CD 0C 24 00 4E B2  32 3A 8D 39 37 3A 54 53  |$...$.N.2:.97:TS|
000004C0: 24 28 45 29 B2 5A 24 3A  8F 20 54 26 53 00 EB 0C  |$(E).Z$:. T&S...|
000004D0: 25 00 4E B2 31 36 3A 8D  39 37 3A 4E 46 24 28 45  |%.N.16:.97:NF$(E|
000004E0: 29 B2 5A 24 3A 8F 20 4E  41 41 4D 00 13 0D 26 00  |).Z$:. NAAM...&.|
000004F0: 4E B2 31 31 3A 8D 39 37  3A 46 45 24 28 45 29 B2  |N.11:.97:FE$(E).|
00000500: 5A 24 3A 8F 20 53 54 52  55 43 54 55 55 52 20 44  |Z$:. STRUCTUUR D|
00000510: 41 54 41 00 4F 0D 27 00  99 2C 22 20 20 22 4E 46  |ATA.O.'..,"  "NF|
00000520: 24 28 45 29 A3 33 30 29  22 3A 20 22 54 24 28 46  |$(E).30)": "T$(F|
00000530: 54 AB 31 32 38 29 3A 8F  20 50 52 49 4E 54 20 46  |T.128):. PRINT F|
00000540: 49 4C 45 4E 41 41 4D 20  45 4E 20 54 59 50 45 00  |ILENAAM EN TYPE.|
00000550: 61 0D 28 00 42 50 B2 42  50 AA 32 3A 45 B2 45 AA  |a.(.BP.BP.2:E.E.|
00000560: 31 00 80 0D 29 00 8B 42  50 B3 32 35 36 A7 33 32  |1...)..BP.256.32|
00000570: 3A 8F 20 56 4F 4C 47 45  4E 44 45 20 46 49 4C 45  |:. VOLGENDE FILE|
00000580: 00 B0 0D 2A 00 8B 53 25  28 53 29 B3 B1 32 35 35  |...*..S%(S)..255|
00000590: A7 53 B2 53 25 28 53 29  3A 89 33 30 3A 8F 20 20  |.S.S%(S):.30:.  |
000005A0: 20 56 4F 4C 47 45 4E 44  45 20 53 45 43 54 4F 52  | VOLGENDE SECTOR|
000005B0: 00 DB 0D 2B 00 85 22 11  44 4F 4F 52 47 41 41 4E  |...+..".DOORGAAN|
000005C0: 20 28 4A 2F 4E 29 20 20  4A 9D 9D 9D 22 3B 5A 24  | (J/N)  J...";Z$|
000005D0: 3A 8B 5A 24 B2 22 4E 22  A7 39 32 00 FE 0D 2C 00  |:.Z$."N".92...,.|
000005E0: 45 B2 45 AB 31 3A 8B 45  B2 30 A7 36 37 3A 8F 20  |E.E.1:.E.0.67:. |
000005F0: 44 49 52 45 43 54 4F 52  59 20 4C 45 45 47 00 32  |DIRECTORY LEEG.2|
00000600: 0E 2D 00 85 22 11 53 4F  52 54 45 52 45 4E 20 4F  |.-..".SORTEREN O|
00000610: 50 20 46 49 4C 45 2D 54  59 50 45 20 28 4A 2F 4E  |P FILE-TYPE (J/N|
00000620: 29 20 20 4A 9D 9D 9D 22  3B 5A 24 3A 46 54 24 B2  |)  J...";Z$:FT$.|
00000630: 5A 24 00 6A 0E 2E 00 8F  20 53 4F 52 54 45 45 52  |Z$.j.... SORTEER|
00000640: 20 44 45 20 44 49 52 45  43 54 4F 52 59 20 4D 45  | DE DIRECTORY ME|
00000650: 54 20 44 45 20 53 48 45  4C 4C 20 53 4F 52 54 45  |T DE SHELL SORTE|
00000660: 45 52 20 4D 45 54 48 4F  44 45 00 9E 0E 2F 00 97  |ER METHODE.../..|
00000670: 35 33 32 36 35 2C 31 31  3A 8F 20 20 53 43 52 45  |53265,11:.  SCRE|
00000680: 45 4E 20 42 4C 41 4E 4B  20 56 4F 4F 52 20 20 48  |EN BLANK VOOR  H|
00000690: 4F 47 45 52 45 20 53 4E  45 4C 48 45 49 44 00 AE  |OGERE SNELHEID..|
000006A0: 0E 30 00 81 49 B2 31 A4  45 3A 4B B2 31 36 00 DC  |.0..I.1.E:K.16..|
000006B0: 0E 31 00 81 4A B2 31 A4  31 36 3A 8B 20 CA 28 4E  |.1..J.1.16:. .(N|
000006C0: 46 24 28 49 29 2C 4A 2C  31 29 B2 C7 28 31 36 30  |F$(I),J,1)..(160|
000006D0: 29 A7 4B B2 4A AB 31 3A  4A B2 31 36 00 F6 0E 32  |).K.J.1:J.16...2|
000006E0: 00 82 4A 3A 53 4B 24 28  49 29 B2 C8 28 4E 46 24  |..J:SK$(I)..(NF$|
000006F0: 28 49 29 2C 4B 29 00 18  0F 33 00 8B 46 54 24 B2  |(I),K)...3..FT$.|
00000700: 22 4A 22 A7 53 4B 24 28  49 29 B2 46 54 24 28 49  |"J".SK$(I).FT$(I|
00000710: 29 AA 53 4B 24 28 49 29  00 23 0F 34 00 82 49 3A  |).SK$(I).#.4..I:|
00000720: 4D B2 45 00 38 0F 35 00  4D B2 B5 28 4D AD 32 29  |M.E.8.5.M..(M.2)|
00000730: 3A 8B 4D B2 30 A7 36 37  00 46 0F 36 00 4B B2 45  |:.M.0.67.F.6.K.E|
00000740: AB 4D 3A 4A B2 30 00 52  0F 37 00 8B 4A B1 4B A7  |.M:J.0.R.7..J.K.|
00000750: 35 33 00 5A 0F 38 00 49  B2 4A 00 66 0F 39 00 8B  |53.Z.8.I.J.f.9..|
00000760: 49 B3 30 A7 35 39 00 7E  0F 3A 00 8B 53 4B 24 28  |I.0.59.~.:..SK$(|
00000770: 49 AA 4D 29 B3 53 4B 24  28 49 29 A7 36 30 00 8C  |I.M).SK$(I).60..|
00000780: 0F 3B 00 4A B2 4A AA 31  3A 89 35 35 00 B6 0F 3C  |.;.J.J.1:.55...<|
00000790: 00 41 24 B2 46 54 24 28  49 29 3A 46 54 24 28 49  |.A$.FT$(I):FT$(I|
000007A0: 29 B2 46 54 24 28 49 AA  4D 29 3A 46 54 24 28 49  |).FT$(I.M):FT$(I|
000007B0: AA 4D 29 B2 41 24 00 E0  0F 3D 00 41 24 B2 54 53  |.M).A$...=.A$.TS|
000007C0: 24 28 49 29 3A 54 53 24  28 49 29 B2 54 53 24 28  |$(I):TS$(I).TS$(|
000007D0: 49 AA 4D 29 3A 54 53 24  28 49 AA 4D 29 B2 41 24  |I.M):TS$(I.M).A$|
000007E0: 00 0A 10 3E 00 41 24 B2  4E 46 24 28 49 29 3A 4E  |...>.A$.NF$(I):N|
000007F0: 46 24 28 49 29 B2 4E 46  24 28 49 AA 4D 29 3A 4E  |F$(I).NF$(I.M):N|
00000800: 46 24 28 49 AA 4D 29 B2  41 24 00 34 10 3F 00 41  |F$(I.M).A$.4.?.A|
00000810: 24 B2 46 45 24 28 49 29  3A 46 45 24 28 49 29 B2  |$.FE$(I):FE$(I).|
00000820: 46 45 24 28 49 AA 4D 29  3A 46 45 24 28 49 AA 4D  |FE$(I.M):FE$(I.M|
00000830: 29 B2 41 24 00 5E 10 40  00 41 24 B2 53 4B 24 28  |).A$.^.@.A$.SK$(|
00000840: 49 29 3A 53 4B 24 28 49  29 B2 53 4B 24 28 49 AA  |I):SK$(I).SK$(I.|
00000850: 4D 29 3A 53 4B 24 28 49  AA 4D 29 B2 41 24 00 6C  |M):SK$(I.M).A$.l|
00000860: 10 41 00 49 B2 49 AB 4D  3A 89 35 37 00 87 10 42  |.A.I.I.M:.57...B|
00000870: 00 8F 20 48 45 52 53 43  48 52 49 4A 46 20 44 49  |.. HERSCHRIJF DI|
00000880: 52 45 43 54 4F 52 59 00  B1 10 43 00 99 22 93 11  |RECTORY...C.."..|
00000890: 22 A3 31 33 29 22 D4 C9  C4 D9 20 C4 C9 D2 C5 C3  |".13)".... .....|
000008A0: D4 CF D2 D9 11 11 22 3A  97 35 33 32 36 35 2C 32  |......":.53265,2|
000008B0: 37 00 DF 10 44 00 99 22  91 C4 49 53 4B 20 4E 41  |7...D.."..ISK NA|
000008C0: 41 4D 20 3A 20 22 C8 28  49 44 24 2C 31 38 29 22  |AM : ".(ID$,18)"|
000008D0: 20 20 20 22 C9 28 49 44  24 2C 32 29 22 11 22 00  |   ".(ID$,2)".".|
000008E0: 12 11 45 00 5A 24 B2 C7  28 30 29 AA C7 28 32 35  |..E.Z$..(0)..(25|
000008F0: 35 29 3A 8F 20 20 41 46  53 4C 55 49 54 49 4E 47  |5):.  AFSLUITING|
00000900: 20 44 49 52 45 43 54 4F  52 59 20 4B 45 54 54 49  | DIRECTORY KETTI|
00000910: 4E 47 00 2D 11 46 00 53  B2 31 3A 4E B2 31 3A 8F  |NG.-.F.S.1:N.1:.|
00000920: 20 53 54 41 52 54 20 53  45 43 54 4F 52 00 61 11  | START SECTOR.a.|
00000930: 47 00 98 31 35 2C 22 55  31 3A 22 32 3B 30 3B 31  |G..15,"U1:"2;0;1|
00000940: 38 3B 53 3A 8D 39 34 3A  8F 20 20 20 4C 45 45 53  |8;S:.94:.   LEES|
00000950: 20 44 49 52 45 43 54 4F  52 59 20 53 45 43 54 4F  | DIRECTORY SECTO|
00000960: 52 00 78 11 48 00 42 50  B2 32 3A 8F 20 45 45 52  |R.x.H.BP.2:. EER|
00000970: 53 54 45 20 56 45 4C 44  00 9B 11 49 00 8B 4E B1  |STE VELD...I..N.|
00000980: 45 A7 38 31 3A 8F 20 44  49 52 45 43 54 4F 52 59  |E.81:. DIRECTORY|
00000990: 20 47 45 53 43 48 52 45  56 45 4E 00 BC 11 4A 00  | GESCHREVEN...J.|
000009A0: 8B 42 50 B3 32 35 36 A7  37 37 3A 8F 20 53 45 43  |.BP.256.77:. SEC|
000009B0: 54 4F 52 20 4E 49 45 54  20 56 4F 4C 00 F3 11 4B  |TOR NIET VOL...K|
000009C0: 00 98 31 35 2C 22 55 32  3A 22 32 3B 30 3B 31 38  |..15,"U2:"2;0;18|
000009D0: 3B 53 3A 8D 39 34 3A 8F  20 20 20 53 43 48 52 49  |;S:.94:.   SCHRI|
000009E0: 4A 46 20 44 49 52 45 43  54 4F 52 59 20 53 45 43  |JF DIRECTORY SEC|
000009F0: 54 4F 52 00 03 12 4C 00  53 B2 53 25 28 53 29 3A  |TOR...L.S.S%(S):|
00000A00: 89 37 31 00 38 12 4D 00  98 31 35 2C 22 42 2D 50  |.71.8.M..15,"B-P|
00000A10: 3A 22 3B 32 3B 42 50 3A  8F 20 5A 45 54 20 50 4F  |:";2;BP:. ZET PO|
00000A20: 49 4E 54 45 52 20 4E 41  41 52 20 56 4F 4C 47 45  |INTER NAAR VOLGE|
00000A30: 4E 44 45 20 56 45 4C 44  00 62 12 4E 00 99 2C 22  |NDE VELD.b.N..,"|
00000A40: 20 20 22 4E 46 24 28 4E  29 A3 33 30 29 22 3A 20  |  "NF$(N).30)": |
00000A50: 22 54 24 28 C6 28 46 54  24 28 4E 29 29 AB 31 32  |"T$(.(FT$(N)).12|
00000A60: 38 29 00 95 12 4F 00 98  32 2C 46 54 24 28 4E 29  |8)...O..2,FT$(N)|
00000A70: 3B 54 53 24 28 4E 29 3B  4E 46 24 28 4E 29 3B 46  |;TS$(N);NF$(N);F|
00000A80: 45 24 28 4E 29 3B 3A 8F  20 53 43 48 52 49 4A 46  |E$(N);:. SCHRIJF|
00000A90: 20 56 45 4C 44 00 AC 12  50 00 42 50 B2 42 50 AA  | VELD...P.BP.BP.|
00000AA0: 33 32 3A 4E B2 4E AA 31  3A 89 37 33 00 C8 12 51  |32:N.N.1:.73...Q|
00000AB0: 00 8B 42 50 B1 32 35 35  A7 38 35 3A 8F 20 53 45  |..BP.255.85:. SE|
00000AC0: 43 54 4F 52 20 56 4F 4C  00 DC 12 52 00 98 31 35  |CTOR VOL...R..15|
00000AD0: 2C 22 42 2D 50 3A 22 3B  32 3B 42 50 00 F4 12 53  |,"B-P:";2;BP...S|
00000AE0: 00 98 32 2C 5A 30 24 3B  3A 8F 20 4C 45 45 47 20  |..2,Z0$;:. LEEG |
00000AF0: 56 45 4C 44 00 05 13 54  00 42 50 B2 42 50 AA 33  |VELD...T.BP.BP.3|
00000B00: 32 3A 89 38 31 00 1D 13  55 00 42 50 B2 30 3A 98  |2:.81...U.BP.0:.|
00000B10: 31 35 2C 22 42 2D 50 3A  22 32 3B 42 50 00 47 13  |15,"B-P:"2;BP.G.|
00000B20: 56 00 98 32 2C 5A 24 3B  3A 8F 20 20 45 49 4E 44  |V..2,Z$;:.  EIND|
00000B30: 45 20 56 41 4E 20 44 49  52 45 43 54 4F 52 59 20  |E VAN DIRECTORY |
00000B40: 4B 45 54 54 49 4E 47 00  7E 13 57 00 98 31 35 2C  |KETTING.~.W..15,|
00000B50: 22 55 32 3A 22 32 3B 30  3B 31 38 3B 53 3A 8D 39  |"U2:"2;0;18;S:.9|
00000B60: 34 3A 8F 20 A0 20 53 43  48 52 49 4A 46 20 44 49  |4:. . SCHRIJF DI|
00000B70: 52 45 43 54 4F 52 59 20  53 45 43 54 4F 52 00 AC  |RECTORY SECTOR..|
00000B80: 13 58 00 5A 24 B2 C8 28  5A 30 24 2C 32 29 3A 8F  |.X.Z$..(Z0$,2):.|
00000B90: 20 56 4F 4C 47 45 4E 44  45 20 53 45 43 54 4F 52  | VOLGENDE SECTOR|
00000BA0: 45 4E 20 5A 49 4A 4E 20  4C 45 45 47 00 CA 13 59  |EN ZIJN LEEG...Y|
00000BB0: 00 53 B2 53 25 28 53 29  3A 8B 53 B2 32 35 35 A7  |.S.S%(S):.S.255.|
00000BC0: 39 32 3A 8F 20 4B 4C 41  41 52 00 03 14 5A 00 98  |92:. KLAAR...Z..|
00000BD0: 31 35 2C 22 55 31 3A 22  32 3B 30 3B 31 38 3B 53  |15,"U1:"2;0;18;S|
00000BE0: 3A 8D 39 34 3A 8F 20 20  20 4C 45 45 53 20 4C 45  |:.94:.   LEES LE|
00000BF0: 47 45 20 44 49 52 45 43  54 4F 52 59 20 53 45 43  |GE DIRECTORY SEC|
00000C00: 54 4F 52 00 25 14 5B 00  42 50 B2 32 3A 89 38 32  |TOR.%.[.BP.2:.82|
00000C10: 3A 8F 20 53 45 43 54 4F  52 20 53 43 48 4F 4F 4E  |:. SECTOR SCHOON|
00000C20: 4D 41 4B 45 4E 00 60 14  5C 00 85 22 11 20 56 4F  |MAKEN.`.\..". VO|
00000C30: 4C 47 45 4E 44 45 20 53  43 48 49 4A 46 20 28 4A  |LGENDE SCHIJF (J|
00000C40: 2F 4E 29 20 20 4A 9D 9D  9D 22 3B 5A 24 3A 8B 5A  |/N)  J...";Z$:.Z|
00000C50: 24 B2 22 4A 22 A7 A0 32  3A A0 31 35 3A 9C 3A 8A  |$."J"..2:.15:.:.|
00000C60: 00 7E 14 5D 00 A0 32 3A  A0 31 35 3A 99 22 93 22  |.~.]..2:.15:."."|
00000C70: 3B 3A 9C 3A 93 22 21 22  2C 38 2C 31 3A 8A 00 AF  |;:.:."!",8,1:...|
00000C80: 14 5E 00 84 31 35 2C 45  4E 2C 45 4D 24 2C 45 54  |.^..15,EN,EM$,ET|
00000C90: 2C 45 53 3A 8B 45 4E B2  30 A7 8E 3A 8F 20 4C 45  |,ES:.EN.0..:. LE|
00000CA0: 45 53 20 45 52 52 4F 52  2D 4B 41 4E 41 41 4C 00  |ES ERROR-KANAAL.|
00000CB0: D8 14 5F 00 99 22 93 12  C4 C9 D3 CB A0 C5 D2 D2  |.._.."..........|
00000CC0: CF D2 92 22 45 4E 3B 45  4D 24 3B 45 54 3B 45 53  |..."EN;EM$;ET;ES|
00000CD0: 3A 8D 39 39 3A 89 39 32  00 FD 14 60 00 8F 20 4C  |:.99:.92...`.. L|
00000CE0: 45 45 53 20 4E 20 4B 41  52 41 4B 54 45 52 53 20  |EES N KARAKTERS |
00000CF0: 56 41 4E 20 44 45 20 42  55 46 46 45 52 00 1F 15  |VAN DE BUFFER...|
00000D00: 61 00 5A 24 B2 22 22 3A  81 49 B2 31 A4 4E 3A 8D  |a.Z$."":.I.1.N:.|
00000D10: 39 38 3A 5A 24 B2 5A 24  AA 41 24 3A 82 3A 8E 00  |98:Z$.Z$.A$:.:..|
00000D20: 5A 15 62 00 A1 23 32 2C  41 24 3A 41 24 B2 C8 28  |Z.b..#2,A$:A$..(|
00000D30: 41 24 AA C7 28 30 29 2C  31 29 3A 41 B2 C6 28 41  |A$..(0),1):A..(A|
00000D40: 24 29 3A 42 50 B2 42 50  AA 31 3A 8E 3A 8F 20 4C  |$):BP.BP.1:.:. L|
00000D50: 45 45 53 20 42 55 46 46  45 52 00 7F 15 63 00 81  |EES BUFFER...c..|
00000D60: 4C 4F 4F 50 B2 31 A4 32  30 30 30 3A 82 4C 4F 4F  |LOOP.1.2000:.LOO|
00000D70: 50 3A 8E 3A 8F 20 20 57  41 43 48 54 4C 55 53 00  |P:.:.  WACHTLUS.|
00000D80: 00 00 AA 22 04 4D                                 |...".M          |
..!.... ..1541 DIRECTORY SORTEREN.A.... 
T.B.V. .V.C.G.N. DEN HAAG.C.... LEZEN/SO
RTEREN/HERSCHRIJVEN.I...:...... .VRIJ VA
N COPYRIGHT.....:.F....53280,6:.53281,11
:.G(9)G(14)"...".13)"TIDY DIRECTORY.."..
...." LAAD DISK IN DRIVE.":.99:.".. DRUK
 OP EEN TOETS. ."./....198,0:.198,1:.Z$:
.".                   ".W....15,8,15,"I0
":.94:. COMMANDO-KANAAL.Y....2,8,2,"#":.
94:. BUFFERKANAAL......15,"U1:"2;0;18;0:
.94:.   DISK ID : TRACK 18 , SECTOR 0.S.
...15,"B-P:"2;144:. DISK ID.....ID$."":N
.20:.97:ID$.Z$......".DISK NAAM : "H(ID$
,18)"   "I(ID$,2)".".7.... MAXIMAAL 19 S
ECTOREN.U.... MAXIMAAL 144 FILE NAMEN.X.
... S%(19):. VOLGENDE DIR SECTOR...... F
T$(144):. FILE TYPE...... TS$(144):. T&S
 1E DATA BLOK.P.... NF$(144):. FILE NAAM
...... FE$(144):. FILESTRUCTUUR-DATA....
.. SK$(144):. SORTEER LABELS.].... T$(4)
:T$(1)."SEQ":T$(2)."PRG":T$(3)."USR":T$(
4)."REL":. FILE TYPES......I.1.30:Z0$.Z0
$.G(0):.:.  LEEG DIRECTORY VELD...... LE
ES DIRECTORY PRG. NAMEN.J...E.1:S.1:. ST
ART SECTOR......15,"U1:"2;0;18;S:.94:BP.
1......15,"B-P:"2;BP:.98:S%(S).A:. LEES 
VOLGENDE SECTOR.L. ..15,"B-P:"2;BP:.98:F
T.A:. LEES FILE TYPE.V.!..FT.0.FT.128.BP
.BP.31:.41:. LEEG VELD..."..FT.128..".?F
ILE NOT CLOSED  ERROR.":.92...#.FT$(E).A
$.M.$.N.2:.97:TS$(E).Z$:. T&S...%.N.16:.
97:NF$(E).Z$:. NAAM...&.N.11:.97:FE$(E).
Z$:. STRUCTUUR DATA.O.'..,"  "NF$(E).30)
": "T$(FT.128):. PRINT FILENAAM EN TYPE.
A.(.BP.BP.2:E.E.1...)..BP.256.32:. VOLGE
NDE FILE...*..S%(S)..255.S.S%(S):.30:.  
 VOLGENDE SECTOR...+..".DOORGAAN (J/N)  
J...";Z$:.Z$."N".92...,.E.E.1:.E.0.67:. 
DIRECTORY LEEG.2.-..".SORTEREN OP FILE-T
YPE (J/N)  J...";Z$:FT$.Z$.J.... SORTEER
 DE DIRECTORY MET DE SHELL SORTEER METHO
DE.../..53265,11:.  SCREEN BLANK VOOR  H
OGERE SNELHEID...0..I.1.E:K.16...1..J.1.
16:. J(NF$(I),J,1).G(160).K.J.1:J.16...2
..J:SK$(I).H(NF$(I),K)...3..FT$."J".SK$(
I).FT$(I).SK$(I).#.4..I:M.E.8.5.M..(M.2)
:.M.0.67.F.6.K.E.M:J.0.R.7..J.K.53.Z.8.I
.J.F.9..I.0.59.~.:..SK$(I.M).SK$(I).60..
.;.J.J.1:.55...<.A$.FT$(I):FT$(I).FT$(I.
M):FT$(I.M).A$...=.A$.TS$(I):TS$(I).TS$(
I.M):TS$(I.M).A$...>.A$.NF$(I):NF$(I).NF
$(I.M):NF$(I.M).A$.4.?.A$.FE$(I):FE$(I).
FE$(I.M):FE$(I.M).A$.^.@.A$.SK$(I):SK$(I
).SK$(I.M):SK$(I.M).A$.L.A.I.I.M:.57...B
.. HERSCHRIJF DIRECTORY...C.."..".13)"TI
DY DIRECTORY..":.53265,27...D..".DISK NA
AM : "H(ID$,18)"   "I(ID$,2)"."...E.Z$.G
(0).G(255):.  AFSLUITING DIRECTORY KETTI
NG.-.F.S.1:N.1:. START SECTOR.A.G..15,"U
1:"2;0;18;S:.94:.   LEES DIRECTORY SECTO
R.X.H.BP.2:. EERSTE VELD...I..N.E.81:. D
IRECTORY GESCHREVEN...J..BP.256.77:. SEC
TOR NIET VOL...K..15,"U2:"2;0;18;S:.94:.
   SCHRIJF DIRECTORY SECTOR...L.S.S%(S):
.71.8.M..15,"B-P:";2;BP:. ZET POINTER NA
AR VOLGENDE VELD.B.N..,"  "NF$(N).30)": 
"T$(F(FT$(N)).128)...O..2,FT$(N);TS$(N);
NF$(N);FE$(N);:. SCHRIJF VELD...P.BP.BP.
32:N.N.1:.73.H.Q..BP.255.85:. SECTOR VOL
...R..15,"B-P:";2;BP...S..2,Z0$;:. LEEG 
VELD...T.BP.BP.32:.81...U.BP.0:.15,"B-P:
"2;BP.G.V..2,Z$;:.  EINDE VAN DIRECTORY 
KETTING.~.W..15,"U2:"2;0;18;S:.94:.   SC
HRIJF DIRECTORY SECTOR...X.Z$.H(Z0$,2):.
 VOLGENDE SECTOREN ZIJN LEEG.J.Y.S.S%(S)
:.S.255.92:. KLAAR...Z..15,"U1:"2;0;18;S
:.94:.   LEES LEGE DIRECTORY SECTOR.%.[.
BP.2:.82:. SECTOR SCHOONMAKEN.`.\..". VO
LGENDE SCHIJF (J/N)  J...";Z$:.Z$."J". 2
: 15:.:..~.]. 2: 15:.".";:.:."!",8,1:...
.^..15,EN,EM$,ET,ES:.EN.0..:. LEES ERROR
-KANAAL.X._.."..DISK ERROR."EN;EM$;ET;ES
:.99:.92...`.. LEES N KARAKTERS VAN DE B
UFFER...A.Z$."":.I.1.N:.98:Z$.Z$.A$:.:..
Z.B..#2,A$:A$.H(A$.G(0),1):A.F(A$):BP.BP
.1:.:. LEES BUFFER..C..LOOP.1.2000:.LOO
P:.:.  WACHTLUS....".M
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL