NEW DISK LISTER
FILE INFORMATION
FILENAME(S): NEW DISK LISTER
FILE TYPE(S): PRG
FILE SIZE: 6.9K
FIRST SEEN: 2025-10-19 22:48:31
APPEARS ON: 1 disk(s)
FILE HASH
fd8e18400c319b841eaeb4d0a91c2342d3fd05f9d0a56025faef05babb449725
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES U38 | NEW DISK LISTER | PRG | Radd Maxx | 24 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 00 00 99 22 93 22 3A 97 35 33 32 38 |.......".":.5328|
00000010: 31 2C 31 3A 97 35 33 32 38 30 2C 30 00 4E 08 01 |1,1:.53280,0.N..|
00000020: 00 99 A6 36 29 22 11 11 11 11 44 49 52 45 43 54 |...6)"....DIRECT|
00000030: 4F 52 59 20 53 4F 52 54 45 52 20 41 4E 44 20 50 |ORY SORTER AND P|
00000040: 52 49 4E 54 45 52 22 3A 8F 20 41 44 56 CC 00 84 |RINTER":. ADV...|
00000050: 08 02 00 99 A6 31 33 29 22 11 11 11 11 50 52 45 |.....13)"....PRE|
00000060: 53 45 4E 54 45 44 20 42 59 3A 22 3A 99 A6 31 31 |SENTED BY:":..11|
00000070: 29 22 11 11 42 45 54 54 45 52 20 53 4F 46 54 57 |)"..BETTER SOFTW|
00000080: 41 52 45 22 00 AE 08 03 00 99 A6 31 30 29 22 11 |ARE".......10)".|
00000090: 11 11 11 11 11 11 11 11 11 48 49 54 20 41 4E 59 |.........HIT ANY|
000000A0: 20 4B 45 59 20 54 4F 20 47 4F 20 4F 4E 22 00 BF | KEY TO GO ON"..|
000000B0: 08 04 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 34 00 |....A$:.A$."".4.|
000000C0: E1 08 05 00 45 4E B2 31 30 30 30 3A 86 44 24 28 |....EN.1000:.D$(|
000000D0: 45 4E 29 2C 4C 25 28 45 4E 29 2C 52 25 28 45 4E |EN),L%(EN),R%(EN|
000000E0: 29 00 ED 08 06 00 86 53 25 28 35 30 29 00 F7 08 |)......S%(50)...|
000000F0: 07 00 50 25 B2 AB 31 00 28 09 08 00 4C 31 B2 34 |..P%..1.(...L1.4|
00000100: 38 3A 4C 32 B2 34 38 3A 41 31 B2 34 39 3A 41 32 |8:L2.48:A1.49:A2|
00000110: B2 35 36 3A 42 31 B2 35 30 3A 42 32 B2 35 31 3A |.56:B1.50:B2.51:|
00000120: 43 52 24 B2 C7 28 30 29 00 41 09 09 00 54 24 B2 |CR$..(0).A...T$.|
00000130: C7 28 31 36 29 3A 8F 20 53 45 54 20 54 41 42 53 |.(16):. SET TABS|
00000140: CC 00 57 09 0A 00 97 35 33 32 38 31 2C 31 3A 97 |..W....53281,1:.|
00000150: 35 33 32 38 30 2C 30 00 83 09 0F 00 99 22 93 1F |53280,0......"..|
00000160: 11 11 11 22 A3 36 29 22 12 0E 20 20 20 20 20 20 |...".6)".. |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 20 22 00 A6 09 10 00 99 A3 36 29 22 12 20 C4 | ".......6)". .|
00000190: C9 D3 CB A0 C4 C9 D2 C5 C3 D4 CF D2 D9 A0 CD C1 |................|
000001A0: CE C1 C7 C5 D2 A0 00 CA 09 11 00 99 A3 36 29 22 |.............6)"|
000001B0: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000001C0: 20 20 20 20 20 20 20 20 20 22 00 E3 09 14 00 99 | "......|
000001D0: 22 11 11 20 12 1F 20 CD 41 49 4E 20 CD 45 4E 55 |".. .. .AIN .ENU|
000001E0: 3A 20 22 00 08 0A 19 00 99 22 11 11 20 90 31 2E |: "......".. .1.|
000001F0: 20 1E D2 45 41 44 20 C4 49 53 4B 20 C4 49 52 45 | ..EAD .ISK .IRE|
00000200: 43 54 4F 52 49 45 53 22 00 36 0A 1E 00 99 22 20 |CTORIES".6...." |
00000210: 90 32 2E 20 1C C4 49 53 50 4C 41 59 20 C4 49 53 |.2. ..ISPLAY .IS|
00000220: 4B 20 C4 49 52 45 43 54 4F 52 49 45 53 20 42 59 |K .IRECTORIES BY|
00000230: 20 C4 49 53 4B 22 00 66 0A 23 00 99 22 20 90 33 | .ISK".f.#.." .3|
00000240: 2E 20 96 C4 49 53 50 4C 41 59 20 C4 49 53 4B 20 |. ..ISPLAY .ISK |
00000250: CE 41 4D 45 53 20 41 4E 44 20 C6 52 45 45 20 C2 |.AMES AND .REE .|
00000260: 4C 4F 43 4B 53 22 00 6C 0A 24 00 99 00 98 0A 25 |LOCKS".l.$.....%|
00000270: 00 99 22 20 90 34 2E 20 9C D0 52 49 4E 54 20 C4 |.." .4. ..RINT .|
00000280: 49 53 4B 20 C4 49 52 45 43 54 4F 52 49 45 53 20 |ISK .IRECTORIES |
00000290: 42 59 20 C4 49 53 4B 22 00 C6 0A 26 00 99 22 20 |BY .ISK"...&.." |
000002A0: 90 35 2E 20 9A D0 52 49 4E 54 20 C4 49 53 4B 20 |.5. ..RINT .ISK |
000002B0: CE 41 4D 45 53 20 41 4E 44 20 C6 52 45 45 20 C2 |.AMES AND .REE .|
000002C0: 4C 4F 43 4B 53 22 00 F5 0A 28 00 99 22 20 90 36 |LOCKS"...(.." .6|
000002D0: 2E 20 98 CD 45 52 47 45 2C 20 D3 4F 52 54 2C 20 |. ..ERGE, .ORT, |
000002E0: 41 4E 44 20 D0 52 49 4E 54 20 C4 49 53 4B 20 C6 |AND .RINT .ISK .|
000002F0: 49 4C 45 53 22 00 FB 0A 2A 00 99 00 15 0B 2D 00 |ILES"...*.....-.|
00000300: 99 22 20 90 37 2E 20 1C D1 55 49 54 20 D0 52 4F |." .7. ..UIT .RO|
00000310: 47 52 41 4D 22 00 3D 0B 32 00 99 22 11 11 20 12 |GRAM".=.2..".. .|
00000320: 1F 20 20 20 20 C5 4E 54 45 52 20 4E 55 4D 42 45 |. .NTER NUMBE|
00000330: 52 20 4F 46 20 43 48 4F 49 43 45 20 22 00 5B 0B |R OF CHOICE ".[.|
00000340: 3C 00 8D 32 30 30 30 3A 58 B2 C5 28 49 24 29 3A |<..2000:X..(I$):|
00000350: 8B 58 B3 31 B0 58 B1 37 A7 36 30 00 84 0B 46 00 |.X.1.X.7.60...F.|
00000360: 91 20 58 20 8D 20 33 30 30 2C 35 30 30 2C 31 30 |. X . 300,500,10|
00000370: 30 30 2C 37 30 30 2C 31 30 35 30 2C 39 30 30 2C |00,700,1050,900,|
00000380: 31 31 30 30 00 8C 0B 50 00 89 31 35 00 AC 0B 64 |1100...P..15...d|
00000390: 00 8F 20 49 4E 4F 52 44 45 52 20 54 52 41 56 45 |.. INORDER TRAVE|
000003A0: 52 53 41 4C 20 4F 46 20 54 52 45 45 00 EB 0B 6E |RSAL OF TREE...n|
000003B0: 00 54 53 25 B2 AB 31 3A 52 4F 4F 54 25 B2 46 31 |.TS%..1:ROOT%.F1|
000003C0: 25 3A 8F 20 45 4D 50 54 59 20 53 54 41 43 4B 2C |%:. EMPTY STACK,|
000003D0: 52 4F 4F 54 3D 46 49 52 53 54 20 46 49 4C 45 4E |ROOT=FIRST FILEN|
000003E0: 41 4D 45 20 45 4E 54 45 52 45 44 00 0A 0C 73 00 |AME ENTERED...s.|
000003F0: 8F 20 54 52 41 56 45 52 53 45 20 54 52 45 45 20 |. TRAVERSE TREE |
00000400: 42 45 4C 4F 57 20 52 4F 4F 54 00 2E 0C 78 00 8B |BELOW ROOT...x..|
00000410: 4C 25 28 52 4F 4F 54 25 29 B2 30 A7 31 33 30 3A |L%(ROOT%).0.130:|
00000420: 8F 20 4E 4F 20 4D 4F 52 45 20 4C 45 46 54 00 7A |. NO MORE LEFT.z|
00000430: 0C 7D 00 54 53 25 B2 54 53 25 AA 31 3A 53 25 28 |.}.TS%.TS%.1:S%(|
00000440: 54 53 25 29 B2 52 4F 4F 54 25 3A 52 4F 4F 54 25 |TS%).ROOT%:ROOT%|
00000450: B2 4C 25 28 52 4F 4F 54 25 29 3A 89 31 31 35 3A |.L%(ROOT%):.115:|
00000460: 8F 20 50 55 53 48 28 52 4F 4F 54 29 2C 52 4F 4F |. PUSH(ROOT),ROO|
00000470: 54 3D 4C 46 54 20 43 48 4C 44 00 AF 0C 82 00 44 |T=LFT CHLD.....D|
00000480: 24 B2 44 24 28 52 4F 4F 54 25 29 3A 20 8D 35 30 |$.D$(ROOT%): .50|
00000490: 30 30 3A 8F 20 44 45 43 4F 44 45 20 46 49 4C 45 |00:. DECODE FILE|
000004A0: 4E 41 4D 45 20 41 4E 44 20 4F 55 54 50 55 54 00 |NAME AND OUTPUT.|
000004B0: DA 0C 83 00 8B 5A 31 24 B2 4F 4C 44 24 A7 31 35 |.....Z1$.OLD$.15|
000004C0: 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 44 55 |0:. CHECK FOR DU|
000004D0: 50 4C 49 43 41 54 49 4F 4E 53 00 12 0D 87 00 98 |PLICATIONS......|
000004E0: 34 2C 5A 31 24 54 24 C7 28 34 39 29 C7 28 35 36 |4,Z1$T$.(49).(56|
000004F0: 29 5A 32 24 54 24 C7 28 35 30 29 C7 28 35 37 29 |)Z2$T$.(50).(57)|
00000500: 5A 33 24 54 24 C7 28 35 32 29 C7 28 35 31 29 5A |Z3$T$.(52).(51)Z|
00000510: 34 24 00 1F 0D 8C 00 4F 4C 44 24 B2 5A 31 24 00 |4$.....OLD$.Z1$.|
00000520: 3E 0D 96 00 8F 20 43 48 45 43 4B 20 46 4F 52 20 |>.... CHECK FOR |
00000530: 52 49 47 48 54 20 43 48 49 4C 44 52 45 4E 00 63 |RIGHT CHILDREN.c|
00000540: 0D A0 00 8B 52 25 28 52 4F 4F 54 25 29 B2 30 A7 |....R%(ROOT%).0.|
00000550: 31 37 30 3A 8F 20 4E 4F 20 4D 4F 52 45 20 52 49 |170:. NO MORE RI|
00000560: 47 48 54 00 98 0D A5 00 52 4F 4F 54 25 B2 52 25 |GHT.....ROOT%.R%|
00000570: 28 52 4F 4F 54 25 29 3A 89 31 31 35 3A 8F 20 52 |(ROOT%):.115:. R|
00000580: 49 47 48 54 20 43 48 49 4C 44 20 42 45 43 4F 4D |IGHT CHILD BECOM|
00000590: 45 53 20 52 4F 4F 54 CC 00 B7 0D AA 00 8F 20 43 |ES ROOT....... C|
000005A0: 48 45 43 4B 20 49 46 20 53 54 41 43 4B 20 49 53 |HECK IF STACK IS|
000005B0: 20 45 4D 50 54 59 CC 00 FC 0D B4 00 8B 54 53 25 | EMPTY.......TS%|
000005C0: B1 B2 30 A7 52 4F 4F 54 25 B2 53 25 28 54 53 25 |..0.ROOT%.S%(TS%|
000005D0: 29 3A 54 53 25 B2 54 53 25 AB 31 3A 89 31 33 30 |):TS%.TS%.1:.130|
000005E0: 3A 8F 20 49 46 20 4E 4F 54 2C 20 43 4F 4E 54 20 |:. IF NOT, CONT |
000005F0: 57 2F 20 52 4F 4F 54 3D 50 4F 50 CC 00 02 0E BE |W/ ROOT=POP.....|
00000600: 00 8E 00 1D 0E C8 00 8F 20 49 4E 53 45 52 54 20 |........ INSERT |
00000610: 4E 41 4D 45 20 49 4E 20 54 52 45 45 CC 00 53 0E |NAME IN TREE..S.|
00000620: C9 00 8B 46 31 25 B2 30 A7 46 31 25 B2 44 25 3A |...F1%.0.F1%.D%:|
00000630: 4C 25 28 46 31 25 29 B2 30 3A 52 25 28 46 31 25 |L%(F1%).0:R%(F1%|
00000640: 29 B2 30 3A 8E 3A 8F 20 46 49 52 53 54 20 45 4E |).0:.:. FIRST EN|
00000650: 54 52 59 00 79 0E CD 00 52 4F 4F 54 25 B2 31 3A |TRY.y...ROOT%.1:|
00000660: 8F 20 53 45 54 20 52 4F 4F 54 20 54 4F 20 46 49 |. SET ROOT TO FI|
00000670: 52 53 54 20 45 4E 54 52 59 00 94 0E D2 00 8B 44 |RST ENTRY......D|
00000680: 24 28 50 25 29 B1 44 24 28 52 4F 4F 54 25 29 A7 |$(P%).D$(ROOT%).|
00000690: 20 32 35 30 00 B0 0E D7 00 8F 20 54 52 41 56 45 | 250...... TRAVE|
000006A0: 52 53 45 20 4C 45 46 54 20 42 52 41 4E 43 48 CC |RSE LEFT BRANCH.|
000006B0: 00 CE 0E DC 00 8F 20 49 46 20 4E 4F 20 4C 45 46 |...... IF NO LEF|
000006C0: 54 20 54 48 45 4E 20 49 4E 53 45 52 54 CC 00 F1 |T THEN INSERT...|
000006D0: 0E E1 00 8B 4C 25 28 52 4F 4F 54 25 29 B2 30 A7 |....L%(ROOT%).0.|
000006E0: 4C 25 28 52 4F 4F 54 25 29 B2 50 25 3A 89 32 38 |L%(ROOT%).P%:.28|
000006F0: 30 00 1F 0F E6 00 52 4F 4F 54 25 B2 4C 25 28 52 |0.....ROOT%.L%(R|
00000700: 4F 4F 54 25 29 3A 89 32 31 30 3A 8F 20 4C 45 46 |OOT%):.210:. LEF|
00000710: 54 5D 42 45 43 4F 4D 45 53 20 52 4F 4F 54 CC 00 |T]BECOMES ROOT..|
00000720: 3C 0F FA 00 8F 20 54 52 41 56 45 52 53 45 20 52 |<.... TRAVERSE R|
00000730: 49 47 48 54 20 42 52 41 4E 43 48 CC 00 5B 0F FF |IGHT BRANCH..[..|
00000740: 00 8F 20 49 46 20 4E 4F 20 52 49 47 48 54 20 54 |.. IF NO RIGHT T|
00000750: 48 45 4E 20 49 4E 53 45 52 54 CC 00 7E 0F 04 01 |HEN INSERT..~...|
00000760: 8B 52 25 28 52 4F 4F 54 25 29 B2 30 A7 52 25 28 |.R%(ROOT%).0.R%(|
00000770: 52 4F 4F 54 25 29 B2 50 25 3A 89 32 38 30 00 AE |ROOT%).P%:.280..|
00000780: 0F 0E 01 52 4F 4F 54 25 B2 52 25 28 52 4F 4F 54 |...ROOT%.R%(ROOT|
00000790: 25 29 3A 89 32 31 30 3A 8F 20 52 49 47 48 54 20 |%):.210:. RIGHT |
000007A0: 42 45 43 4F 4D 45 53 20 52 4F 4F 54 20 CC 00 CF |BECOMES ROOT ...|
000007B0: 0F 18 01 4C 25 28 50 25 29 B2 30 3A 52 25 28 50 |...L%(P%).0:R%(P|
000007C0: 25 29 B2 30 3A 8F 20 4E 45 57 20 4C 45 41 46 00 |%).0:. NEW LEAF.|
000007D0: D5 0F 22 01 8E 00 ED 0F 2C 01 8F 20 52 45 41 44 |..".....,.. READ|
000007E0: 20 44 49 52 45 43 54 4F 52 49 45 53 CC 00 26 10 | DIRECTORIES..&.|
000007F0: 2E 01 99 22 93 11 11 11 11 22 A3 36 29 22 1F 12 |...".....".6)"..|
00000800: 20 20 C9 4E 53 45 52 54 20 C4 49 53 4B 20 49 4E | .NSERT .ISK IN|
00000810: 20 C4 52 49 56 45 20 30 20 20 22 3A 8D 31 39 39 | .RIVE 0 ":.199|
00000820: 38 3A 99 22 93 22 00 6B 10 30 01 44 25 B2 50 25 |8:.".".k.0.D%.P%|
00000830: AA 31 3A 50 24 B2 C7 28 B5 28 44 25 AD 32 35 36 |.1:P$..(.(D%.256|
00000840: 29 29 3A 50 24 B2 C7 28 44 25 AB 32 35 36 AC C6 |)):P$..(D%.256..|
00000850: 28 50 24 29 29 AA 50 24 3A 8F 20 50 4F 49 4E 54 |(P$)).P$:. POINT|
00000860: 45 52 53 20 54 4F 20 44 49 53 4B 00 7E 10 31 01 |ERS TO DISK.~.1.|
00000870: 9F 31 35 2C 38 2C 31 35 3A 8D 34 30 30 30 00 AC |.15,8,15:.4000..|
00000880: 10 32 01 9F 31 2C 38 2C 30 2C 22 24 30 22 3A 8D |.2..1,8,0,"$0":.|
00000890: 34 30 30 30 3A 8B 5A 31 B3 B1 30 A7 99 22 93 22 |4000:.Z1..0.."."|
000008A0: 3A A0 31 3A A0 31 35 3A 89 34 39 30 00 CF 10 33 |:.1:.15:.490...3|
000008B0: 01 99 22 11 11 11 11 1D 1D 1D 1D 1D 1F D2 C5 C1 |..".............|
000008C0: C4 C9 CE C7 20 C4 C9 D2 C5 C3 D4 CF D2 D9 22 00 |.... .........".|
000008D0: F0 10 34 01 99 22 11 11 11 11 1D 1C C4 49 52 45 |..4..".......IRE|
000008E0: 43 54 4F 52 59 20 C5 4E 54 52 49 45 53 3A 90 22 |CTORY .NTRIES:."|
000008F0: 00 12 11 36 01 A1 23 31 2C 41 24 2C 41 24 3A 8F |...6..#1,A$,A$:.|
00000900: 20 53 4B 49 50 20 4C 4F 41 44 20 41 44 44 52 45 | SKIP LOAD ADDRE|
00000910: 53 53 00 38 11 40 01 A1 23 31 2C 41 24 2C 41 24 |SS.8.@..#1,A$,A$|
00000920: 3A 8F 20 53 4B 49 50 20 54 52 41 43 4B 20 41 4E |:. SKIP TRACK AN|
00000930: 44 20 53 45 43 54 4F 52 00 5A 11 4A 01 A1 23 31 |D SECTOR.Z.J..#1|
00000940: 2C 42 4C 24 2C 42 48 24 3A 8F 20 47 45 54 20 23 |,BL$,BH$:. GET #|
00000950: 20 4F 46 20 42 4C 4F 43 4B 53 00 73 11 4F 01 8B | OF BLOCKS.s.O..|
00000960: 42 4C 24 B2 22 22 A7 42 4C 24 B2 42 4C 24 AA C7 |BL$."".BL$.BL$..|
00000970: 28 30 29 00 8C 11 50 01 8B 42 48 24 B2 22 22 A7 |(0)...P..BH$."".|
00000980: 42 48 24 B2 42 48 24 AA C7 28 30 29 00 A5 11 68 |BH$.BH$..(0)...h|
00000990: 01 A1 23 31 2C 41 24 3A 8B 20 53 54 B3 B1 30 20 |..#1,A$:. ST..0 |
000009A0: A7 20 34 36 30 00 C8 11 72 01 8B 20 41 24 B3 B1 |. 460...r.. A$..|
000009B0: C7 28 33 34 29 20 A7 20 33 36 30 3A 8F 20 46 49 |.(34) . 360:. FI|
000009C0: 4E 44 20 51 55 4F 54 45 00 E7 11 76 01 99 A3 32 |ND QUOTE...v...2|
000009D0: 32 29 3B 22 91 20 20 20 20 20 9D 9D 9D 9D 9D 22 |2);". ....."|
000009E0: 50 25 AB 44 25 AA 31 00 FD 11 77 01 50 25 B2 50 |P%.D%.1...w.P%.P|
000009F0: 25 AA 31 3A 44 24 28 50 25 29 B2 22 22 00 3B 12 |%.1:D$(P%)."".;.|
00000A00: 7C 01 A1 23 31 2C 41 24 3A 8B 20 41 24 B3 B1 C7 ||..#1,A$:. A$...|
00000A10: 28 33 34 29 A7 44 24 28 50 25 29 B2 44 24 28 50 |(34).D$(P%).D$(P|
00000A20: 25 29 AA 41 24 3A 89 33 38 30 3A 8F 20 52 45 41 |%).A$:.380:. REA|
00000A30: 44 20 46 49 4C 45 20 4E 41 4D 45 00 73 12 86 01 |D FILE NAME.s...|
00000A40: A1 23 31 2C 41 24 3A 8B 20 41 24 B2 C7 28 33 32 |.#1,A$:. A$..(32|
00000A50: 29 20 A7 20 33 39 30 3A 8F 20 53 4B 49 50 20 53 |) . 390:. SKIP S|
00000A60: 50 41 43 45 53 20 54 49 4C 20 46 49 4C 45 20 54 |PACES TIL FILE T|
00000A70: 59 50 45 00 7D 12 90 01 43 24 B2 22 22 00 C1 12 |YPE.}...C$.""...|
00000A80: 9A 01 43 24 B2 43 24 AA 41 24 3A A1 23 31 2C 41 |..C$.C$.A$:.#1,A|
00000A90: 24 3A 8B 20 41 24 B3 B1 22 22 20 20 A7 20 34 31 |$:. A$.."" . 41|
00000AA0: 30 3A 87 20 46 49 4C 45 20 54 59 50 45 2E 20 45 |0:. FILE TYPE. E|
00000AB0: 4E 54 52 59 20 80 53 20 57 49 54 48 20 4E 55 4C |NTRY .S WITH NUL|
00000AC0: 4C 00 DA 12 9F 01 8B 44 25 B3 B1 50 25 AF 46 31 |L......D%..P%.F1|
00000AD0: 25 B2 30 A7 46 31 25 B2 50 25 00 11 13 A4 01 8B |%.0.F1%.P%......|
00000AE0: 44 25 B3 B1 50 25 A7 44 24 28 50 25 29 B2 44 24 |D%..P%.D$(P%).D$|
00000AF0: 28 50 25 29 AA 42 4C 24 AA 42 48 24 AA C8 28 43 |(P%).BL$.BH$..(C|
00000B00: 24 2C 33 29 AA 50 24 3A 8D 32 30 30 3A 89 34 35 |$,3).P$:.200:.45|
00000B10: 30 00 48 13 AE 01 44 24 28 44 25 29 B2 44 24 28 |0.H...D$(D%).D$(|
00000B20: 44 25 29 AA C8 28 43 24 2C 32 29 3A 99 22 91 91 |D%)..(C$,2):."..|
00000B30: 91 1E 20 C4 49 53 4B 20 C9 C4 3A 20 1F 22 44 24 |.. .ISK ..: ."D$|
00000B40: 28 44 25 29 22 11 11 22 00 59 13 C2 01 8B 20 53 |(D%)"..".Y.... S|
00000B50: 54 B2 30 20 A7 20 33 32 30 00 7F 13 CC 01 8F 20 |T.0 . 320...... |
00000B60: 41 50 50 45 4E 44 20 46 52 45 45 20 42 4C 4F 43 |APPEND FREE BLOC|
00000B70: 4B 53 20 54 4F 20 44 49 53 4B 20 4E 41 4D 45 00 |KS TO DISK NAME.|
00000B80: 99 13 D1 01 44 24 28 44 25 29 B2 44 24 28 44 25 |....D$(D%).D$(D%|
00000B90: 29 AA 42 4C 24 AA 42 48 24 00 A4 13 D6 01 A0 31 |).BL$.BH$......1|
00000BA0: 3A A0 31 35 00 CD 13 DA 01 58 25 B2 28 50 25 AA |:.15.....X%.(P%.|
00000BB0: 31 29 AD 32 35 36 3A 8F 20 41 44 44 20 50 54 52 |1).256:. ADD PTR|
00000BC0: 20 54 4F 20 4E 45 58 54 20 44 49 53 4B 00 F4 13 | TO NEXT DISK...|
00000BD0: DD 01 44 24 28 44 25 29 B2 44 24 28 44 25 29 AA |..D$(D%).D$(D%).|
00000BE0: C7 28 50 25 AA 31 AB 32 35 36 AC 58 25 29 AA C7 |.(P%.1.256.X%)..|
00000BF0: 28 58 25 29 00 29 14 E0 01 99 22 93 11 11 11 1E |(X%).)....".....|
00000C00: 20 12 20 20 20 20 20 D9 4F 55 20 CD 41 59 20 D2 | . .OU .AY .|
00000C10: 45 4D 4F 56 45 20 D9 4F 55 52 20 C4 49 53 4B 20 |EMOVE .OUR .ISK |
00000C20: CE 4F 57 2E 20 20 20 20 22 00 5E 14 EA 01 99 22 |.OW. ".^...."|
00000C30: 11 11 11 11 11 1F 22 A3 33 29 22 12 C9 4E 53 45 |......".3)"..NSE|
00000C40: 52 54 20 CE 45 58 54 20 C4 49 53 4B 20 41 4E 44 |RT .EXT .ISK AND|
00000C50: 20 D0 52 45 53 53 20 D2 45 54 55 52 4E 22 00 72 | .RESS .ETURN".r|
00000C60: 14 EB 01 99 A3 31 37 29 22 98 11 11 12 20 CF D2 |.....17)".... ..|
00000C70: 20 22 00 A3 14 EC 01 99 22 11 11 22 A3 33 29 22 | "......"..".3)"|
00000C80: 1C 12 D0 52 45 53 53 20 27 C4 27 20 54 4F 20 D2 |...RESS '.' TO .|
00000C90: 45 54 55 52 4E 20 54 4F 20 CD 41 49 4E 20 CD 45 |ETURN TO .AIN .E|
00000CA0: 4E 55 22 00 BE 14 ED 01 8D 32 30 30 30 3A 8B 49 |NU"......2000:.I|
00000CB0: 24 B2 22 44 22 B0 49 24 B2 22 C4 22 A7 8E 00 CC |$."D".I$."."....|
00000CC0: 14 F3 01 99 22 93 22 3A 89 33 30 34 00 E6 14 F4 |....".":.304....|
00000CD0: 01 8F 20 44 49 53 50 4C 41 59 20 44 49 52 45 43 |.. DISPLAY DIREC|
00000CE0: 54 4F 52 49 45 53 00 2A 15 F5 01 8B 44 24 28 30 |TORIES.*....D$(0|
00000CF0: 29 B2 22 22 A7 99 22 93 11 11 11 11 22 A3 34 29 |).""..".....".4)|
00000D00: 22 1C 12 20 20 20 20 CE 4F 20 C4 49 53 4B 20 C9 |".. .O .ISK .|
00000D10: C4 27 53 20 49 4E 20 CD 45 4D 4F 52 59 20 20 20 |.'S IN .EMORY |
00000D20: 20 22 3A 8D 31 39 39 39 3A 8E 00 4A 15 FE 01 99 | ":.1999:..J....|
00000D30: 22 93 22 3A 58 25 B2 30 3A 8F 20 46 49 52 53 54 |".":X%.0:. FIRST|
00000D40: 20 44 49 53 4B 20 4E 41 4D 45 00 72 15 03 02 49 | DISK NAME.r...I|
00000D50: B2 30 3A 44 24 B2 44 24 28 58 25 29 3A 8D 36 30 |.0:D$.D$(X%):.60|
00000D60: 30 30 3A 5A 35 24 B2 5A 31 24 3A 5A 36 24 B2 5A |00:Z5$.Z1$:Z6$.Z|
00000D70: 33 24 00 93 15 04 02 99 22 90 12 11 22 5A 35 24 |3$......"..."Z5$|
00000D80: 3B 22 20 C6 52 45 45 20 C2 4C 4F 43 4B 53 3A 22 |;" .REE .LOCKS:"|
00000D90: 5A 36 24 00 AB 15 08 02 81 4A B2 30 A4 33 38 3A |Z6$......J.0.38:|
00000DA0: 99 22 B9 22 3B 3A 82 3A 99 3A 99 00 BD 15 12 02 |.".";:.:.:......|
00000DB0: 8B 58 25 AA 31 B2 50 54 25 A7 35 38 30 00 DE 15 |.X%.1.PT%.580...|
00000DC0: 17 02 81 4A B2 58 25 AA 31 A4 50 54 25 AB 31 3A |...J.X%.1.PT%.1:|
00000DD0: 44 24 B2 44 24 28 4A 29 3A 8D 35 30 30 30 00 FB |D$.D$(J):.5000..|
00000DE0: 15 1C 02 99 5A 31 24 A3 32 30 29 5A 32 24 A3 33 |....Z1$.20)Z2$.3|
00000DF0: 30 29 5A 33 24 3A 49 B2 49 AA 31 00 09 16 26 02 |0)Z3$:I.I.1...&.|
00000E00: 8B 49 B3 31 35 A7 35 36 30 00 2B 16 2B 02 8D 31 |.I.15.560.+.+..1|
00000E10: 39 39 39 3A 49 B2 30 3A 99 22 93 1C 12 20 20 C3 |999:I.0:."... .|
00000E20: 4F 4E 54 49 4E 55 45 44 20 20 22 00 4C 16 2C 02 |ONTINUED ".L.,.|
00000E30: 99 22 90 12 11 22 5A 35 24 3B 22 20 C6 52 45 45 |."..."Z5$;" .REE|
00000E40: 20 C2 4C 4F 43 4B 53 3A 22 5A 36 24 00 64 16 2D | .LOCKS:"Z6$.d.-|
00000E50: 02 81 4B B2 30 A4 33 38 3A 99 22 B9 22 3B 3A 82 |..K.0.38:.".";:.|
00000E60: 3A 99 3A 99 00 6A 16 30 02 82 00 7F 16 44 02 8F |:.:..j.0.....D..|
00000E70: 20 4E 45 58 54 20 44 49 52 45 43 54 4F 52 59 00 | NEXT DIRECTORY.|
00000E80: A7 16 49 02 8D 31 39 39 39 3A 8B 44 24 28 50 54 |..I..1999:.D$(PT|
00000E90: 25 29 B3 B1 22 22 A7 58 25 B2 50 54 25 3A 99 22 |%).."".X%.PT%:."|
00000EA0: 93 22 3A 89 35 31 35 00 AD 16 4E 02 8E 00 C5 16 |.":.515...N.....|
00000EB0: BC 02 8F 20 50 52 49 4E 54 20 44 49 52 45 43 54 |... PRINT DIRECT|
00000EC0: 4F 52 49 45 53 00 09 17 BD 02 8B 44 24 28 30 29 |ORIES......D$(0)|
00000ED0: B2 22 22 A7 99 22 93 11 11 11 11 22 A3 34 29 22 |.""..".....".4)"|
00000EE0: 1C 12 20 20 20 20 CE 4F 20 C4 49 53 4B 20 C9 C4 |.. .O .ISK ..|
00000EF0: 27 53 20 49 4E 20 CD 45 4D 4F 52 59 20 20 20 20 |'S IN .EMORY |
00000F00: 22 3A 8D 31 39 39 39 3A 8E 00 2F 17 BE 02 99 22 |":.1999:../...."|
00000F10: 93 11 11 11 11 22 A3 31 30 29 22 1C 12 20 D4 55 |.....".10)".. .U|
00000F20: 52 4E 20 4F 4E 20 D0 52 49 4E 54 45 52 20 22 00 |RN ON .RINTER ".|
00000F30: 54 17 BF 02 99 22 11 11 11 22 A3 31 32 29 22 1F |T...."...".12)".|
00000F40: 12 20 C1 4C 49 47 4E 20 C6 4F 52 4D 20 22 3A 8D |. .LIGN .ORM ":.|
00000F50: 31 39 39 38 00 7E 17 C0 02 9F 34 2C 34 2C 30 3A |1998.~....4,4,0:|
00000F60: 98 34 2C C7 28 31 37 29 3B 3A 8F 20 49 4E 49 54 |.4,.(17);:. INIT|
00000F70: 49 41 4C 49 5A 45 20 50 52 49 4E 54 45 52 00 85 |IALIZE PRINTER..|
00000F80: 17 C1 02 98 34 00 A0 17 C3 02 A0 34 3A 9F 34 2C |....4......4:.4,|
00000F90: 34 2C 30 3A 8F 20 55 50 50 45 52 20 43 41 53 45 |4,0:. UPPER CASE|
00000FA0: 00 DC 17 C4 02 98 34 2C C7 28 31 34 29 22 20 20 |......4,.(14)" |
00000FB0: 20 20 20 20 20 20 44 49 53 4B 20 44 49 52 45 43 | DISK DIREC|
00000FC0: 54 4F 52 49 45 53 22 C7 28 31 33 29 C7 28 31 33 |TORIES".(13).(13|
00000FD0: 29 C7 28 31 33 29 C7 28 31 33 29 3B 00 F8 17 C5 |).(13).(13);....|
00000FE0: 02 98 34 2C C7 28 31 35 29 3B 3A 8F 20 4E 4F 52 |..4,.(15);:. NOR|
00000FF0: 4D 41 4C 20 53 49 5A 45 00 13 18 C6 02 58 25 B2 |MAL SIZE.....X%.|
00001000: 30 3A 8F 20 46 49 52 53 54 20 44 49 53 4B 20 4E |0:. FIRST DISK N|
00001010: 41 4D 45 00 27 18 CB 02 44 24 B2 44 24 28 58 25 |AME.'...D$.D$(X%|
00001020: 29 3A 8D 36 30 30 30 00 5E 18 CC 02 98 34 2C 5A |):.6000.^....4,Z|
00001030: 31 24 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |1$;" |
00001040: 20 20 20 20 20 20 20 20 20 46 52 45 45 20 42 4C | FREE BL|
00001050: 4F 43 4B 53 3A 22 5A 33 24 C7 28 31 33 29 00 7E |OCKS:"Z3$.(13).~|
00001060: 18 D0 02 81 4A B2 30 A4 37 30 3A 98 34 2C 22 2A |....J.0.70:.4,"*|
00001070: 22 3B 3A 82 3A 98 34 2C C7 28 31 33 29 3B 00 A6 |";:.:.4,.(13);..|
00001080: 18 D5 02 98 34 2C 22 46 49 4C 45 20 4E 41 4D 45 |....4,"FILE NAME|
00001090: 20 20 20 20 20 20 20 20 20 54 59 50 45 20 20 20 | TYPE |
000010A0: 42 4C 4B 53 22 3B 00 E4 18 D6 02 98 34 2C 54 24 |BLKS";......4,T$|
000010B0: C7 28 35 31 29 C7 28 35 34 29 22 46 49 4C 45 20 |.(51).(54)"FILE |
000010C0: 4E 41 4D 45 20 20 20 20 20 20 20 20 20 54 59 50 |NAME TYP|
000010D0: 45 20 20 20 42 4C 4B 53 22 C7 28 31 30 29 C7 28 |E BLKS".(10).(|
000010E0: 31 33 29 3B 00 04 19 D7 02 81 4A B2 30 A4 37 30 |13);......J.0.70|
000010F0: 3A 98 34 2C 22 2A 22 3B 3A 82 3A 98 34 2C C7 28 |:.4,"*";:.:.4,.(|
00001100: 31 33 29 3B 00 1A 19 DA 02 49 B2 30 3A 8B 58 25 |13);.....I.0:.X%|
00001110: AA 31 B2 50 54 25 A7 37 38 30 00 3B 19 DF 02 81 |.1.PT%.780.;....|
00001120: 4A B2 58 25 AA 31 A4 50 54 25 AB 31 3A 44 24 B2 |J.X%.1.PT%.1:D$.|
00001130: 44 24 28 4A 29 3A 8D 35 30 30 30 00 74 19 E4 02 |D$(J):.5000.t...|
00001140: 98 34 2C 54 24 C7 28 4C 31 29 C7 28 4C 32 29 5A |.4,T$.(L1).(L2)Z|
00001150: 31 24 54 24 C7 28 41 31 29 C7 28 41 32 29 5A 32 |1$T$.(A1).(A2)Z2|
00001160: 24 54 24 C7 28 42 31 29 C7 28 42 32 29 5A 33 24 |$T$.(B1).(B2)Z3$|
00001170: 43 52 24 3B 00 AB 19 E5 02 8B 49 B2 30 A7 4C 31 |CR$;......I.0.L1|
00001180: B2 35 31 3A 4C 32 B2 35 34 3A 41 31 B2 35 33 3A |.51:L2.54:A1.53:|
00001190: 41 32 B2 35 32 3A 42 31 B2 35 33 3A 42 32 B2 35 |A2.52:B1.53:B2.5|
000011A0: 37 3A 43 52 24 B2 C7 28 31 33 29 00 E1 19 E6 02 |7:CR$..(13).....|
000011B0: 8B 49 B2 31 A7 4C 31 B2 34 38 3A 4C 32 B2 34 38 |.I.1.L1.48:L2.48|
000011C0: 3A 41 31 B2 34 39 3A 41 32 B2 35 36 3A 42 31 B2 |:A1.49:A2.56:B1.|
000011D0: 35 30 3A 42 32 B2 35 31 3A 43 52 24 B2 C7 28 30 |50:B2.51:CR$..(0|
000011E0: 29 00 EB 19 E7 02 49 B2 31 AB 49 00 F1 19 F8 02 |).....I.1.I.....|
000011F0: 82 00 06 1A 0C 03 8F 20 4E 45 58 54 20 44 49 52 |....... NEXT DIR|
00001200: 45 43 54 4F 52 59 00 18 1A 0D 03 98 34 2C C7 28 |ECTORY......4,.(|
00001210: 31 33 29 C7 28 31 33 29 00 35 1A 11 03 8B 44 24 |13).(13).5....D$|
00001220: 28 50 54 25 29 B3 B1 22 22 A7 58 25 B2 50 54 25 |(PT%).."".X%.PT%|
00001230: 3A 89 37 31 35 00 3E 1A 16 03 A0 34 3A 8E 00 54 |:.715.>....4:..T|
00001240: 1A 84 03 8F 20 50 52 49 4E 54 20 46 49 4C 45 4E |.... PRINT FILEN|
00001250: 41 4D 45 53 00 91 1A 85 03 8B 46 31 25 B2 30 A7 |AMES......F1%.0.|
00001260: 99 22 93 11 11 11 11 1C 22 A3 36 29 22 12 20 20 |."......".6)". |
00001270: CE 4F 20 C6 49 4C 45 4E 41 4D 45 53 20 49 4E 20 |.O .ILENAMES IN |
00001280: CD 45 4D 4F 52 59 20 20 22 3A 8D 31 39 39 39 3A |.EMORY ":.1999:|
00001290: 8E 00 B7 1A 86 03 99 22 93 11 11 11 11 22 A3 31 |.......".....".1|
000012A0: 30 29 22 1C 12 20 D4 55 52 4E 20 4F 4E 20 D0 52 |0)".. .URN ON .R|
000012B0: 49 4E 54 45 52 20 22 00 D6 1A 87 03 99 22 11 11 |INTER "......"..|
000012C0: 11 22 A3 31 32 29 22 1F 12 20 C1 4C 49 47 4E 20 |.".12)".. .LIGN |
000012D0: C6 4F 52 4D 20 22 00 E0 1A 88 03 8D 31 39 39 38 |.ORM "......1998|
000012E0: 00 0A 1B 8E 03 9F 34 2C 34 2C 30 3A 98 34 2C C7 |......4,4,0:.4,.|
000012F0: 28 31 37 29 3B 3A 8F 20 49 4E 49 54 49 41 4C 49 |(17);:. INITIALI|
00001300: 5A 45 20 50 52 49 4E 54 45 52 00 11 1B 93 03 98 |ZE PRINTER......|
00001310: 34 00 37 1B A2 03 A0 34 3A 9F 34 2C 34 2C 30 3A |4.7....4:.4,4,0:|
00001320: 8F 20 52 45 4F 50 45 4E 20 46 4F 52 20 55 50 50 |. REOPEN FOR UPP|
00001330: 45 52 20 43 41 53 45 00 70 1B AC 03 98 34 2C C7 |ER CASE.p....4,.|
00001340: 28 31 34 29 22 20 20 20 20 20 20 20 20 44 49 52 |(14)" DIR|
00001350: 45 43 54 4F 52 59 20 4F 46 20 46 49 4C 45 53 22 |ECTORY OF FILES"|
00001360: C7 28 31 33 29 C7 28 31 33 29 C7 28 31 33 29 3B |.(13).(13).(13);|
00001370: 00 83 1B AD 03 98 34 2C C7 28 31 35 29 C7 28 31 |......4,.(15).(1|
00001380: 33 29 3B 00 A3 1B B1 03 81 49 B2 30 A4 36 30 3A |3);......I.0.60:|
00001390: 98 34 2C 22 2A 22 3B 3A 82 3A 98 34 2C C7 28 31 |.4,"*";:.:.4,.(1|
000013A0: 33 29 3B 00 E9 1B B6 03 98 34 2C C7 28 31 35 29 |3);......4,.(15)|
000013B0: 22 46 49 4C 45 20 4E 41 4D 45 20 20 20 20 20 20 |"FILE NAME |
000013C0: 20 20 54 59 50 45 20 20 20 20 20 20 20 20 20 42 | TYPE B|
000013D0: 4C 4B 53 20 20 20 20 20 20 20 20 20 44 49 53 4B |LKS DISK|
000013E0: 20 49 44 22 C7 28 31 30 29 00 09 1C C0 03 81 49 | ID".(10)......I|
000013F0: B2 30 A4 36 30 3A 98 34 2C 22 2A 22 3B 3A 82 3A |.0.60:.4,"*";:.:|
00001400: 98 34 2C C7 28 31 33 29 3B 00 15 1C DE 03 8D 31 |.4,.(13);......1|
00001410: 30 30 3A A0 34 00 1B 1C E7 03 8E 00 34 1C E8 03 |00:.4.......4...|
00001420: 8F 20 44 49 53 50 4C 41 59 20 44 49 53 4B 20 4E |. DISPLAY DISK N|
00001430: 41 4D 45 53 00 78 1C E9 03 8B 44 24 28 30 29 B2 |AMES.x....D$(0).|
00001440: 22 22 A7 99 22 93 11 11 11 11 22 A3 34 29 22 1C |""..".....".4)".|
00001450: 12 20 20 20 20 CE 4F 20 C4 49 53 4B 20 C9 C4 27 |. .O .ISK ..'|
00001460: 53 20 49 4E 20 CD 45 4D 4F 52 59 20 20 20 20 22 |S IN .EMORY "|
00001470: 3A 8D 31 39 39 39 3A 8E 00 93 1C EC 03 58 25 B2 |:.1999:......X%.|
00001480: 30 3A 8F 20 46 49 52 53 54 20 44 49 53 4B 20 4E |0:. FIRST DISK N|
00001490: 41 4D 45 00 C7 1C ED 03 99 22 93 11 11 90 12 20 |AME......"..... |
000014A0: 20 20 C4 49 53 4B 20 C9 C4 20 20 20 20 D6 4F 4C | .ISK .. .OL|
000014B0: 55 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 |UME |
000014C0: 20 20 20 20 20 20 22 00 DF 1C EE 03 81 49 B2 30 | "......I.0|
000014D0: A4 33 38 3A 99 22 B9 22 3B 3A 82 3A 99 3A 99 00 |.38:.".";:.:.:..|
000014E0: E7 1C EF 03 49 B2 30 00 01 1D F2 03 49 B2 49 AA |....I.0.....I.I.|
000014F0: 31 3A 44 24 B2 44 24 28 58 25 29 3A 8D 36 30 30 |1:D$.D$(X%):.600|
00001500: 30 00 1D 1D F7 03 99 5A 31 24 3B 22 20 46 52 45 |0......Z1$;" FRE|
00001510: 45 20 42 4C 4F 43 4B 53 3A 22 5A 33 24 00 35 1D |E BLOCKS:"Z3$.5.|
00001520: FC 03 8B 44 24 28 50 54 25 29 B2 22 22 A7 8D 31 |...D$(PT%).""..1|
00001530: 39 39 39 3A 8E 00 40 1D 01 04 58 25 B2 50 54 25 |999:..@...X%.PT%|
00001540: 00 56 1D 06 04 8B 49 B1 31 34 A7 8D 31 39 39 39 |.V....I.14..1999|
00001550: 3A 89 31 30 30 35 00 60 1D 0B 04 89 31 30 31 30 |:.1005.`....1010|
00001560: 00 77 1D 1A 04 8F 20 50 52 49 4E 54 20 44 49 53 |.w.... PRINT DIS|
00001570: 4B 20 4E 41 4D 45 53 00 B8 1D 1B 04 8B 44 24 28 |K NAMES......D$(|
00001580: 30 29 B2 22 22 A7 99 22 93 11 11 11 11 22 A3 34 |0).""..".....".4|
00001590: 29 22 1C 12 20 20 20 20 CE 4F 20 C4 49 53 4B 20 |)".. .O .ISK |
000015A0: C9 C4 27 53 20 49 4E 20 CD 45 4D 4F 52 59 20 20 |..'S IN .EMORY |
000015B0: 20 20 22 3A 8D 31 39 39 00 DE 1D 1C 04 99 22 93 | ":.199......".|
000015C0: 11 11 11 11 22 A3 31 30 29 22 1C 12 20 D4 55 52 |....".10)".. .UR|
000015D0: 4E 20 4F 4E 20 D0 52 49 4E 54 45 52 20 22 00 FD |N ON .RINTER "..|
000015E0: 1D 1D 04 99 22 11 11 11 22 A3 31 32 29 22 1F 12 |...."...".12)"..|
000015F0: 20 C1 4C 49 47 4E 20 C6 4F 52 4D 20 22 00 07 1E | .LIGN .ORM "...|
00001600: 1E 04 8D 31 39 39 38 00 31 1E 1F 04 9F 34 2C 34 |...1998.1....4,4|
00001610: 2C 30 3A 98 34 2C C7 28 31 37 29 3B 3A 8F 20 49 |,0:.4,.(17);:. I|
00001620: 4E 49 54 49 41 4C 49 5A 45 20 50 52 49 4E 54 45 |NITIALIZE PRINTE|
00001630: 52 00 38 1E 20 04 98 34 00 79 1E 21 04 8F 20 20 |R.8. ..4.y.!.. |
00001640: 20 20 20 20 50 52 49 4E 54 23 34 2C 43 48 52 24 | PRINT#4,CHR$|
00001650: 28 32 37 29 43 48 52 24 28 36 38 29 43 48 52 24 |(27)CHR$(68)CHR$|
00001660: 28 34 30 29 43 48 52 24 28 30 29 3B 3A 52 45 4D |(40)CHR$(0);:REM|
00001670: 20 53 45 54 20 54 41 42 53 00 9F 1E 22 04 A0 34 | SET TABS..."..4|
00001680: 3A 9F 34 2C 34 2C 30 3A 8F 20 52 45 4F 50 45 4E |:.4,4,0:. REOPEN|
00001690: 20 46 4F 52 20 55 50 50 45 52 20 43 41 53 45 00 | FOR UPPER CASE.|
000016A0: D7 1E 23 04 98 34 2C C7 28 31 34 29 22 20 20 20 |..#..4,.(14)" |
000016B0: 20 20 20 44 49 53 4B 20 49 44 27 53 22 C7 28 31 | DISK ID'S".(1|
000016C0: 33 29 C7 28 31 33 29 C7 28 31 33 29 C7 28 31 33 |3).(13).(13).(13|
000016D0: 29 C7 28 31 35 29 3B 00 F6 1E 25 04 81 49 B2 30 |).(15);...%..I.0|
000016E0: A4 33 38 3A 98 34 2C 22 2A 22 3B 3A 82 3A 98 34 |.38:.4,"*";:.:.4|
000016F0: 2C C7 28 31 30 29 00 11 1F 27 04 58 25 B2 30 3A |,.(10)...'.X%.0:|
00001700: 8F 20 46 49 52 53 54 20 44 49 53 4B 20 4E 41 4D |. FIRST DISK NAM|
00001710: 45 00 48 1F 29 04 98 34 2C C7 28 31 35 29 22 44 |E.H.)..4,.(15)"D|
00001720: 49 53 4B 20 49 44 20 20 20 20 20 20 20 20 20 20 |ISK ID |
00001730: 20 20 20 20 20 20 56 4F 4C 55 4D 45 22 C7 28 31 | VOLUME".(1|
00001740: 30 29 C7 28 31 33 29 3B 00 67 1F 2E 04 81 49 B2 |0).(13);.g....I.|
00001750: 30 A4 33 38 3A 98 34 2C 22 2A 22 3B 3A 82 3A 98 |0.38:.4,"*";:.:.|
00001760: 34 2C C7 28 31 30 29 00 7B 1F 38 04 44 24 B2 44 |4,.(10).{.8.D$.D|
00001770: 24 28 58 25 29 3A 8D 36 30 30 30 00 9C 1F 3D 04 |$(X%):.6000...=.|
00001780: 98 34 2C 5A 31 24 22 20 20 20 20 20 46 52 45 45 |.4,Z1$" FREE|
00001790: 20 42 4C 4F 43 4B 53 3A 22 5A 33 24 00 B1 1F 42 | BLOCKS:"Z3$...B|
000017A0: 04 8B 44 24 28 50 54 25 29 B2 22 22 A7 A0 34 3A |..D$(PT%).""..4:|
000017B0: 8E 00 BC 1F 47 04 58 25 B2 50 54 25 00 C6 1F 4A |....G.X%.PT%...J|
000017C0: 04 89 31 30 38 30 00 D3 1F 4C 04 99 22 8E 90 93 |..1080...L.."...|
000017D0: 22 3A 80 00 09 20 CE 07 99 22 11 11 11 12 1D 1D |":... ..."......|
000017E0: 1D 1E 20 20 20 20 D0 52 45 53 53 20 C1 4E 59 20 |.. .RESS .NY |
000017F0: CB 45 59 20 D7 48 45 4E 20 D2 45 41 44 59 20 20 |.EY .HEN .EADY |
00001800: 20 20 22 3A 89 32 30 30 30 00 3A 20 CF 07 99 22 | ":.2000.: ..."|
00001810: 11 11 11 12 1D 1D 1D 90 20 20 20 20 D0 52 45 53 |........ .RES|
00001820: 53 20 C1 4E 59 20 CB 45 59 20 54 4F 20 C3 4F 4E |S .NY .EY TO .ON|
00001830: 54 49 4E 55 45 20 20 20 20 22 00 54 20 D0 07 49 |TINUE ".T ..I|
00001840: 24 B2 22 22 3A A1 49 24 3A 8B 49 24 B2 22 22 A7 |$."":.I$:.I$."".|
00001850: 32 30 30 30 00 5A 20 D1 07 8E 00 6F 20 A0 0F 84 |2000.Z ....o ...|
00001860: 31 35 2C 5A 31 2C 5A 32 24 2C 5A 33 2C 5A 34 00 |15,Z1,Z2$,Z3,Z4.|
00001870: 7B 20 A1 0F 8B 5A 31 B2 30 A7 8E 00 A0 20 A2 0F |{ ...Z1.0.... ..|
00001880: 99 A3 31 30 29 22 1C 11 11 11 12 20 20 20 20 20 |..10)"..... |
00001890: C4 C9 D3 CB 20 C5 D2 D2 CF D2 20 20 20 20 20 22 |.... ..... "|
000018A0: 00 BA 20 A3 0F 99 A3 32 30 AB C3 28 5A 32 24 29 |.. ....20..(Z2$)|
000018B0: AD 32 29 22 11 11 22 5A 32 24 00 C6 20 A4 0F 8D |.2)".."Z2$.. ...|
000018C0: 31 39 39 39 3A 8E 00 E5 20 88 13 8F 20 44 45 43 |1999:... ... DEC|
000018D0: 4F 44 45 20 46 49 4C 45 4E 41 4D 45 20 45 4E 54 |ODE FILENAME ENT|
000018E0: 52 59 20 44 24 00 F2 20 8D 13 4C 25 B2 C3 28 44 |RY D$.. ..L%..(D|
000018F0: 24 29 00 10 21 92 13 5A 31 24 B2 C8 28 44 24 2C |$)..!..Z1$..(D$,|
00001900: 4C 25 AB 37 29 3A 8F 20 46 49 4C 45 4E 41 4D 45 |L%.7):. FILENAME|
00001910: 00 30 21 97 13 5A 32 24 B2 CA 28 44 24 2C 4C 25 |.0!..Z2$..(D$,L%|
00001920: AB 34 2C 33 29 3A 8F 20 46 49 4C 45 54 59 50 45 |.4,3):. FILETYPE|
00001930: 00 56 21 9C 13 42 4C 24 B2 CA 28 44 24 2C 4C 25 |.V!..BL$..(D$,L%|
00001940: AB 36 2C 31 29 3A 42 48 24 B2 CA 28 44 24 2C 4C |.6,1):BH$..(D$,L|
00001950: 25 AB 35 2C 31 29 00 79 21 9D 13 42 4C B2 C6 28 |%.5,1).y!..BL..(|
00001960: 42 4C 24 AA C7 28 30 29 29 AA 32 35 36 AC C6 28 |BL$..(0)).256..(|
00001970: 42 48 24 AA C7 28 30 29 29 00 B5 21 A6 13 42 4C |BH$..(0))..!..BL|
00001980: 24 B2 C4 28 42 4C 29 3A 5A 33 24 B2 C8 28 22 20 |$..(BL):Z3$..(" |
00001990: 20 20 20 22 2C 34 AB C3 28 42 4C 24 29 29 AA 42 | ",4..(BL$)).B|
000019A0: 4C 24 3A 8F 20 4E 55 4D 42 45 52 20 4F 46 20 42 |L$:. NUMBER OF B|
000019B0: 4C 4F 43 4B 53 00 D9 21 B0 13 50 4C 24 B2 CA 28 |LOCKS..!..PL$..(|
000019C0: 44 24 2C 4C 25 AB 31 2C 31 29 3A 50 48 24 B2 CA |D$,L%.1,1):PH$..|
000019D0: 28 44 24 2C 4C 25 2C 31 29 00 FD 21 B1 13 50 31 |(D$,L%,1)..!..P1|
000019E0: 25 B2 C6 28 50 4C 24 AA C7 28 30 29 29 AA 32 35 |%..(PL$..(0)).25|
000019F0: 36 AC C6 28 50 48 24 AA C7 28 30 29 29 00 39 22 |6..(PH$..(0)).9"|
00001A00: BA 13 5A 34 24 B2 C8 28 44 24 28 50 31 25 29 2C |..Z4$..(D$(P1%),|
00001A10: C3 28 44 24 28 50 31 25 29 29 AB 34 29 3A 8F 20 |.(D$(P1%)).4):. |
00001A20: 44 49 53 4B 20 4E 41 4D 45 20 43 4F 4E 54 41 49 |DISK NAME CONTAI|
00001A30: 4E 49 4E 47 20 46 49 4C 45 00 3F 22 CE 13 8E 00 |NING FILE.?"....|
00001A40: 59 22 70 17 8F 20 44 45 43 4F 44 45 20 44 49 53 |Y"p.. DECODE DIS|
00001A50: 4B 20 4E 41 4D 45 20 44 24 00 66 22 7A 17 4C 25 |K NAME D$.f"z.L%|
00001A60: B2 C3 28 44 24 29 00 85 22 84 17 5A 31 24 B2 C8 |..(D$).."..Z1$..|
00001A70: 28 44 24 2C 4C 25 AB 34 29 3A 8F 20 44 49 53 4B |(D$,L%.4):. DISK|
00001A80: 20 4E 41 4D 45 00 AB 22 8E 17 42 4C 24 B2 CA 28 | NAME.."..BL$..(|
00001A90: 44 24 2C 4C 25 AB 33 2C 31 29 3A 42 48 24 B2 CA |D$,L%.3,1):BH$..|
00001AA0: 28 44 24 2C 4C 25 AB 32 2C 31 29 00 CE 22 98 17 |(D$,L%.2,1).."..|
00001AB0: 42 4C B2 C6 28 42 4C 24 AA C7 28 30 29 29 AA 32 |BL..(BL$..(0)).2|
00001AC0: 35 36 AC C6 28 42 48 24 AA C7 28 30 29 29 00 E0 |56..(BH$..(0))..|
00001AD0: 22 A1 17 8B 42 4C B1 39 39 39 A7 42 4C B2 AB 31 |"...BL.999.BL..1|
00001AE0: 00 21 23 A2 17 42 4C 24 B2 C4 28 42 4C 29 3A 5A |.!#..BL$..(BL):Z|
00001AF0: 33 24 B2 C8 28 22 20 20 20 20 22 2C 34 AB C3 28 |3$..(" ",4..(|
00001B00: 42 4C 24 29 29 AA 42 4C 24 3A 8F 20 4E 55 4D 42 |BL$)).BL$:. NUMB|
00001B10: 45 52 20 4F 46 20 46 52 45 45 20 42 4C 4F 43 4B |ER OF FREE BLOCK|
00001B20: 53 00 45 23 AC 17 50 4C 24 B2 CA 28 44 24 2C 4C |S.E#..PL$..(D$,L|
00001B30: 25 AB 31 2C 31 29 3A 50 48 24 B2 CA 28 44 24 2C |%.1,1):PH$..(D$,|
00001B40: 4C 25 2C 31 29 00 81 23 B6 17 50 54 25 B2 C6 28 |L%,1)..#..PT%..(|
00001B50: 50 4C 24 AA C7 28 30 29 29 AA 32 35 36 AC C6 28 |PL$..(0)).256..(|
00001B60: 50 48 24 AA C7 28 30 29 29 3A 8F 20 50 54 52 20 |PH$..(0)):. PTR |
00001B70: 54 4F 20 4E 45 58 54 20 44 49 53 4B 20 4E 41 4D |TO NEXT DISK NAM|
00001B80: 45 00 87 23 C0 17 8E 00 00 00 |E..#...... |
.......".":.53281,1:.53280,0.N.....6)"..
..DIRECTORY SORTER AND PRINTER":. ADVL..
.....13)"....PRESENTED BY:":..11)"..BETT
ER SOFTWARE".......10)"..........HIT ANY
KEY TO GO ON"......A$:.A$."".4.....EN.1
000:.D$(EN),L%(EN),R%(EN)......S%(50)...
..P%..1.(...L1.48:L2.48:A1.49:A2.56:B1.5
0:B2.51:CR$.G(0).A...T$.G(16):. SET TABS
L.W....53281,1:.53280,0......".....".6)"
.. ".......6)". D
ISK DIRECTORY MANAGER .J.....6)".
"......".. .. MAIN MENU
: "......".. .1. .READ DISK DIRECTORIES"
.6...." .2. .DISPLAY DISK DIRECTORIES BY
DISK".F.#.." .3. .DISPLAY DISK NAMES AN
D FREE BLOCKS".L.$.....%.." .4. .PRINT D
ISK DIRECTORIES BY DISK".F.&.." .5. .PRI
NT DISK NAMES AND FREE BLOCKS"...(.." .6
. .MERGE, SORT, AND PRINT DISK FILES"...
*.....-.." .7. .QUIT PROGRAM".=.2..".. .
. ENTER NUMBER OF CHOICE ".[.<..2000:
X.E(I$):.X.1.X.7.60...F.. X . 300,500,10
00,700,1050,900,1100...P..15...D.. INORD
ER TRAVERSAL OF TREE...N.TS%..1:ROOT%.F1
%:. EMPTY STACK,ROOT=FIRST FILENAME ENTE
RED...S.. TRAVERSE TREE BELOW ROOT...X..
L%(ROOT%).0.130:. NO MORE LEFT.Z.}.TS%.T
S%.1:S%(TS%).ROOT%:ROOT%.L%(ROOT%):.115:
. PUSH(ROOT),ROOT=LFT CHLD.....D$.D$(ROO
T%): .5000:. DECODE FILENAME AND OUTPUT.
Z....Z1$.OLD$.150:. CHECK FOR DUPLICATIO
NS......4,Z1$T$G(49)G(56)Z2$T$G(50)G(57)
Z3$T$G(52)G(51)Z4$.....OLD$.Z1$.>.... CH
ECK FOR RIGHT CHILDREN.C. ..R%(ROOT%).0.
170:. NO MORE RIGHT.....ROOT%.R%(ROOT%):
.115:. RIGHT CHILD BECOMES ROOTL...... C
HECK IF STACK IS EMPTYL......TS%..0.ROOT
%.S%(TS%):TS%.TS%.1:.130:. IF NOT, CONT
W/ ROOT=POPL.........H.. INSERT NAME IN
TREEL.S.I..F1%.0.F1%.D%:L%(F1%).0:R%(F1%
).0:.:. FIRST ENTRY.Y.M.ROOT%.1:. SET RO
OT TO FIRST ENTRY...R..D$(P%).D$(ROOT%).
250...W.. TRAVERSE LEFT BRANCHL.N.... I
F NO LEFT THEN INSERTL......L%(ROOT%).0.
L%(ROOT%).P%:.280.....ROOT%.L%(ROOT%):.2
10:. LEFT]BECOMES ROOTL.<.... TRAVERSE R
IGHT BRANCHL.[.... IF NO RIGHT THEN INSE
RTL.~....R%(ROOT%).0.R%(ROOT%).P%:.280..
...ROOT%.R%(ROOT%):.210:. RIGHT BECOMES
ROOT L.O...L%(P%).0:R%(P%).0:. NEW LEAF.
U.".....,.. READ DIRECTORIESL.&...."....
.".6)".. INSERT DISK IN DRIVE 0 ":.199
8:.".".K.0.D%.P%.1:P$.G(.(D%.256)):P$.G(
D%.256.F(P$)).P$:. POINTERS TO DISK.~.1.
.15,8,15:.4000...2..1,8,0,"$0":.4000:.Z1
..0..".": 1: 15:.490.O.3.."..........REA
DING DIRECTORY"...4.."......DIRECTORY EN
TRIES:."...6..#1,A$,A$:. SKIP LOAD ADDRE
SS.8.@..#1,A$,A$:. SKIP TRACK AND SECTOR
.Z.J..#1,BL$,BH$:. GET # OF BLOCKS.S.O..
BL$."".BL$.BL$.G(0)...P..BH$."".BH$.BH$.
G(0)...H..#1,A$:. ST..0 . 460.H.R.. A$..
G(34) . 360:. FIND QUOTE...V...22);".
....."P%.D%.1...W.P%.P%.1:D$(P%)."".;.
|..#1,A$:. A$..G(34).D$(P%).D$(P%).A$:.3
80:. READ FILE NAME.S....#1,A$:. A$.G(32
) . 390:. SKIP SPACES TIL FILE TYPE.}...
C$."".A...C$.C$.A$:.#1,A$:. A$.."" . 41
0:. FILE TYPE. ENTRY .S WITH NULL.Z....D
%..P%.F1%.0.F1%.P%......D%..P%.D$(P%).D$
(P%).BL$.BH$.H(C$,3).P$:.200:.450.H...D$
(D%).D$(D%).H(C$,2):.".... DISK ID: ."D$
(D%)"..".Y.B.. ST.0 . 320..L.. APPEND F
REE BLOCKS TO DISK NAME...Q.D$(D%).D$(D%
).BL$.BH$...V. 1: 15.M.Z.X%.(P%.1).256:.
ADD PTR TO NEXT DISK.....D$(D%).D$(D%).
G(P%.1.256.X%).G(X%).)...."..... . Y
OU MAY REMOVE YOUR DISK NOW. ".^...."
......".3)".INSERT NEXT DISK AND PRESS R
ETURN".R.....17)".... OR "......"..".3)"
..PRESS 'D' TO RETURN TO MAIN MENU".....
.2000:.I$."D".I$."D"...L....".":.304....
.. DISPLAY DIRECTORIES.*....D$(0).""..".
....".4)".. NO DISK ID'S IN MEMORY
":.1999:..J....".":X%.0:. FIRST DISK NA
ME.R...I.0:D$.D$(X%):.6000:Z5$.Z1$:Z6$.Z
3$......"..."Z5$;" FREE BLOCKS:"Z6$.....
.J.0.38:.".";:.:.:.......X%.1.PT%.580...
...J.X%.1.PT%.1:D$.D$(J):.5000......Z1$.
20)Z2$.30)Z3$:I.I.1...&..I.15.560.+.+..1
999:I.0:."... CONTINUED ".L.,.."..."Z5
$;" FREE BLOCKS:"Z6$.D.-..K.0.38:.".";:.
:.:..J.0....D.. NEXT DIRECTORY...I..199
9:.D$(PT%).."".X%.PT%:.".":.515...N...E.
... PRINT DIRECTORIES......D$(0)."".."..
...".4)".. NO DISK ID'S IN MEMORY
":.1999:../....".....".10)".. TURN ON PR
INTER ".T...."...".12)".. ALIGN FORM ":.
1998.~....4,4,0:.4,G(17);:. INITIALIZE P
RINTER...A..4. .C. 4:.4,4,0:. UPPER CASE
...D..4,G(14)" DISK DIRECTORIES"G
(13)G(13)G(13)G(13);...E..4,G(15);:. NOR
MAL SIZE...F.X%.0:. FIRST DISK NAME.'.K.
D$.D$(X%):.6000.^.L..4,Z1$;"
FREE BLOCKS:"Z3$G(13).~.P..J.0.
70:.4,"*";:.:.4,G(13);...U..4,"FILE NAME
TYPE BLKS";...V..4,T$G(51)G(5
4)"FILE NAME TYPE BLKS"G(10)G(
13);...W..J.0.70:.4,"*";:.:.4,G(13);...Z
.I.0:.X%.1.PT%.780.;....J.X%.1.PT%.1:D$.
D$(J):.5000.T....4,T$G(L1)G(L2)Z1$T$G(A1
)G(A2)Z2$T$G(B1)G(B2)Z3$CR$;......I.0.L1
.51:L2.54:A1.53:A2.52:B1.53:B2.57:CR$.G(
13)......I.1.L1.48:L2.48:A1.49:A2.56:B1.
50:B2.51:CR$.G(0).....I.1.I............
NEXT DIRECTORY......4,G(13)G(13).5....D$
(PT%).."".X%.PT%:.715.>... 4:..T.... PRI
NT FILENAMES......F1%.0.."......".6)".
NO FILENAMES IN MEMORY ":.1999:......."
.....".10)".. TURN ON PRINTER ".V...."..
.".12)".. ALIGN FORM "......1998......4,
4,0:.4,G(17);:. INITIALIZE PRINTER......
4.7... 4:.4,4,0:. REOPEN FOR UPPER CASE.
P....4,G(14)" DIRECTORY OF FILES"
G(13)G(13)G(13);......4,G(15)G(13);.....
.I.0.60:.4,"*";:.:.4,G(13);......4,G(15)
"FILE NAME TYPE BLKS
DISK ID"G(10)......I.0.60:.4,"*";:.:
.4,G(13);......100: 4.......4.... DISPLA
Y DISK NAMES.X....D$(0).""..".....".4)".
. NO DISK ID'S IN MEMORY ":.1999:.
.....X%.0:. FIRST DISK NAME.G....".....
DISK ID VOLUME ".
.....I.0.38:.".";:.:.:......I.0.....I.I.
1:D$.D$(X%):.6000......Z1$;" FREE BLOCKS
:"Z3$.5....D$(PT%).""..1999:..@...X%.PT%
.V....I.14..1999:.1005.`....1010.W.... P
RINT DISK NAMES......D$(0).""..".....".4
)".. NO DISK ID'S IN MEMORY ":.199
......".....".10)".. TURN ON PRINTER "..
...."...".12)".. ALIGN FORM "......1998.
1....4,4,0:.4,G(17);:. INITIALIZE PRINTE
R.8. ..4.Y.!.. PRINT#4,CHR$(27)CHR$
(68)CHR$(40)CHR$(0);:REM SET TABS...". 4
:.4,4,0:. REOPEN FOR UPPER CASE.W.#..4,G
(14)" DISK ID'S"G(13)G(13)G(13)G(13
)G(15);...%..I.0.38:.4,"*";:.:.4,G(10)..
.'.X%.0:. FIRST DISK NAME.H.)..4,G(15)"D
ISK ID VOLUME"G(10)G(13);
.G....I.0.38:.4,"*";:.:.4,G(10).{.8.D$.D
$(X%):.6000...=..4,Z1$" FREE BLOCKS:
"Z3$...B..D$(PT%)."". 4:....G.X%.PT%.F.J
..1080.S.L.."...":... N.."........ PR
ESS ANY KEY WHEN READY ":.2000.: O.."
........ PRESS ANY KEY TO CONTINUE
".T P.I$."":.I$:.I$."".2000.Z Q...O ..
15,Z1,Z2$,Z3,Z4.{ ...Z1.0... ....10)"..
... DISK ERROR ".. ....20.C(Z2$)
.2)".."Z2$.F ...1999:... ... DECODE FILE
NAME ENTRY D$.. ..L%.C(D$)..!..Z1$.H(D$,
L%.7):. FILENAME.0!..Z2$.J(D$,L%.4,3):.
FILETYPE.V!..BL$.J(D$,L%.6,1):BH$.J(D$,L
%.5,1).Y!..BL.F(BL$.G(0)).256.F(BH$.G(0)
)..!..BL$.D(BL):Z3$.H(" ",4.C(BL$)).B
L$:. NUMBER OF BLOCKS.Y!..PL$.J(D$,L%.1,
1):PH$.J(D$,L%,1)..!..P1%.F(PL$.G(0)).25
6.F(PH$.G(0)).9"..Z4$.H(D$(P1%),C(D$(P1%
)).4):. DISK NAME CONTAINING FILE.?"N...
Y"P.. DECODE DISK NAME D$.F"Z.L%.C(D$)..
"..Z1$.H(D$,L%.4):. DISK NAME.."..BL$.J(
D$,L%.3,1):BH$.J(D$,L%.2,1).N"..BL.F(BL$
.G(0)).256.F(BH$.G(0)).."...BL.999.BL..1
.!#..BL$.D(BL):Z3$.H(" ",4.C(BL$)).BL
$:. NUMBER OF FREE BLOCKS.E#..PL$.J(D$,L
%.1,1):PH$.J(D$,L%,1)..#..PT%.F(PL$.G(0)
).256.F(PH$.G(0)):. PTR TO NEXT DISK NAM
E..#......
> CLICK IMAGE PREVIEW FOR FULL MODAL