Multiple names: DISK DIRECTORY, 15.DISK-DIRECTOR, DISK FILE SYSTEM

00000000: 01 08 28 08 07 00 8F 22  14 14 14 14 14 14 20 20  |..(...."......  |
00000010: 20 20 20 20 20 20 20 20  53 4F 46 54 57 41 52 45  |        SOFTWARE|
00000020: 20 42 59 20 42 55 4C 4C  00 47 08 0A 00 8F 2A 2A  | BY BULL.G....**|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 00  5E 08 0C 00 8F 20 20 20  |*******.^....   |
00000050: 31 37 2E 32 20 44 49 52  45 43 54 4F 52 59 00 85  |17.2 DIRECTORY..|
00000060: 08 14 00 8F 20 46 24 28  58 2C 59 29 3D 4E 41 4D  |.... F$(X,Y)=NAM|
00000070: 45 2B 54 59 50 45 2B 44  49 53 4B 53 2B 43 4F 4D  |E+TYPE+DISKS+COM|
00000080: 4D 45 4E 54 53 00 A1 08  1E 00 8F 20 44 24 28 58  |MENTS...... D$(X|
00000090: 29 3D 44 49 53 43 20 4E  41 4D 45 20 4D 41 58 36  |)=DISC NAME MAX6|
000000A0: 30 00 A7 08 28 00 8F 00  C2 08 32 00 8F 20 50 24  |0...(.....2.. P$|
000000B0: 28 58 29 20 54 45 4D 50  20 46 49 4C 45 20 4E 41  |(X) TEMP FILE NA|
000000C0: 4D 45 00 DA 08 3C 00 8F  20 43 24 20 54 45 4D 50  |ME...<.. C$ TEMP|
000000D0: 20 46 49 4C 45 20 54 59  50 45 00 E0 08 46 00 8F  | FILE TYPE...F..|
000000E0: 00 08 09 50 00 8F 20 41  24 2C 42 24 2C 43 24 3D  |...P.. A$,B$,C$=|
000000F0: 54 45 4D 50 20 49 4E 50  55 54 3A 4E 41 24 3D 46  |TEMP INPUT:NA$=F|
00000100: 49 4C 45 20 4E 41 4D 45  00 28 09 5A 00 8F 20 4D  |ILE NAME.(.Z.. M|
00000110: 24 3D 4D 45 4E 55 20 53  4F 52 54 3A 44 24 3D 44  |$=MENU SORT:D$=D|
00000120: 49 53 4B 20 4E 41 4D 45  00 39 09 64 00 8F 20 49  |ISK NAME.9.d.. I|
00000130: 24 3D 44 49 53 4B 20 49  44 00 59 09 6E 00 8F 20  |$=DISK ID.Y.n.. |
00000140: 54 2C 54 41 2C 54 42 2C  54 43 3D 54 45 4D 50 3A  |T,TA,TB,TC=TEMP:|
00000150: 44 45 3D 44 45 56 49 43  45 00 79 09 78 00 8F 20  |DE=DEVICE.y.x.. |
00000160: 46 28 58 29 3D 23 20 4F  46 20 45 4E 54 52 49 45  |F(X)=# OF ENTRIE|
00000170: 53 20 49 4E 20 46 49 4C  45 00 9D 09 82 00 8F 20  |S IN FILE...... |
00000180: 50 3D 23 20 4F 46 20 46  49 4C 45 53 20 49 4E 20  |P=# OF FILES IN |
00000190: 4E 45 57 20 44 49 52 45  43 54 4F 52 59 00 AD 09  |NEW DIRECTORY...|
000001A0: 8C 00 8F 20 44 3D 23 20  44 49 53 4B 53 00 CB 09  |... D=# DISKS...|
000001B0: 96 00 8F 20 20 20 20 20  20 20 20 20 20 20 45 52  |...           ER|
000001C0: 52 4F 52 20 52 4F 55 54  49 4E 45 00 F1 09 A0 00  |ROR ROUTINE.....|
000001D0: 8F 20 45 4E 3D 23 3A 45  4D 24 3D 4D 53 47 3A 45  |. EN=#:EM$=MSG:E|
000001E0: 54 3D 54 52 41 43 4B 3A  45 53 3D 53 45 43 54 4F  |T=TRACK:ES=SECTO|
000001F0: 52 00 09 0A AA 00 8F 20  44 55 3D 44 55 50 4C 49  |R...... DU=DUPLI|
00000200: 43 41 54 45 20 46 4C 41  47 00 31 0A B1 00 8F 22  |CATE FLAG.1...."|
00000210: 14 14 14 14 14 14 14 14  20 20 20 20 20 20 20 20  |........        |
00000220: 20 53 4F 46 54 57 41 52  45 20 42 59 20 42 55 4C  | SOFTWARE BY BUL|
00000230: 4C 00 50 0A B4 00 8F 2A  2A 2A 2A 2A 2A 2A 2A 2A  |L.P....*********|
00000240: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000250: 00 67 0A BE 00 9F 31 35  2C 38 2C 31 35 2C 22 55  |.g....15,8,15,"U|
00000260: 49 2B 22 3A A0 31 35 00  8C 0A C8 00 86 50 24 28  |I+":.15......P$(|
00000270: 31 32 38 29 2C 44 24 28  36 30 29 2C 46 24 28 31  |128),D$(60),F$(1|
00000280: 35 2C 31 30 30 29 2C 46  28 31 36 29 00 A6 0A D2  |5,100),F(16)....|
00000290: 00 48 24 B2 22 30 31 32  33 34 35 36 37 38 39 41  |.H$."0123456789A|
000002A0: 42 43 44 45 46 22 00 C6  0A DC 00 99 22 93 22 A3  |BCDEF"......".".|
000002B0: 31 37 30 29 22 44 49 53  4B 20 46 49 4C 45 20 53  |170)"DISK FILE S|
000002C0: 59 53 54 45 4D 22 00 DE  0A E6 00 99 2C 22 11 12  |YSTEM"......,"..|
000002D0: 4C 92 4F 41 44 22 2C 22  12 53 92 41 56 45 00 F4  |L.OAD",".S.AVE..|
000002E0: 0A F0 00 99 2C 22 11 12  50 92 52 49 4E 54 20 46  |....,"..P.RINT F|
000002F0: 49 4C 45 53 00 0D 0B FA  00 99 2C 22 11 12 49 92  |ILES......,"..I.|
00000300: 4E 50 55 54 20 4E 45 57  20 44 49 53 4B 00 23 0B  |NPUT NEW DISK.#.|
00000310: 04 01 99 2C 22 11 12 44  92 49 53 43 20 55 50 44  |...,"..D.ISC UPD|
00000320: 41 54 45 00 42 0B 0E 01  99 2C 22 11 12 52 92 45  |ATE.B....,"..R.E|
00000330: 43 4C 41 53 53 49 46 59  20 4F 52 20 44 45 4C 45  |CLASSIFY OR DELE|
00000340: 54 45 00 62 0B 13 01 99  2C 22 11 12 43 92 41 54  |TE.b....,"..C.AT|
00000350: 41 47 4F 52 59 20 54 49  54 4C 45 20 55 50 44 41  |AGORY TITLE UPDA|
00000360: 54 45 00 7B 0B 16 01 99  2C 22 11 12 45 92 44 49  |TE.{....,"..E.DI|
00000370: 54 20 43 4F 4D 4D 45 4E  54 53 11 00 92 0B 18 01  |T COMMENTS......|
00000380: 8D 33 32 30 3A 4D 24 B2  22 4C 53 50 49 43 44 52  |.320:M$."LSPICDR|
00000390: 45 22 00 AF 0B 22 01 81  54 B2 31 A4 38 3A 8B CA  |E"..."..T.1.8:..|
000003A0: 28 4D 24 2C 54 2C 31 29  B2 41 24 A7 33 31 30 00  |(M$,T,1).A$.310.|
000003B0: C8 0B 2C 01 82 3A 99 22  54 52 59 20 41 47 41 49  |..,..:."TRY AGAI|
000003C0: 4E 22 3B 3A 89 32 38 30  00 FC 0B 36 01 91 20 54  |N";:.280...6.. T|
000003D0: 20 8D 34 30 30 2C 35 33  30 2C 36 36 30 2C 31 31  | .400,530,660,11|
000003E0: 33 30 2C 31 37 32 30 2C  31 34 31 30 2C 32 30 30  |30,1720,1410,200|
000003F0: 30 2C 32 35 30 30 20 3A  89 32 32 30 00 1B 0C 40  |0,2500 :.220...@|
00000400: 01 99 2C 22 12 50 52 45  53 53 20 4B 45 59 22 3A  |..,".PRESS KEY":|
00000410: 97 31 39 38 2C 30 3A 51  46 B2 31 00 2E 0C 4A 01  |.198,0:QF.1...J.|
00000420: A1 41 24 3A 8B 41 24 B2  22 22 A7 33 33 30 00 4B  |.A$:.A$."".330.K|
00000430: 0C 54 01 8B 51 46 A7 20  99 2C 22 91 20 20 20 20  |.T..QF. .,".    |
00000440: 20 20 20 20 20 22 3A 51  46 B2 30 00 51 0C 59 01  |     ":QF.0.Q.Y.|
00000450: 8E 00 57 0C 68 01 3A 00  68 0C 72 01 8F 20 20 44  |..W.h.:.h.r..  D|
00000460: 49 53 43 20 4C 4F 41 44  00 6E 0C 7C 01 3A 00 85  |ISC LOAD.n.|.:..|
00000470: 0C 90 01 99 22 93 11 11  11 11 22 2C 22 4C 4F 41  |....".....","LOA|
00000480: 44 11 11 11 22 00 AD 0C  9A 01 85 22 46 49 4C 45  |D..."......"FILE|
00000490: 20 4E 41 4D 45 20 4F 52  20 12 51 92 22 3B 4E 41  | NAME OR .Q.";NA|
000004A0: 24 3A 8B 4E 41 24 B2 22  51 22 A7 20 8E 00 E3 0C  |$:.NA$."Q". ....|
000004B0: A4 01 9F 31 35 2C 38 2C  31 35 3A 20 9F 32 2C 38  |...15,8,15: .2,8|
000004C0: 2C 32 2C 22 30 3A 22 AA  4E 41 24 AA 22 2C 53 2C  |,2,"0:".NA$.",S,|
000004D0: 52 22 3A 8D 31 36 34 30  3A 8B 45 4E B3 B1 30 A7  |R":.1640:.EN..0.|
000004E0: 34 31 30 00 F9 0C AE 01  81 54 B2 30 A4 31 35 3A  |410......T.0.15:|
000004F0: 84 32 2C 46 28 54 29 3A  82 00 14 0D B8 01 84 32  |.2,F(T):.......2|
00000500: 2C 44 3A 81 54 B2 31 A4  44 3A 84 32 2C 44 24 28  |,D:.T.1.D:.2,D$(|
00000510: 54 29 3A 82 00 3F 0D C2  01 81 54 B2 30 A4 31 35  |T):..?....T.0.15|
00000520: 3A 81 50 B2 30 A4 46 28  54 29 3A 84 32 2C 46 24  |:.P.0.F(T):.2,F$|
00000530: 28 54 2C 50 29 3A 82 3A  99 22 13 22 54 3A 82 00  |(T,P):.:."."T:..|
00000540: 49 0D CC 01 8D 31 36 34  30 00 56 0D D6 01 A0 32  |I....1640.V....2|
00000550: 3A A0 31 35 3A 8E 00 5C  0D EA 01 3A 00 6D 0D F4  |:.15:..\...:.m..|
00000560: 01 8F 20 20 44 49 53 43  20 53 41 56 45 00 73 0D  |..  DISC SAVE.s.|
00000570: FE 01 3A 00 AD 0D 12 02  99 22 93 11 11 11 11 22  |..:......"....."|
00000580: 2C 22 53 41 56 45 11 11  11 22 3A 85 22 46 49 4C  |,"SAVE...":."FIL|
00000590: 45 20 4E 41 4D 45 20 4F  52 20 12 51 92 22 3B 4E  |E NAME OR .Q.";N|
000005A0: 41 24 3A 8B 4E 41 24 B2  22 51 22 A7 8E 00 E3 0D  |A$:.NA$."Q".....|
000005B0: 1C 02 9F 31 35 2C 38 2C  31 35 3A 20 9F 32 2C 38  |...15,8,15: .2,8|
000005C0: 2C 32 2C 22 30 3A 22 AA  4E 41 24 AA 22 2C 53 2C  |,2,"0:".NA$.",S,|
000005D0: 57 22 3A 8D 31 36 34 30  3A 8B 45 4E B3 B1 30 A7  |W":.1640:.EN..0.|
000005E0: 35 33 30 00 F9 0D 26 02  81 54 B2 30 A4 31 35 3A  |530...&..T.0.15:|
000005F0: 98 32 2C 46 28 54 29 3A  82 00 1D 0E 30 02 98 32  |.2,F(T):....0..2|
00000600: 2C 44 3A 81 54 B2 31 A4  44 3A 8B 44 24 28 54 29  |,D:.T.1.D:.D$(T)|
00000610: B2 22 22 A7 44 24 28 54  29 B2 22 2D 22 00 2C 0E  |."".D$(T)."-".,.|
00000620: 3A 02 98 32 2C 44 24 28  54 29 3A 82 00 5A 0E 44  |:..2,D$(T):..Z.D|
00000630: 02 81 54 B2 30 A4 31 35  3A 81 50 B2 30 A4 46 28  |..T.0.15:.P.0.F(|
00000640: 54 29 3A 8B 46 24 28 54  2C 50 29 B2 22 22 A7 46  |T):.F$(T,P)."".F|
00000650: 24 28 54 2C 50 29 B2 22  2D 22 00 79 0E 4E 02 98  |$(T,P)."-".y.N..|
00000660: 32 2C 46 24 28 54 2C 50  29 3A 82 3A 99 22 13 22  |2,F$(T,P):.:."."|
00000670: 54 3A 82 3A 8D 31 36 34  30 00 86 0E 58 02 A0 32  |T:.:.1640...X..2|
00000680: 3A A0 31 35 3A 8E 00 8C  0E 6C 02 3A 00 9E 0E 76  |:.15:....l.:...v|
00000690: 02 8F 20 20 50 52 49 4E  54 20 46 49 4C 45 00 A4  |..  PRINT FILE..|
000006A0: 0E 80 02 3A 00 C5 0E 94  02 99 22 93 22 2C 22 11  |...:......".",".|
000006B0: 11 52 45 41 44 20 41 4E  44 20 50 52 49 4E 54 20  |.READ AND PRINT |
000006C0: 46 49 4C 45 53 00 06 0F  9E 02 99 22 11 20 20 50  |FILES......".  P|
000006D0: 52 49 4E 54 20 54 4F 20  12 53 92 43 52 45 45 4E  |RINT TO .S.CREEN|
000006E0: 20 4F 52 20 12 50 92 52  49 4E 54 45 52 3F 22 3A  | OR .P.RINTER?":|
000006F0: 8D 33 32 30 3A 44 45 B2  33 3A 8B 41 24 B2 22 50  |.320:DE.3:.A$."P|
00000700: 22 A7 44 45 B2 34 00 15  0F A8 02 9F 33 2C 44 45  |".DE.4......3,DE|
00000710: 3A 54 41 B2 30 00 39 0F  B2 02 99 22 11 20 20 53  |:TA.0.9....".  S|
00000720: 4F 52 54 20 42 59 20 12  43 92 41 54 41 47 4F 52  |ORT BY .C.ATAGOR|
00000730: 59 20 12 44 92 49 53 4B  22 00 5E 0F B7 02 99 22  |Y .D.ISK".^...."|
00000740: 11 20 20 50 52 49 4E 54  2E 2E 2E 12 54 92 49 54  |.  PRINT....T.IT|
00000750: 4C 45 20 4F 46 20 43 41  54 41 47 4F 52 59 00 9E  |LE OF CATAGORY..|
00000760: 0F BC 02 99 22 11 20 20  50 52 49 4E 54 2E 2E 2E  |....".  PRINT...|
00000770: 12 4C 92 49 53 54 20 44  49 53 4B 53 20 4F 4E 20  |.L.IST DISKS ON |
00000780: 46 49 4C 45 22 3A 99 2C  22 11 12 51 92 55 49 54  |FILE":.,"..Q.UIT|
00000790: 20 46 4F 52 20 4D 41 49  4E 20 4D 45 4E 55 00 B2  | FOR MAIN MENU..|
000007A0: 0F C6 02 4D 24 B2 22 43  44 4C 54 51 22 3A 8D 33  |...M$."CDLTQ":.3|
000007B0: 32 30 00 CF 0F D0 02 81  54 B2 31 A4 35 3A 8B CA  |20......T.1.5:..|
000007C0: 28 4D 24 2C 54 2C 31 29  B2 41 24 A7 37 34 30 00  |(M$,T,1).A$.740.|
000007D0: DA 0F DA 02 82 3A 89 37  31 30 00 FC 0F E4 02 91  |.....:.710......|
000007E0: 54 8D 38 30 30 2C 31 30  32 30 2C 37 36 30 2C 39  |T.800,1020,760,9|
000007F0: 37 30 3A 8B 54 B2 35 A7  A0 33 3A 8E 00 0A 10 EE  |70:.T.5..3:.....|
00000800: 02 99 22 93 22 3A 89 36  39 30 00 45 10 F8 02 99  |..".":.690.E....|
00000810: 22 93 22 3A 81 54 B2 31  A4 44 3A 98 33 2C 54 3B  |".":.T.1.D:.3,T;|
00000820: 44 24 28 54 29 3A 54 41  B2 54 41 AA 31 3A 8B 44  |D$(T):TA.TA.1:.D|
00000830: 45 B2 34 A7 99 22 13 22  54 3A 8B 53 54 B3 B1 30  |E.4.."."T:.ST..0|
00000840: A7 8D 37 39 32 00 63 10  02 03 8B 44 45 B2 33 AF  |..792.c....DE.3.|
00000850: C2 28 32 31 34 29 B1 32  33 A7 8D 33 32 30 3A 99  |.(214).23..320:.|
00000860: 22 93 22 00 8D 10 0C 03  8B 44 45 B2 34 AF 54 41  |"."......DE.4.TA|
00000870: B1 36 30 A7 81 54 42 B2  31 A4 36 36 AB 54 41 3A  |.60..TB.1.66.TA:|
00000880: 98 33 2C 22 20 22 3A 82  3A 54 41 B2 30 00 9A 10  |.3," ":.:TA.0...|
00000890: 16 03 82 3A 8D 33 32 30  3A 8E 00 CC 10 18 03 99  |...:.320:.......|
000008A0: 22 11 11 11 43 4C 45 41  52 20 50 52 49 4E 54 45  |"...CLEAR PRINTE|
000008B0: 52 22 3A 8D 33 32 30 3A  99 22 93 22 3A 54 B2 54  |R":.320:.".":T.T|
000008C0: AB 31 3A 54 41 B2 54 41  AB 31 3A 8E 00 F6 10 20  |.1:TA.TA.1:.... |
000008D0: 03 99 22 93 22 3A 81 54  B2 30 A4 37 3A 99 CA 28  |..".":.T.0.7:..(|
000008E0: 48 24 2C 54 AA 31 2C 31  29 3B 22 20 22 3B 46 24  |H$,T.1,1);" ";F$|
000008F0: 28 54 2C 30 29 3A 00 1F  11 2A 03 99 22 91 22 20  |(T,0):...*.."." |
00000900: A3 32 30 29 CA 28 48 24  2C 54 AA 39 2C 31 29 3B  |.20).(H$,T.9,1);|
00000910: 22 20 22 3B 46 24 28 54  AA 38 2C 30 29 3A 82 00  |" ";F$(T.8,0):..|
00000920: 43 11 34 03 99 22 40 20  46 4F 52 20 41 4C 4C 20  |C.4.."@ FOR ALL |
00000930: 20 20 20 20 20 20 20 20  20 20 51 20 54 4F 20 51  |          Q TO Q|
00000940: 55 49 54 00 56 11 3E 03  8D 33 32 30 3A 8B 41 24  |UIT.V.>..320:.A$|
00000950: B2 22 51 22 A7 8E 00 6B  11 48 03 99 22 93 22 3A  |."Q"...k.H..".":|
00000960: 8B 41 24 B2 22 40 22 A7  38 38 30 00 8B 11 52 03  |.A$."@".880...R.|
00000970: 81 54 B2 30 A4 31 35 3A  8B CA 28 48 24 2C 54 AA  |.T.0.15:..(H$,T.|
00000980: 31 2C 31 29 B2 41 24 A7  38 37 30 00 96 11 5C 03  |1,1).A$.870...\.|
00000990: 82 3A 89 38 30 30 00 D5  11 66 03 8B 44 45 B2 34  |.:.800...f..DE.4|
000009A0: A7 99 22 46 45 45 44 20  4E 45 57 20 50 41 47 45  |.."FEED NEW PAGE|
000009B0: 20 3F 22 3A 8D 33 32 30  3A 8B 41 24 B3 B1 22 59  | ?":.320:.A$.."Y|
000009C0: 22 AF 41 24 B3 B1 22 4E  22 A7 99 22 91 91 91 22  |".A$.."N".."..."|
000009D0: 3A 89 38 37 30 00 FF 11  67 03 8B 44 45 B2 34 AF  |:.870...g..DE.4.|
000009E0: 41 24 B2 22 59 22 A7 81  54 B2 31 A4 36 36 AB 54  |A$."Y"..T.1.66.T|
000009F0: 41 3A 98 33 2C 22 A0 22  3A 82 3A 54 41 B2 30 00  |A:.3,".":.:TA.0.|
00000A00: 0D 12 6B 03 8D 39 32 30  3A 89 38 30 30 00 2A 12  |..k..920:.800.*.|
00000A10: 70 03 81 54 B2 30 A4 31  35 3A 8D 39 32 30 3A 82  |p..T.0.15:.920:.|
00000A20: 3A 8D 33 32 30 3A 89 38  30 30 00 30 12 7A 03 3A  |:.320:.800.0.z.:|
00000A30: 00 45 12 84 03 8F 20 50  52 49 4E 54 20 43 41 54  |.E.... PRINT CAT|
00000A40: 41 47 4F 52 59 00 4B 12  8E 03 3A 00 74 12 98 03  |AGORY.K...:.t...|
00000A50: 98 33 2C C7 28 31 38 29  3B 46 24 28 54 2C 30 29  |.3,.(18);F$(T,0)|
00000A60: 3A 54 41 B2 54 41 AA 31  3A 8B 53 54 B3 B1 30 A7  |:TA.TA.1:.ST..0.|
00000A70: 8D 39 36 32 00 A1 12 9D  03 81 50 B2 31 A4 46 28  |.962......P.1.F(|
00000A80: 54 29 3A 98 33 2C 46 24  28 54 2C 50 29 3A 54 41  |T):.3,F$(T,P):TA|
00000A90: B2 54 41 AA 31 3A 8B 53  54 B3 B1 30 A7 8D 39 36  |.TA.1:.ST..0..96|
00000AA0: 32 00 BF 12 A2 03 8B 44  45 B2 33 AF C2 28 32 31  |2......DE.3..(21|
00000AB0: 34 29 B1 32 33 A7 8D 33  32 30 3A 99 22 93 22 00  |4).23..320:.".".|
00000AC0: E9 12 AC 03 8B 44 45 B2  34 AF 54 41 B1 36 30 A7  |.....DE.4.TA.60.|
00000AD0: 81 54 42 B2 31 A4 36 36  AB 54 41 3A 98 33 2C 22  |.TB.1.66.TA:.3,"|
00000AE0: 20 22 3A 82 3A 54 41 B2  30 00 EF 12 B6 03 82 00  | ":.:TA.0.......|
00000AF0: F5 12 C0 03 8E 00 27 13  C2 03 99 22 11 11 11 43  |......'...."...C|
00000B00: 4C 45 41 52 20 50 52 49  4E 54 45 52 22 3A 8D 33  |LEAR PRINTER":.3|
00000B10: 32 30 3A 99 22 93 22 3A  50 B2 50 AB 31 3A 54 41  |20:.".":P.P.1:TA|
00000B20: B2 54 41 AB 31 3A 8E 00  59 13 CA 03 81 54 B2 30  |.TA.1:..Y....T.0|
00000B30: A4 31 35 3A 98 33 2C CA  28 48 24 2C 54 AA 31 2C  |.15:.3,.(H$,T.1,|
00000B40: 31 29 3B 22 20 22 46 24  28 54 2C 30 29 3A 8B 53  |1);" "F$(T,0):.S|
00000B50: 54 B3 B1 30 A7 8D 37 39  32 00 6A 13 CE 03 82 3A  |T..0..792.j....:|
00000B60: 8B 44 45 B2 33 A7 8D 33  32 30 00 70 13 CF 03 8E  |.DE.3..320.p....|
00000B70: 00 76 13 DD 03 3A 00 91  13 DE 03 8F 20 20 44 49  |.v...:......  DI|
00000B80: 53 43 20 53 4F 52 54 20  41 4E 44 20 50 52 49 4E  |SC SORT AND PRIN|
00000B90: 54 00 97 13 E8 03 3A 00  B0 13 FC 03 99 22 93 22  |T.....:......"."|
00000BA0: 3A 81 54 B2 31 A4 44 3A  99 54 3B 44 24 28 54 29  |:.T.1.D:.T;D$(T)|
00000BB0: 00 CA 13 06 04 8B 20 C2  28 32 31 34 29 B1 32 33  |...... .(214).23|
00000BC0: A7 8D 33 32 30 3A 99 22  93 22 00 F2 13 10 04 82  |..320:."."......|
00000BD0: 3A 85 22 44 49 53 4B 20  4E 55 4D 42 45 52 22 3B  |:."DISK NUMBER";|
00000BE0: 41 3A 49 24 B2 CA 28 44  24 28 41 29 2C 32 30 2C  |A:I$..(D$(A),20,|
00000BF0: 32 29 00 1E 14 1A 04 81  54 B2 30 A4 31 35 3A 98  |2)......T.0.15:.|
00000C00: 33 2C 22 12 22 46 24 28  54 2C 30 29 3A 54 41 B2  |3,"."F$(T,0):TA.|
00000C10: 54 41 AA 31 3A 81 50 B2  31 A4 46 28 54 29 00 59  |TA.1:.P.1.F(T).Y|
00000C20: 14 24 04 81 43 B2 32 30  A4 32 34 A9 32 3A 8B CA  |.$..C.20.24.2:..|
00000C30: 28 46 24 28 54 2C 50 29  2C 43 2C 32 29 B2 49 24  |(F$(T,P),C,2).I$|
00000C40: A7 98 33 2C 46 24 28 54  2C 50 29 3A 54 41 B2 54  |..3,F$(T,P):TA.T|
00000C50: 41 AA 31 3A 89 31 30 37  30 00 5F 14 29 04 82 00  |A.1:.1070._.)...|
00000C60: 7D 14 2E 04 8B 44 45 B2  33 AF C2 28 32 31 34 29  |}....DE.3..(214)|
00000C70: B1 32 33 A7 8D 33 32 30  3A 99 22 93 22 00 A7 14  |.23..320:."."...|
00000C80: 38 04 8B 44 45 B2 34 AF  54 41 B1 36 30 A7 81 54  |8..DE.4.TA.60..T|
00000C90: 42 B2 31 A4 36 36 AB 54  41 3A 98 33 2C 22 20 22  |B.1.66.TA:.3," "|
00000CA0: 3A 82 3A 54 41 B2 30 00  B8 14 42 04 82 50 3A 82  |:.:TA.0...B..P:.|
00000CB0: 54 3A 8D 33 32 30 3A 8E  00 D3 14 56 04 8F 20 20  |T:.320:....V..  |
00000CC0: 49 4E 50 55 54 20 4E 45  57 20 44 49 52 45 43 54  |INPUT NEW DIRECT|
00000CD0: 4F 52 59 00 E8 14 6A 04  8D 31 32 30 30 3A 8B 41  |ORY...j..1200:.A|
00000CE0: 24 B2 22 51 22 A7 20 8E  00 00 15 74 04 8D 31 38  |$."Q". ....t..18|
00000CF0: 32 30 3A 8E 3A 8F 2A 2A  4E 45 57 20 44 49 53 4B  |20:.:.**NEW DISK|
00000D00: 00 06 15 88 04 3A 00 21  15 92 04 8F 20 20 44 49  |.....:.!....  DI|
00000D10: 53 43 20 44 49 52 45 43  52 4F 52 59 20 52 45 41  |SC DIRECRORY REA|
00000D20: 44 00 27 15 9C 04 3A 00  60 15 B0 04 99 22 93 22  |D.'...:.`...."."|
00000D30: A3 31 36 33 29 22 50 4C  41 43 45 20 44 49 53 4B  |.163)"PLACE DISK|
00000D40: 20 54 4F 20 42 45 20 52  45 41 44 20 49 4E 20 44  | TO BE READ IN D|
00000D50: 52 49 56 45 20 4F 52 20  12 51 22 3A 8D 33 32 30  |RIVE OR .Q":.320|
00000D60: 00 6F 15 BA 04 8B 41 24  B2 22 51 22 A7 20 8E 00  |.o....A$."Q". ..|
00000D70: 83 15 C4 04 9F 31 2C 38  2C 30 2C 22 24 30 22 3A  |.....1,8,0,"$0":|
00000D80: 99 44 24 00 9F 15 CE 04  A1 23 31 2C 41 24 28 31  |.D$......#1,A$(1|
00000D90: 29 2C 42 24 28 31 29 3A  46 B2 31 3A 50 B2 31 00  |),B$(1):F.1:P.1.|
00000DA0: B3 15 D8 04 A1 23 31 2C  41 24 28 32 29 2C 42 24  |.....#1,A$(2),B$|
00000DB0: 28 32 29 00 C7 15 E2 04  A1 23 31 2C 41 24 28 33  |(2)......#1,A$(3|
00000DC0: 29 2C 42 24 28 33 29 00  D8 15 EC 04 43 B2 30 3A  |),B$(3).....C.0:|
00000DD0: 50 24 28 50 29 B2 22 22  00 F2 15 F6 04 A1 23 31  |P$(P).""......#1|
00000DE0: 2C 42 24 3A 8B 20 53 54  B3 B1 30 20 A7 20 31 33  |,B$:. ST..0 . 13|
00000DF0: 37 30 00 09 16 00 05 8B  20 42 24 B3 B1 C7 28 33  |70...... B$...(3|
00000E00: 34 29 20 A7 20 31 32 37  30 00 35 16 0A 05 A1 23  |4) . 1270.5....#|
00000E10: 31 2C 42 24 3A 8B 20 42  24 B3 B1 C7 28 33 34 29  |1,B$:. B$...(34)|
00000E20: A7 50 24 28 50 29 B2 50  24 28 50 29 AA 42 24 3A  |.P$(P).P$(P).B$:|
00000E30: 89 31 32 39 30 00 52 16  14 05 A1 23 31 2C 42 24  |.1290.R....#1,B$|
00000E40: 3A 8B 20 42 24 B2 C7 28  33 32 29 20 A7 20 31 33  |:. B$..(32) . 13|
00000E50: 30 30 00 5C 16 1E 05 43  24 B2 22 22 00 81 16 28  |00.\...C$.""...(|
00000E60: 05 43 24 B2 43 24 AA 42  24 3A A1 23 31 2C 42 24  |.C$.C$.B$:.#1,B$|
00000E70: 3A 8B 20 42 24 B3 B1 22  22 20 20 A7 20 31 33 32  |:. B$..""  . 132|
00000E80: 30 00 B3 16 32 05 50 24  28 50 29 B2 50 24 28 50  |0...2.P$(P).P$(P|
00000E90: 29 AA C8 28 22 20 20 20  20 20 20 20 20 20 20 20  |)..("           |
00000EA0: 20 20 20 20 20 22 2C 31  36 AB C3 28 50 24 28 50  |     ",16..(P$(P|
00000EB0: 29 29 29 00 CD 16 3C 05  8B 50 B2 31 A7 49 24 B2  |)))...<..P.1.I$.|
00000EC0: C8 28 43 24 2C 32 29 3A  99 22 12 22 3B 00 F5 16  |.(C$,2):.".";...|
00000ED0: 46 05 50 24 28 50 29 B2  50 24 28 50 29 AA C8 28  |F.P$(P).P$(P)..(|
00000EE0: 43 24 2C 33 29 AA 49 24  3A 99 50 24 28 50 29 3A  |C$,3).I$:.P$(P):|
00000EF0: 50 B2 50 AA 31 00 07 17  50 05 8B 20 53 54 B2 30  |P.P.1...P.. ST.0|
00000F00: 20 A7 20 31 32 34 30 00  1B 17 5A 05 A0 31 3A A0  | . 1240...Z..1:.|
00000F10: 31 35 3A 50 B2 50 AB 31  3A 20 8E 00 21 17 64 05  |15:P.P.1: ..!.d.|
00000F20: 3A 00 3D 17 6E 05 8F 20  55 50 44 41 54 45 20 45  |:.=.n.. UPDATE E|
00000F30: 58 48 49 53 54 49 4E 47  20 44 49 53 43 00 43 17  |XHISTING DISC.C.|
00000F40: 78 05 3A 00 58 17 82 05  8D 31 32 30 30 3A 8B 41  |x.:.X....1200:.A|
00000F50: 24 B2 22 51 22 A7 20 8E  00 7F 17 8C 05 81 54 B2  |$."Q". .......T.|
00000F60: 30 A4 31 35 3A 99 22 93  11 11 11 22 2C 46 24 28  |0.15:."....",F$(|
00000F70: 54 2C 30 29 3A 81 54 41  B2 31 A4 46 28 54 29 00  |T,0):.TA.1.F(T).|
00000F80: A7 17 96 05 81 43 B2 32  30 A4 32 34 A9 32 3A 8B  |.....C.20.24.2:.|
00000F90: CA 28 46 24 28 54 2C 54  41 29 2C 43 2C 32 29 B2  |.(F$(T,TA),C,2).|
00000FA0: 49 24 A7 31 34 35 30 00  BB 17 A0 05 82 43 3A 82  |I$.1450......C:.|
00000FB0: 54 41 3A 82 54 3A 89 31  34 37 30 00 F5 17 AA 05  |TA:.T:.1470.....|
00000FC0: 81 54 42 B2 32 A4 50 3A  8B C8 28 50 24 28 54 42  |.TB.2.P:..(P$(TB|
00000FD0: 29 2C 31 36 29 B2 C8 28  46 24 28 54 2C 54 41 29  |),16)..(F$(T,TA)|
00000FE0: 2C 31 36 29 A7 50 24 28  54 42 29 B2 22 5C 22 3A  |,16).P$(TB)."\":|
00000FF0: 89 31 34 34 30 00 07 18  B4 05 82 3A 8D 31 35 37  |.1440......:.157|
00001000: 30 3A 89 31 34 34 30 00  19 18 BE 05 54 43 B2 50  |0:.1440.....TC.P|
00001010: 3A 81 54 42 B2 32 A4 54  43 00 2E 18 C8 05 8B 50  |:.TB.2.TC......P|
00001020: 24 28 54 42 29 B2 22 5C  22 A7 31 35 30 30 00 3A  |$(TB)."\".1500.:|
00001030: 18 D2 05 82 3A 89 31 35  31 30 00 63 18 DC 05 81  |....:.1510.c....|
00001040: 54 B2 54 42 A4 54 43 3A  50 24 28 54 29 B2 50 24  |T.TB.TC:P$(T).P$|
00001050: 28 54 AA 31 29 3A 82 3A  50 B2 50 AB 31 3A 89 31  |(T.1):.:P.P.1:.1|
00001060: 34 38 30 00 87 18 E6 05  99 22 93 22 2C 22 11 11  |480......".","..|
00001070: 4E 45 57 20 45 4E 54 52  49 45 53 22 3A 8D 33 32  |NEW ENTRIES":.32|
00001080: 30 3A 8D 31 38 33 30 00  B4 18 F0 05 81 54 B2 30  |0:.1830......T.0|
00001090: A4 31 35 3A 99 22 93 11  11 11 11 20 20 20 20 43  |.15:.".....    C|
000010A0: 48 45 43 4B 49 4E 47 22  54 3A 81 54 41 B2 31 A4  |HECKING"T:.TA.1.|
000010B0: 46 28 54 29 00 D9 18 FA  05 8B CA 28 46 24 28 54  |F(T).......(F$(T|
000010C0: 2C 54 41 29 2C 32 30 2C  36 29 B2 22 5C 5C 5C 5C  |,TA),20,6)."\\\\|
000010D0: 5C 5C 22 A7 8D 31 35 35  30 00 E6 18 04 06 82 54  |\\"..1550......T|
000010E0: 41 3A 82 54 3A 8E 00 0C  19 0E 06 81 54 43 B2 54  |A:.T:.......TC.T|
000010F0: 41 A4 46 28 54 29 3A 46  24 28 54 2C 54 43 29 B2  |A.F(T):F$(T,TC).|
00001100: 46 24 28 54 2C 54 43 AA  31 29 3A 82 00 1E 19 18  |F$(T,TC.1):.....|
00001110: 06 46 28 54 29 B2 46 28  54 29 AB 31 3A 8E 00 3C  |.F(T).F(T).1:..<|
00001120: 19 22 06 8B C3 28 46 24  28 54 2C 54 41 29 29 AB  |."...(F$(T,TA)).|
00001130: 28 43 AA 32 29 B1 30 A7  31 35 39 30 00 64 19 2C  |(C.2).0.1590.d.,|
00001140: 06 46 24 28 54 2C 54 41  29 B2 C8 28 46 24 28 54  |.F$(T,TA)..(F$(T|
00001150: 2C 54 41 29 2C 43 AB 31  29 AA 22 5C 5C 22 3A 89  |,TA),C.1)."\\":.|
00001160: 31 36 30 30 00 A8 19 36  06 46 24 28 54 2C 54 41  |1600...6.F$(T,TA|
00001170: 29 B2 C8 28 46 24 28 54  2C 54 41 29 2C 43 AB 31  |)..(F$(T,TA),C.1|
00001180: 29 AA 22 5C 5C 22 AA CA  28 46 24 28 54 2C 54 41  |)."\\"..(F$(T,TA|
00001190: 29 2C 43 AA 32 2C C3 28  46 24 28 54 2C 54 41 29  |),C.2,.(F$(T,TA)|
000011A0: 29 AB 28 43 AA 32 29 29  00 AE 19 40 06 8E 00 B4  |).(C.2))...@....|
000011B0: 19 4A 06 3A 00 CB 19 54  06 8F 20 20 46 49 4C 45  |.J.:...T..  FILE|
000011C0: 20 45 52 52 4F 52 20 52  45 41 44 00 D1 19 5E 06  | ERROR READ...^.|
000011D0: 3A 00 F0 19 68 06 84 31  35 2C 45 4E 2C 45 4D 24  |:...h..15,EN,EM$|
000011E0: 2C 45 54 2C 45 53 3A 8B  45 4E B2 30 A7 20 20 8E  |,ET,ES:.EN.0.  .|
000011F0: 00 05 1A 72 06 99 22 45  52 52 4F 52 20 4F 4E 20  |...r.."ERROR ON |
00001200: 44 49 53 4B 22 00 25 1A  7C 06 99 45 4E 3B 45 4D  |DISK".%.|..EN;EM|
00001210: 24 3B 45 54 3B 45 53 3A  A0 32 3A A0 31 35 3A 8D  |$;ET;ES:.2:.15:.|
00001220: 33 32 30 3A 8E 00 2B 1A  90 06 3A 00 42 1A 9A 06  |320:..+...:.B...|
00001230: 8F 20 20 43 41 54 41 47  4F 52 59 20 55 50 44 41  |.  CATAGORY UPDA|
00001240: 54 45 00 48 1A A4 06 3A  00 65 1A B8 06 99 22 93  |TE.H...:.e....".|
00001250: 20 20 20 50 52 4F 47 52  41 4D 20 43 41 54 41 47  |   PROGRAM CATAG|
00001260: 4F 52 49 45 53 00 8F 1A  C2 06 99 22 93 22 3A 81  |ORIES......".":.|
00001270: 54 B2 30 A4 37 3A 99 CA  28 48 24 2C 54 AA 31 2C  |T.0.7:..(H$,T.1,|
00001280: 31 29 3B 22 20 22 3B 46  24 28 54 2C 30 29 3A 00  |1);" ";F$(T,0):.|
00001290: B8 1A CC 06 99 22 91 22  20 A3 32 30 29 CA 28 48  |....."." .20).(H|
000012A0: 24 2C 54 AA 39 2C 31 29  3B 22 20 22 3B 46 24 28  |$,T.9,1);" ";F$(|
000012B0: 54 AA 38 2C 30 29 3A 82  00 EE 1A D6 06 81 54 B2  |T.8,0):.......T.|
000012C0: 30 A4 31 35 3A 99 CA 28  48 24 2C 54 AA 31 2C 31  |0.15:..(H$,T.1,1|
000012D0: 29 3B 22 20 20 22 3B 46  24 28 54 2C 30 29 3A 85  |);"  ";F$(T,0):.|
000012E0: 22 91 1D 22 3B 46 24 28  54 2C 30 29 3A 82 00 F4  |"..";F$(T,0):...|
000012F0: 1A E0 06 8E 00 FA 1A F4  06 3A 00 10 1B FE 06 8F  |.........:......|
00001300: 20 20 4D 45 52 47 45 20  4E 45 57 20 44 49 53 4B  |  MERGE NEW DISK|
00001310: 00 16 1B 08 07 3A 00 31  1B 1C 07 41 24 B2 22 22  |.....:.1...A$.""|
00001320: 3A 8D 32 32 30 30 3A 8B  41 24 B2 22 44 22 A7 20  |:.2200:.A$."D". |
00001330: 8E 00 4A 1B 26 07 81 54  42 B2 32 A4 50 3A 99 22  |..J.&..TB.2.P:."|
00001340: 93 22 3A 8B 54 42 B1 50  A7 8E 00 73 1B 30 07 99  |.":.TB.P...s.0..|
00001350: 22 93 22 3A 81 54 B2 30  A4 37 3A 99 CA 28 48 24  |".":.T.0.7:..(H$|
00001360: 2C 54 AA 31 2C 31 29 3B  22 20 22 3B 46 24 28 54  |,T.1,1);" ";F$(T|
00001370: 2C 30 29 00 9C 1B 3A 07  99 22 91 22 20 A3 32 30  |,0)...:.."." .20|
00001380: 29 CA 28 48 24 2C 54 AA  39 2C 31 29 3B 22 20 22  |).(H$,T.9,1);" "|
00001390: 3B 46 24 28 54 AA 38 2C  30 29 3A 82 00 B9 1B 44  |;F$(T.8,0):....D|
000013A0: 07 99 22 20 45 4E 54 45  52 20 58 20 54 4F 20 4F  |.." ENTER X TO O|
000013B0: 4D 49 54 22 3A 44 55 B2  31 00 C3 1B 4E 07 99 22  |MIT":DU.1...N.."|
000013C0: 11 11 22 00 F5 1B 58 07  99 50 24 28 54 42 29 3A  |.."...X..P$(TB):|
000013D0: 41 24 B2 22 22 3A 99 22  11 43 41 54 41 47 4F 52  |A$."":.".CATAGOR|
000013E0: 49 45 20 23 20 20 20 9D  9D 9D 22 3B 3A 8D 33 33  |IE #   ...";:.33|
000013F0: 30 3A 99 41 24 00 06 1C  62 07 8B 41 24 B2 22 58  |0:.A$...b..A$."X|
00001400: 22 A7 31 39 36 30 00 29  1C 6C 07 81 54 43 B2 30  |".1960.).l..TC.0|
00001410: A4 31 35 3A 8B CA 28 48  24 2C 54 43 AA 31 2C 31  |.15:..(H$,TC.1,1|
00001420: 29 B2 41 24 A7 31 39 32  30 00 35 1C 76 07 82 3A  |).A$.1920.5.v..:|
00001430: 89 31 38 34 30 00 62 1C  80 07 85 22 43 4F 4D 4D  |.1840.b...."COMM|
00001440: 45 4E 54 53 20 20 20 2A  9D 9D 9D 22 3B 43 24 3A  |ENTS   *...";C$:|
00001450: 43 24 B2 22 5C 5C 5C 5C  22 AA C8 28 43 24 2C 35  |C$."\\\\"..(C$,5|
00001460: 31 29 00 7D 1C 94 07 42  24 B2 50 24 28 54 42 29  |1).}...B$.P$(TB)|
00001470: AA 43 24 3A 50 24 28 54  42 29 B2 22 22 00 87 1C  |.C$:P$(TB).""...|
00001480: 9E 07 8D 32 33 32 30 00  91 1C A8 07 82 54 42 3A  |...2320......TB:|
00001490: 8E 00 97 1C B2 07 3A 00  AD 1C BC 07 8F 20 43 48  |......:...... CH|
000014A0: 41 4E 47 45 20 43 41 54  41 47 4F 52 59 00 B3 1C  |ANGE CATAGORY...|
000014B0: C6 07 3A 00 E2 1C D0 07  99 22 93 22 2C 22 11 11  |..:......".","..|
000014C0: 52 45 43 4C 41 53 53 49  46 59 22 3A 8D 32 30 31  |RECLASSIFY":.201|
000014D0: 30 3A 8B 41 24 B2 22 51  22 B0 42 24 B2 22 51 22  |0:.A$."Q".B$."Q"|
000014E0: A7 8E 00 EC 1C D5 07 89  32 31 30 30 00 10 1D DA  |........2100....|
000014F0: 07 81 54 B2 30 A4 37 3A  99 CA 28 48 24 2C 54 AA  |..T.0.7:..(H$,T.|
00001500: 31 2C 31 29 3B 22 20 22  3B 46 24 28 54 2C 30 29  |1,1);" ";F$(T,0)|
00001510: 00 39 1D E4 07 99 22 91  22 20 A3 32 30 29 CA 28  |.9...."." .20).(|
00001520: 48 24 2C 54 AA 39 2C 31  29 3B 22 20 22 3B 46 24  |H$,T.9,1);" ";F$|
00001530: 28 54 AA 38 2C 30 29 3A  82 00 55 1D EE 07 99 2C  |(T.8,0):..U....,|
00001540: 22 11 57 48 41 54 20 43  41 54 41 47 4F 52 59 22  |".WHAT CATAGORY"|
00001550: 3A 8D 33 32 30 00 76 1D  F8 07 81 43 B2 30 A4 31  |:.320.v....C.0.1|
00001560: 35 3A 8B CA 28 48 24 2C  43 AA 31 2C 31 29 B2 41  |5:..(H$,C.1,1).A|
00001570: 24 A7 32 30 35 35 00 82  1D 02 08 82 3A 89 32 30  |$.2055......:.20|
00001580: 33 30 00 C1 1D 07 08 99  22 11 20 50 52 49 4E 54  |30......". PRINT|
00001590: 20 46 49 4C 45 20 4C 49  53 54 20 12 59 92 20 4F  | FILE LIST .Y. O|
000015A0: 52 20 12 4E 92 22 3A 8D  33 32 30 3A 8B 41 24 B3  |R .N.":.320:.A$.|
000015B0: B1 22 59 22 AF 41 24 B3  B1 22 4E 22 A7 32 30 35  |."Y".A$.."N".205|
000015C0: 35 00 E5 1D 0C 08 54 B2  43 3A 8B 41 24 B2 22 59  |5.....T.C:.A$."Y|
000015D0: 22 A7 3A 44 45 B2 33 3A  9F 33 2C 44 45 3A 8D 39  |".:DE.3:.3,DE:.9|
000015E0: 32 30 3A A0 33 00 15 1E  16 08 85 22 46 49 4C 45  |20:.3......"FILE|
000015F0: 20 4E 41 4D 45 20 4F 52  12 51 92 22 3B 42 24 3A  | NAME OR.Q.";B$:|
00001600: 42 24 B2 C8 28 42 24 2C  31 36 29 3A 8B 42 24 B2  |B$..(B$,16):.B$.|
00001610: 22 51 22 A7 8E 00 3A 1E  20 08 81 50 B2 31 A4 46  |"Q"...:. ..P.1.F|
00001620: 28 43 29 3A 8B C8 28 46  24 28 43 2C 50 29 2C C3  |(C):..(F$(C,P),.|
00001630: 28 42 24 29 29 B2 42 24  A7 8E 00 5C 1E 2A 08 82  |(B$)).B$...\.*..|
00001640: 3A 99 22 93 11 11 55 4E  41 42 4C 45 20 54 4F 20  |:."...UNABLE TO |
00001650: 4D 41 54 43 48 22 3A 89  32 30 36 30 00 7F 1E 34  |MATCH":.2060...4|
00001660: 08 99 46 24 28 43 2C 50  29 3A 99 22 45 4E 54 45  |..F$(C,P):."ENTE|
00001670: 52 20 4E 45 57 20 43 41  54 41 47 4F 52 59 22 00  |R NEW CATAGORY".|
00001680: A5 1E 39 08 99 22 58 20  54 4F 20 44 45 4C 45 54  |..9.."X TO DELET|
00001690: 45 20 20 4F 52 20 51 20  54 4F 20 51 55 49 54 22  |E  OR Q TO QUIT"|
000016A0: 3A 8D 33 32 30 00 B3 1E  3E 08 8B 41 24 B2 22 51  |:.320...>..A$."Q|
000016B0: 22 A7 8E 00 C4 1E 43 08  8B 41 24 B2 22 58 22 A7  |".....C..A$."X".|
000016C0: 32 31 35 30 00 E7 1E 48  08 81 54 43 B2 30 A4 31  |2150...H..TC.0.1|
000016D0: 35 3A 8B CA 28 48 24 2C  54 43 AA 31 2C 31 29 B2  |5:..(H$,TC.1,1).|
000016E0: 41 24 A7 32 31 34 30 00  F3 1E 52 08 82 3A 89 32  |A$.2140...R..:.2|
000016F0: 31 30 30 00 1A 1F 5C 08  44 55 B2 30 3A 42 24 B2  |100...\.DU.0:B$.|
00001700: 46 24 28 43 2C 50 29 3A  8D 32 33 32 30 3A 8F 20  |F$(C,P):.2320:. |
00001710: 49 4E 53 45 52 54 20 4E  45 57 00 48 1F 66 08 81  |INSERT NEW.H.f..|
00001720: 54 B2 50 A4 46 28 43 29  3A 46 24 28 43 2C 54 29  |T.P.F(C):F$(C,T)|
00001730: B2 46 24 28 43 2C 54 AA  31 29 3A 82 3A 46 28 43  |.F$(C,T.1):.:F(C|
00001740: 29 B2 46 28 43 29 AB 31  00 52 1F 70 08 89 32 30  |).F(C).1.R.p..20|
00001750: 30 30 00 58 1F 7A 08 3A  00 77 1F 84 08 8F 2A 2A  |00.X.z.:.w....**|
00001760: 2A 20 44 49 53 4B 20 4E  41 4D 45 20 41 4E 44 20  |* DISK NAME AND |
00001770: 49 44 20 53 4F 52 54 00  7D 1F 8E 08 3A 00 98 1F  |ID SORT.}...:...|
00001780: 98 08 8B 44 B2 30 A7 44  B2 31 3A 44 24 28 31 29  |...D.0.D.1:D$(1)|
00001790: B2 50 24 28 31 29 3A 8E  00 C2 1F A2 08 81 54 B2  |.P$(1):.......T.|
000017A0: 31 A4 44 3A 8B C9 28 44  24 28 54 29 2C 32 29 B2  |1.D:..(D$(T),2).|
000017B0: 49 24 A7 8D 32 32 37 30  3A 8B 41 24 B2 22 44 22  |I$..2270:.A$."D"|
000017C0: A7 8E 00 DA 1F AC 08 8B  49 24 B3 C9 28 44 24 28  |........I$..(D$(|
000017D0: 54 29 2C 32 29 A7 32 32  34 30 00 F2 1F B6 08 82  |T),2).2240......|
000017E0: 3A 44 24 28 54 29 B2 50  24 28 31 29 3A 89 32 32  |:D$(T).P$(1):.22|
000017F0: 36 30 00 10 20 C0 08 81  41 B2 44 A4 54 A9 AB 31  |60.. ...A.D.T..1|
00001800: 3A 44 24 28 41 AA 31 29  B2 44 24 28 41 29 3A 82  |:D$(A.1).D$(A):.|
00001810: 00 20 20 CA 08 44 24 28  54 29 B2 50 24 28 31 29  |.  ..D$(T).P$(1)|
00001820: 00 2C 20 D4 08 44 B2 44  AA 31 3A 8E 00 6B 20 DE  |., ..D.D.1:..k .|
00001830: 08 99 22 44 55 50 4C 49  43 41 54 45 20 49 44 22  |.."DUPLICATE ID"|
00001840: 3A 99 44 24 28 54 29 22  2D 22 3B 50 24 28 31 29  |:.D$(T)"-";P$(1)|
00001850: 3A 99 22 12 44 92 45 4C  45 54 45 20 44 49 53 4B  |:.".D.ELETE DISK|
00001860: 20 12 43 92 4F 4E 54 55  4E 45 22 00 7B 20 E8 08  | .C.ONTUNE".{ ..|
00001870: 8D 33 32 30 3A 99 22 93  22 3A 8E 00 81 20 F2 08  |.320:.".":... ..|
00001880: 3A 00 9C 20 FC 08 8F 2A  2A 2A 20 46 49 4C 45 20  |:.. ...*** FILE |
00001890: 49 4E 20 43 41 54 41 47  4F 52 49 45 00 A2 20 06  |IN CATAGORIE.. .|
000018A0: 09 3A 00 C5 20 10 09 8B  46 28 54 43 29 B2 30 A7  |.:.. ...F(TC).0.|
000018B0: 46 28 54 43 29 B2 31 3A  46 24 28 54 43 2C 31 29  |F(TC).1:F$(TC,1)|
000018C0: B2 42 24 3A 8E 00 F6 20  1A 09 81 54 B2 31 A4 46  |.B$:... ...T.1.F|
000018D0: 28 54 43 29 3A 8B C8 28  46 24 28 54 43 2C 54 29  |(TC):..(F$(TC,T)|
000018E0: 2C 31 36 29 B2 C8 28 42  24 2C 31 36 29 AF 44 55  |,16)..(B$,16).DU|
000018F0: 20 A7 32 33 39 30 00 0C  21 24 09 8B 42 24 B3 46  | .2390..!$..B$.F|
00001900: 24 28 54 43 2C 54 29 A7  32 33 36 30 00 24 21 2E  |$(TC,T).2360.$!.|
00001910: 09 82 3A 46 24 28 54 43  2C 54 29 B2 42 24 3A 89  |..:F$(TC,T).B$:.|
00001920: 32 33 38 30 00 50 21 38  09 81 41 B2 46 28 54 43  |2380.P!8..A.F(TC|
00001930: 29 A4 28 54 29 A9 AB 31  3A 46 24 28 54 43 2C 28  |).(T)..1:F$(TC,(|
00001940: 41 AA 31 29 29 B2 46 24  28 54 43 2C 41 29 3A 82  |A.1)).F$(TC,A):.|
00001950: 00 60 21 42 09 46 24 28  54 43 2C 54 29 B2 42 24  |.`!B.F$(TC,T).B$|
00001960: 00 74 21 4C 09 46 28 54  43 29 B2 46 28 54 43 29  |.t!L.F(TC).F(TC)|
00001970: AA 31 3A 8E 00 BC 21 56  09 99 22 44 55 50 4C 41  |.1:...!V.."DUPLA|
00001980: 43 41 54 45 20 50 52 4F  47 52 41 4D 22 3A 99 22  |CATE PROGRAM":."|
00001990: 12 44 92 45 4C 45 54 45  20 20 12 41 92 44 44 20  |.D.ELETE  .A.DD |
000019A0: 54 4F 20 4C 49 53 54 49  4E 47 20 12 53 92 45 50  |TO LISTING .S.EP|
000019B0: 52 41 54 45 20 4C 49 53  54 49 4E 47 00 D0 21 60  |RATE LISTING..!`|
000019C0: 09 8D 33 32 30 3A 8B 41  24 B2 22 44 22 A7 82 54  |..320:.A$."D"..T|
000019D0: 00 E8 21 6A 09 8B 41 24  B2 22 53 22 A7 54 B2 54  |..!j..A$."S".T.T|
000019E0: AA 31 3A 89 32 33 35 30  00 FA 21 74 09 8B 41 24  |.1:.2350..!t..A$|
000019F0: B3 B1 22 41 22 A7 32 33  39 30 00 24 22 7E 09 81  |.."A".2390.$"~..|
00001A00: 43 B2 32 30 A4 32 34 A9  32 3A 8B CA 28 46 24 28  |C.20.24.2:..(F$(|
00001A10: 54 43 2C 54 29 2C 43 2C  32 29 B2 22 5C 5C 22 A7  |TC,T),C,2)."\\".|
00001A20: 32 34 35 30 00 40 22 88  09 82 3A 99 22 4E 4F 20  |2450.@"...:."NO |
00001A30: 52 4F 4F 4D 22 3A 8D 33  32 30 3A 89 32 34 36 30  |ROOM":.320:.2460|
00001A40: 00 7C 22 92 09 46 24 28  54 43 2C 54 29 B2 C8 28  |.|"..F$(TC,T)..(|
00001A50: 46 24 28 54 43 2C 54 29  2C 43 AB 31 29 AA 49 24  |F$(TC,T),C.1).I$|
00001A60: AA C9 28 46 24 28 54 43  2C 54 29 2C C3 28 46 24  |..(F$(TC,T),.(F$|
00001A70: 28 54 43 2C 54 29 29 AB  43 AB 31 29 00 82 22 9C  |(TC,T)).C.1)..".|
00001A80: 09 8E 00 93 22 BF 09 8F  20 45 44 49 54 20 45 4E  |...."... EDIT EN|
00001A90: 54 52 59 00 AD 22 C4 09  99 22 93 22 3A 8D 32 30  |TRY.."...".":.20|
00001AA0: 31 30 3A 8B 42 24 B2 22  51 22 A7 20 8E 00 E2 22  |10:.B$."Q". ..."|
00001AB0: C9 09 99 22 12 43 92 4F  4D 4D 45 4E 54 53 20 4F  |...".C.OMMENTS O|
00001AC0: 52 20 12 57 92 48 4F 4C  45 20 45 4E 54 52 59 22  |R .W.HOLE ENTRY"|
00001AD0: 3A 8D 33 32 30 3A 8B 41  24 B2 22 57 22 A7 32 36  |:.320:.A$."W".26|
00001AE0: 30 30 00 F4 22 CA 09 8B  41 24 B3 B1 22 43 22 A7  |00.."...A$.."C".|
00001AF0: 32 35 30 35 00 0D 23 CE  09 99 22 93 20 20 22 3B  |2505..#...".  ";|
00001B00: C8 28 46 24 28 54 2C 50  29 2C 32 35 29 00 30 23  |.(F$(T,P),25).0#|
00001B10: D3 09 99 22 20 20 22 3B  C9 28 46 24 28 54 2C 50  |..."  ";.(F$(T,P|
00001B20: 29 2C C3 28 46 24 28 54  2C 50 29 29 AB 32 35 29  |),.(F$(T,P)).25)|
00001B30: 00 3D 23 D8 09 85 22 13  11 22 3B 43 24 00 60 23  |.=#..."..";C$.`#|
00001B40: E2 09 46 24 28 54 2C 50  29 B2 C8 28 46 24 28 54  |..F$(T,P)..(F$(T|
00001B50: 2C 50 29 2C 32 35 29 AA  C8 28 43 24 2C 35 31 29  |,P),25)..(C$,51)|
00001B60: 00 6A 23 F6 09 89 32 35  30 30 00 90 23 28 0A 99  |.j#...2500..#(..|
00001B70: 22 93 20 20 22 3B 46 24  28 54 2C 50 29 3A 85 22  |".  ";F$(T,P):."|
00001B80: 13 22 3B 46 24 28 54 2C  50 29 3A 89 32 35 30 30  |.";F$(T,P):.2500|
00001B90: 00 B9 23 D7 10 8F 22 14  14 14 14 14 14 14 14 14  |..#...".........|
00001BA0: 20 20 20 20 20 20 20 20  20 53 4F 46 54 57 41 52  |         SOFTWAR|
00001BB0: 45 20 42 59 20 42 55 4C  4C 00 00 00              |E BY BULL...    |

..(...."......          SOFTWARE BY BULL
.G....*************************.^....   
17.2 DIRECTORY...... F$(X,Y)=NAME+TYPE+D
ISKS+COMMENTS...... D$(X)=DISC NAME MAX6
0...(...B.2.. P$(X) TEMP FILE NAME.Z.<..
 C$ TEMP FILE TYPE...F.....P.. A$,B$,C$=
TEMP INPUT:NA$=FILE NAME.(.Z.. M$=MENU S
ORT:D$=DISK NAME.9.D.. I$=DISK ID.Y.N.. 
T,TA,TB,TC=TEMP:DE=DEVICE.Y.X.. F(X)=# O
F ENTRIES IN FILE...... P=# OF FILES IN 
NEW DIRECTORY...... D=# DISKS.K....     
      ERROR ROUTINE... .. EN=#:EM$=MSG:E
T=TRACK:ES=SECTOR...... DU=DUPLICATE FLA
G.1...."........         SOFTWARE BY BUL
L.P....*************************.G....15
,8,15,"UI+": 15...H..P$(128),D$(60),F$(1
5,100),F(16)...R.H$."0123456789ABCDEF".F
....".".170)"DISK FILE SYSTEM"......,"..
L.OAD",".S.AVE......,"..P.RINT FILES....
..,"..I.NPUT NEW DISK.#....,"..D.ISC UPD
ATE.B....,"..R.ECLASSIFY OR DELETE.B....
,"..C.ATAGORY TITLE UPDATE.{....,"..E.DI
T COMMENTS.......320:M$."LSPICDRE"..."..
T.1.8:.J(M$,T,1).A$.310.H.,..:."TRY AGAI
N";:.280...6.. T .400,530,660,1130,1720,
1410,2000,2500 :.220...@..,".PRESS KEY":
.198,0:QF.1...J..A$:.A$."".330.K.T..QF. 
.,".         ":QF.0.Q.Y...W.H.:.H.R..  D
ISC LOAD.N.|.:......".....","LOAD..."...
..."FILE NAME OR .Q.";NA$:.NA$."Q". ....
...15,8,15: .2,8,2,"0:".NA$.",S,R":.1640
:.EN..0.410......T.0.15:.2,F(T):.......2
,D:.T.1.D:.2,D$(T):..?.B..T.0.15:.P.0.F(
T):.2,F$(T,P):.:."."T:..I.L..1640.V.V. 2
: 15:..\...:.M....  DISC SAVE.S...:.....
.".....","SAVE...":."FILE NAME OR .Q.";N
A$:.NA$."Q"........15,8,15: .2,8,2,"0:".
NA$.",S,W":.1640:.EN..0.530...&..T.0.15:
.2,F(T):....0..2,D:.T.1.D:.D$(T)."".D$(T
)."-".,.:..2,D$(T):..Z.D..T.0.15:.P.0.F(
T):.F$(T,P)."".F$(T,P)."-".Y.N..2,F$(T,P
):.:."."T:.:.1640...X. 2: 15:....L.:...V
..  PRINT FILE.....:.E....".","..READ AN
D PRINT FILES......".  PRINT TO .S.CREEN
 OR .P.RINTER?":.320:DE.3:.A$."P".DE.4..
....3,DE:TA.0.9....".  SORT BY .C.ATAGOR
Y .D.ISK".^....".  PRINT....T.ITLE OF CA
TAGORY......".  PRINT....L.IST DISKS ON 
FILE":.,"..Q.UIT FOR MAIN MENU...F.M$."C
DLTQ":.320.O.P..T.1.5:.J(M$,T,1).A$.740.
Z.Z..:.710......T.800,1020,760,970:.T.5.
 3:.......".":.690.E....".":.T.1.D:.3,T;
D$(T):TA.TA.1:.DE.4.."."T:.ST..0..792.C.
...DE.3.B(214).23..320:."."......DE.4.TA
.60..TB.1.66.TA:.3," ":.:TA.0......:.320
:..L...."...CLEAR PRINTER":.320:.".":T.T
.1:TA.TA.1:.... ..".":.T.0.7:.J(H$,T.1,1
);" ";F$(T,0):...*.."." .20)J(H$,T.9,1);
" ";F$(T.8,0):..C.4.."@ FOR ALL         
  Q TO QUIT.V.>..320:.A$."Q"...K.H..".":
.A$."@".880...R..T.0.15:.J(H$,T.1,1).A$.
870...\..:.800.U.F..DE.4.."FEED NEW PAGE
 ?":.320:.A$.."Y".A$.."N".."...":.870...
G..DE.4.A$."Y"..T.1.66.TA:.3," ":.:TA.0.
..K..920:.800.*.P..T.0.15:.920:.:.320:.8
00.0.Z.:.E.... PRINT CATAGORY.K...:.T...
.3,G(18);F$(T,0):TA.TA.1:.ST..0..962....
..P.1.F(T):.3,F$(T,P):TA.TA.1:.ST..0..96
2......DE.3.B(214).23..320:."."......DE.
4.TA.60..TB.1.66.TA:.3," ":.:TA.0.......
......'.B.."...CLEAR PRINTER":.320:.".":
P.P.1:TA.TA.1:..Y.J..T.0.15:.3,J(H$,T.1,
1);" "F$(T,0):.ST..0..792.J.N..:.DE.3..3
20.P.O...V...:......  DISC SORT AND PRIN
T.....:......".":.T.1.D:.T;D$(T).J.... B
(214).23..320:."."......:."DISK NUMBER";
A:I$.J(D$(A),20,2)......T.0.15:.3,"."F$(
T,0):TA.TA.1:.P.1.F(T).Y.$..C.20.24.2:.J
(F$(T,P),C,2).I$..3,F$(T,P):TA.TA.1:.107
0._.)...}....DE.3.B(214).23..320:."."...
8..DE.4.TA.60..TB.1.66.TA:.3," ":.:TA.0.
..B..P:.T:.320:..S.V..  INPUT NEW DIRECT
ORY...J..1200:.A$."Q". ....T..1820:.:.**
NEW DISK.....:.!....  DISC DIRECRORY REA
D.'...:.`....".".163)"PLACE DISK TO BE R
EAD IN DRIVE OR .Q":.320.O....A$."Q". ..
..D..1,8,0,"$0":.D$...N..#1,A$(1),B$(1):
F.1:P.1...X..#1,A$(2),B$(2).G....#1,A$(3
),B$(3).X...C.0:P$(P).""......#1,B$:. ST
..0 . 1370...... B$..G(34) . 1270.5....#
1,B$:. B$..G(34).P$(P).P$(P).B$:.1290.R.
...#1,B$:. B$.G(32) . 1300.\...C$.""...(
.C$.C$.B$:.#1,B$:. B$..""  . 1320...2.P$
(P).P$(P).H("                ",16.C(P$(P
))).M.<..P.1.I$.H(C$,2):.".";...F.P$(P).
P$(P).H(C$,3).I$:.P$(P):P.P.1...P.. ST.0
 . 1240...Z. 1: 15:P.P.1: ..!.D.:.=.N.. 
UPDATE EXHISTING DISC.C.X.:.X....1200:.A
$."Q". ......T.0.15:."....",F$(T,0):.TA
.1.F(T)......C.20.24.2:.J(F$(T,TA),C,2).
I$.1450... ..C:.TA:.T:.1470......TB.2.P:
.H(P$(TB),16).H(F$(T,TA),16).P$(TB)."\":
.1440......:.1570:.1440.....TC.P:.TB.2.T
C...H..P$(TB)."\".1500.:.R..:.1510.C....
T.TB.TC:P$(T).P$(T.1):.:P.P.1:.1480.....
.".","..NEW ENTRIES":.320:.1830......T.0
.15:.".....    CHECKING"T:.TA.1.F(T).Y..
..J(F$(T,TA),20,6)."\\\\\\"..1550......T
A:.T:.......TC.TA.F(T):F$(T,TC).F$(T,TC.
1):......F(T).F(T).1:..<."..C(F$(T,TA)).
(C.2).0.1590.D.,.F$(T,TA).H(F$(T,TA),C.1
)."\\":.1600...6.F$(T,TA).H(F$(T,TA),C.1
)."\\".J(F$(T,TA),C.2,C(F$(T,TA)).(C.2))
...@.....J.:.K.T..  FILE ERROR READ.Q.^.
:...H..15,EN,EM$,ET,ES:.EN.0.  ....R.."E
RROR ON DISK".%.|..EN;EM$;ET;ES: 2: 15:.
320:..+...:.B....  CATAGORY UPDATE.H...:
.E....".   PROGRAM CATAGORIES...B..".":.
T.0.7:.J(H$,T.1,1);" ";F$(T,0):...L.."."
 .20)J(H$,T.9,1);" ";F$(T.8,0):....V..T.
0.15:.J(H$,T.1,1);"  ";F$(T,0):."..";F$(
T,0):............:......  MERGE NEW DISK
.....:.1...A$."":.2200:.A$."D". ..J.&..T
B.2.P:.".":.TB.P...S.0..".":.T.0.7:.J(H$
,T.1,1);" ";F$(T,0)...:.."." .20)J(H$,T.
9,1);" ";F$(T.8,0):....D.." ENTER X TO O
MIT":DU.1.C.N..".."...X..P$(TB):A$."":."
.CATAGORIE #   ...";:.330:.A$...B..A$."X
".1960.).L..TC.0.15:.J(H$,TC.1,1).A$.192
0.5.V..:.1840.B...."COMMENTS   *...";C$:
C$."\\\\".H(C$,51).}...B$.P$(TB).C$:P$(T
B).""......2320......TB:......:...... CH
ANGE CATAGORY...F.:...P..".","..RECLASSI
FY":.2010:.A$."Q".B$."Q".....U..2100...Z
..T.0.7:.J(H$,T.1,1);" ";F$(T,0).9....".
" .20)J(H$,T.9,1);" ";F$(T.8,0):..U....,
".WHAT CATAGORY":.320.V....C.0.15:.J(H$,
C.1,1).A$.2055......:.2030.A....". PRINT
 FILE LIST .Y. OR .N.":.320:.A$.."Y".A$.
."N".2055.....T.C:.A$."Y".:DE.3:.3,DE:.9
20: 3......"FILE NAME OR.Q.";B$:B$.H(B$,
16):.B$."Q"...:. ..P.1.F(C):.H(F$(C,P),C
(B$)).B$...\.*..:."...UNABLE TO MATCH":.
2060..4..F$(C,P):."ENTER NEW CATAGORY".
..9.."X TO DELETE  OR Q TO QUIT":.320...
>..A$."Q"...D.C..A$."X".2150...H..TC.0.1
5:.J(H$,TC.1,1).A$.2140...R..:.2100...\.
DU.0:B$.F$(C,P):.2320:. INSERT NEW.H.F..
T.P.F(C):F$(C,T).F$(C,T.1):.:F(C).F(C).1
.R.P..2000.X.Z.:.W....*** DISK NAME AND 
ID SORT.}...:......D.0.D.1:D$(1).P$(1):.
.B....T.1.D:.I(D$(T),2).I$..2270:.A$."D"
...Z....I$.I(D$(T),2).2240......:D$(T).P
$(1):.2260.. ...A.D.T..1:D$(A.1).D$(A):.
.  J.D$(T).P$(1)., T.D.D.1:..K ..."DUPLI
CATE ID":.D$(T)"-";P$(1):.".D.ELETE DISK
 .C.ONTUNE".{ ...320:.".":... ..:.. ...*
** FILE IN CATAGORIE.. ..:.E ...F(TC).0.
F(TC).1:F$(TC,1).B$:... ...T.1.F(TC):.H(
F$(TC,T),16).H(B$,16).DU .2390..!$..B$.F
$(TC,T).2360.$!...:F$(TC,T).B$:.2380.P!8
..A.F(TC).(T)..1:F$(TC,(A.1)).F$(TC,A):.
.`!B.F$(TC,T).B$.T!L.F(TC).F(TC).1:...!V
.."DUPLACATE PROGRAM":.".D.ELETE  .A.DD 
TO LISTING .S.EPRATE LISTING.P!`..320:.A
$."D"..T..!J..A$."S".T.T.1:.2350..!T..A$
.."A".2390.$"~..C.20.24.2:.J(F$(TC,T),C,
2)."\\".2450.@"...:."NO ROOM":.320:.2460
.|"..F$(TC,T).H(F$(TC,T),C.1).I$.I(F$(TC
,T),C(F$(TC,T)).C.1).."....."... EDIT EN
TRY.."D..".":.2010:.B$."Q". ..."I..".C.O
MMENTS OR .W.HOLE ENTRY":.320:.A$."W".26
00.."J..A$.."C".2505..#N..".  ";H(F$(T,P
),25).0#S.."  ";I(F$(T,P),C(F$(T,P)).25)
.=#X.."..";C$.`#..F$(T,P).H(F$(T,P),25).
H(C$,51).J#...2500..#(..".  ";F$(T,P):."
.";F$(T,P):.2500..#W..".........        
 SOFTWARE BY BULL...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL