NEW DISC LISTER
FILE INFORMATION
FILENAME(S): NEW DISC LISTER
FILE TYPE(S): PRG
FILE SIZE: 6.9K
FIRST SEEN: 2025-10-19 22:48:31
APPEARS ON: 1 disk(s)
FILE HASH
75cdbaa8af64cd61eed5b40ffdd8515aab4cf8acf4c9e6c0e856c33dccee3591
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES U38 | NEW DISC LISTER | PRG | Radd Maxx | 10 | 2 | 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 4D 08 01 |1,1:.53280,0.M..|
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 00 83 08 |RINTER":. ADV...|
00000050: 02 00 99 A6 31 33 29 22 11 11 11 11 50 52 45 53 |....13)"....PRES|
00000060: 45 4E 54 45 44 20 42 59 3A 22 3A 99 A6 31 31 29 |ENTED BY:":..11)|
00000070: 22 11 11 42 45 54 54 45 52 20 53 4F 46 54 57 41 |"..BETTER SOFTWA|
00000080: 52 45 22 00 AD 08 03 00 99 A6 31 30 29 22 11 11 |RE".......10)"..|
00000090: 11 11 11 11 11 11 11 11 48 49 54 20 41 4E 59 20 |........HIT ANY |
000000A0: 4B 45 59 20 54 4F 20 47 4F 20 4F 4E 22 00 BE 08 |KEY TO GO ON"...|
000000B0: 04 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 34 00 E0 |...A$:.A$."".4..|
000000C0: 08 05 00 45 4E B2 31 30 30 30 3A 86 44 24 28 45 |...EN.1000:.D$(E|
000000D0: 4E 29 2C 4C 25 28 45 4E 29 2C 52 25 28 45 4E 29 |N),L%(EN),R%(EN)|
000000E0: 00 EC 08 06 00 86 53 25 28 35 30 29 00 F6 08 07 |......S%(50)....|
000000F0: 00 50 25 B2 AB 31 00 27 09 08 00 4C 31 B2 34 38 |.P%..1.'...L1.48|
00000100: 3A 4C 32 B2 34 38 3A 41 31 B2 34 39 3A 41 32 B2 |:L2.48:A1.49:A2.|
00000110: 35 36 3A 42 31 B2 35 30 3A 42 32 B2 35 31 3A 43 |56:B1.50:B2.51:C|
00000120: 52 24 B2 C7 28 30 29 00 3F 09 09 00 54 24 B2 C7 |R$..(0).?...T$..|
00000130: 28 31 36 29 3A 8F 20 53 45 54 20 54 41 42 53 00 |(16):. SET TABS.|
00000140: 55 09 0A 00 97 35 33 32 38 31 2C 31 3A 97 35 33 |U....53281,1:.53|
00000150: 32 38 30 2C 30 00 81 09 0F 00 99 22 93 1F 11 11 |280,0......"....|
00000160: 11 22 A3 36 29 22 12 0E 20 20 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: 22 00 A4 09 10 00 99 A3 36 29 22 12 20 C4 C9 D3 |".......6)". ...|
00000190: CB A0 C4 C9 D2 C5 C3 D4 CF D2 D9 A0 CD C1 CE C1 |................|
000001A0: C7 C5 D2 A0 00 C8 09 11 00 99 A3 36 29 22 12 20 |...........6)". |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 20 22 00 E1 09 14 00 99 22 11 | "......".|
000001D0: 11 20 12 1F 20 CD 41 49 4E 20 CD 45 4E 55 3A 20 |. .. .AIN .ENU: |
000001E0: 22 00 06 0A 19 00 99 22 11 11 20 90 31 2E 20 1E |"......".. .1. .|
000001F0: D2 45 41 44 20 C4 49 53 4B 20 C4 49 52 45 43 54 |.EAD .ISK .IRECT|
00000200: 4F 52 49 45 53 22 00 34 0A 1E 00 99 22 20 90 32 |ORIES".4...." .2|
00000210: 2E 20 1C C4 49 53 50 4C 41 59 20 C4 49 53 4B 20 |. ..ISPLAY .ISK |
00000220: C4 49 52 45 43 54 4F 52 49 45 53 20 42 59 20 C4 |.IRECTORIES BY .|
00000230: 49 53 4B 22 00 64 0A 23 00 99 22 20 90 33 2E 20 |ISK".d.#.." .3. |
00000240: 96 C4 49 53 50 4C 41 59 20 C4 49 53 4B 20 CE 41 |..ISPLAY .ISK .A|
00000250: 4D 45 53 20 41 4E 44 20 C6 52 45 45 20 C2 4C 4F |MES AND .REE .LO|
00000260: 43 4B 53 22 00 6A 0A 24 00 99 00 96 0A 25 00 99 |CKS".j.$.....%..|
00000270: 22 20 90 34 2E 20 9C D0 52 49 4E 54 20 C4 49 53 |" .4. ..RINT .IS|
00000280: 4B 20 C4 49 52 45 43 54 4F 52 49 45 53 20 42 59 |K .IRECTORIES BY|
00000290: 20 C4 49 53 4B 22 00 C4 0A 26 00 99 22 20 90 35 | .ISK"...&.." .5|
000002A0: 2E 20 9A D0 52 49 4E 54 20 C4 49 53 4B 20 CE 41 |. ..RINT .ISK .A|
000002B0: 4D 45 53 20 41 4E 44 20 C6 52 45 45 20 C2 4C 4F |MES AND .REE .LO|
000002C0: 43 4B 53 22 00 F3 0A 28 00 99 22 20 90 36 2E 20 |CKS"...(.." .6. |
000002D0: 98 CD 45 52 47 45 2C 20 D3 4F 52 54 2C 20 41 4E |..ERGE, .ORT, AN|
000002E0: 44 20 D0 52 49 4E 54 20 C4 49 53 4B 20 C6 49 4C |D .RINT .ISK .IL|
000002F0: 45 53 22 00 F9 0A 2A 00 99 00 13 0B 2D 00 99 22 |ES"...*.....-.."|
00000300: 20 90 37 2E 20 1C D1 55 49 54 20 D0 52 4F 47 52 | .7. ..UIT .ROGR|
00000310: 41 4D 22 00 3B 0B 32 00 99 22 11 11 20 12 1F 20 |AM".;.2..".. .. |
00000320: 20 20 20 C5 4E 54 45 52 20 4E 55 4D 42 45 52 20 | .NTER NUMBER |
00000330: 4F 46 20 43 48 4F 49 43 45 20 22 00 59 0B 3C 00 |OF CHOICE ".Y.<.|
00000340: 8D 32 30 30 30 3A 58 B2 C5 28 49 24 29 3A 8B 58 |.2000:X..(I$):.X|
00000350: B3 31 B0 58 B1 37 A7 36 30 00 82 0B 46 00 91 20 |.1.X.7.60...F.. |
00000360: 58 20 8D 20 33 30 30 2C 35 30 30 2C 31 30 30 30 |X . 300,500,1000|
00000370: 2C 37 30 30 2C 31 30 35 30 2C 39 30 30 2C 31 31 |,700,1050,900,11|
00000380: 30 30 00 8A 0B 50 00 89 31 35 00 AA 0B 64 00 8F |00...P..15...d..|
00000390: 20 49 4E 4F 52 44 45 52 20 54 52 41 56 45 52 53 | INORDER TRAVERS|
000003A0: 41 4C 20 4F 46 20 54 52 45 45 00 E9 0B 6E 00 54 |AL OF TREE...n.T|
000003B0: 53 25 B2 AB 31 3A 52 4F 4F 54 25 B2 46 31 25 3A |S%..1:ROOT%.F1%:|
000003C0: 8F 20 45 4D 50 54 59 20 53 54 41 43 4B 2C 52 4F |. EMPTY STACK,RO|
000003D0: 4F 54 3D 46 49 52 53 54 20 46 49 4C 45 4E 41 4D |OT=FIRST FILENAM|
000003E0: 45 20 45 4E 54 45 52 45 44 00 08 0C 73 00 8F 20 |E ENTERED...s.. |
000003F0: 54 52 41 56 45 52 53 45 20 54 52 45 45 20 42 45 |TRAVERSE TREE BE|
00000400: 4C 4F 57 20 52 4F 4F 54 00 2C 0C 78 00 8B 4C 25 |LOW ROOT.,.x..L%|
00000410: 28 52 4F 4F 54 25 29 B2 30 A7 31 33 30 3A 8F 20 |(ROOT%).0.130:. |
00000420: 4E 4F 20 4D 4F 52 45 20 4C 45 46 54 00 78 0C 7D |NO MORE LEFT.x.}|
00000430: 00 54 53 25 B2 54 53 25 AA 31 3A 53 25 28 54 53 |.TS%.TS%.1:S%(TS|
00000440: 25 29 B2 52 4F 4F 54 25 3A 52 4F 4F 54 25 B2 4C |%).ROOT%:ROOT%.L|
00000450: 25 28 52 4F 4F 54 25 29 3A 89 31 31 35 3A 8F 20 |%(ROOT%):.115:. |
00000460: 50 55 53 48 28 52 4F 4F 54 29 2C 52 4F 4F 54 3D |PUSH(ROOT),ROOT=|
00000470: 4C 46 54 20 43 48 4C 44 00 AD 0C 82 00 44 24 B2 |LFT CHLD.....D$.|
00000480: 44 24 28 52 4F 4F 54 25 29 3A 20 8D 35 30 30 30 |D$(ROOT%): .5000|
00000490: 3A 8F 20 44 45 43 4F 44 45 20 46 49 4C 45 4E 41 |:. DECODE FILENA|
000004A0: 4D 45 20 41 4E 44 20 4F 55 54 50 55 54 00 D8 0C |ME AND OUTPUT...|
000004B0: 83 00 8B 5A 31 24 B2 4F 4C 44 24 A7 31 35 30 3A |...Z1$.OLD$.150:|
000004C0: 8F 20 43 48 45 43 4B 20 46 4F 52 20 44 55 50 4C |. CHECK FOR DUPL|
000004D0: 49 43 41 54 49 4F 4E 53 00 10 0D 87 00 98 34 2C |ICATIONS......4,|
000004E0: 5A 31 24 54 24 C7 28 34 39 29 C7 28 35 36 29 5A |Z1$T$.(49).(56)Z|
000004F0: 32 24 54 24 C7 28 35 30 29 C7 28 35 37 29 5A 33 |2$T$.(50).(57)Z3|
00000500: 24 54 24 C7 28 35 32 29 C7 28 35 31 29 5A 34 24 |$T$.(52).(51)Z4$|
00000510: 00 1D 0D 8C 00 4F 4C 44 24 B2 5A 31 24 00 3C 0D |.....OLD$.Z1$.<.|
00000520: 96 00 8F 20 43 48 45 43 4B 20 46 4F 52 20 52 49 |... CHECK FOR RI|
00000530: 47 48 54 20 43 48 49 4C 44 52 45 4E 00 61 0D A0 |GHT CHILDREN.a..|
00000540: 00 8B 52 25 28 52 4F 4F 54 25 29 B2 30 A7 31 37 |..R%(ROOT%).0.17|
00000550: 30 3A 8F 20 4E 4F 20 4D 4F 52 45 20 52 49 47 48 |0:. NO MORE RIGH|
00000560: 54 00 95 0D A5 00 52 4F 4F 54 25 B2 52 25 28 52 |T.....ROOT%.R%(R|
00000570: 4F 4F 54 25 29 3A 89 31 31 35 3A 8F 20 52 49 47 |OOT%):.115:. RIG|
00000580: 48 54 20 43 48 49 4C 44 20 42 45 43 4F 4D 45 53 |HT CHILD BECOMES|
00000590: 20 52 4F 4F 54 00 B3 0D AA 00 8F 20 43 48 45 43 | ROOT...... CHEC|
000005A0: 4B 20 49 46 20 53 54 41 43 4B 20 49 53 20 45 4D |K IF STACK IS EM|
000005B0: 50 54 59 00 F7 0D B4 00 8B 54 53 25 B1 B2 30 A7 |PTY......TS%..0.|
000005C0: 52 4F 4F 54 25 B2 53 25 28 54 53 25 29 3A 54 53 |ROOT%.S%(TS%):TS|
000005D0: 25 B2 54 53 25 AB 31 3A 89 31 33 30 3A 8F 20 49 |%.TS%.1:.130:. I|
000005E0: 46 20 4E 4F 54 2C 20 43 4F 4E 54 20 57 2F 20 52 |F NOT, CONT W/ R|
000005F0: 4F 4F 54 3D 50 4F 50 00 FD 0D BE 00 8E 00 17 0E |OOT=POP.........|
00000600: C8 00 8F 20 49 4E 53 45 52 54 20 4E 41 4D 45 20 |... INSERT NAME |
00000610: 49 4E 20 54 52 45 45 00 4D 0E C9 00 8B 46 31 25 |IN TREE.M....F1%|
00000620: B2 30 A7 46 31 25 B2 44 25 3A 4C 25 28 46 31 25 |.0.F1%.D%:L%(F1%|
00000630: 29 B2 30 3A 52 25 28 46 31 25 29 B2 30 3A 8E 3A |).0:R%(F1%).0:.:|
00000640: 8F 20 46 49 52 53 54 20 45 4E 54 52 59 00 73 0E |. FIRST ENTRY.s.|
00000650: CD 00 52 4F 4F 54 25 B2 31 3A 8F 20 53 45 54 20 |..ROOT%.1:. SET |
00000660: 52 4F 4F 54 20 54 4F 20 46 49 52 53 54 20 45 4E |ROOT TO FIRST EN|
00000670: 54 52 59 00 8E 0E D2 00 8B 44 24 28 50 25 29 B1 |TRY......D$(P%).|
00000680: 44 24 28 52 4F 4F 54 25 29 A7 20 32 35 30 00 A9 |D$(ROOT%). 250..|
00000690: 0E D7 00 8F 20 54 52 41 56 45 52 53 45 20 4C 45 |.... TRAVERSE LE|
000006A0: 46 54 20 42 52 41 4E 43 48 00 C6 0E DC 00 8F 20 |FT BRANCH...... |
000006B0: 49 46 20 4E 4F 20 4C 45 46 54 20 54 48 45 4E 20 |IF NO LEFT THEN |
000006C0: 49 4E 53 45 52 54 00 E9 0E E1 00 8B 4C 25 28 52 |INSERT......L%(R|
000006D0: 4F 4F 54 25 29 B2 30 A7 4C 25 28 52 4F 4F 54 25 |OOT%).0.L%(ROOT%|
000006E0: 29 B2 50 25 3A 89 32 38 30 00 16 0F E6 00 52 4F |).P%:.280.....RO|
000006F0: 4F 54 25 B2 4C 25 28 52 4F 4F 54 25 29 3A 89 32 |OT%.L%(ROOT%):.2|
00000700: 31 30 3A 8F 20 4C 45 46 54 5D 42 45 43 4F 4D 45 |10:. LEFT]BECOME|
00000710: 53 20 52 4F 4F 54 00 32 0F FA 00 8F 20 54 52 41 |S ROOT.2.... TRA|
00000720: 56 45 52 53 45 20 52 49 47 48 54 20 42 52 41 4E |VERSE RIGHT BRAN|
00000730: 43 48 00 50 0F FF 00 8F 20 49 46 20 4E 4F 20 52 |CH.P.... IF NO R|
00000740: 49 47 48 54 20 54 48 45 4E 20 49 4E 53 45 52 54 |IGHT THEN INSERT|
00000750: 00 73 0F 04 01 8B 52 25 28 52 4F 4F 54 25 29 B2 |.s....R%(ROOT%).|
00000760: 30 A7 52 25 28 52 4F 4F 54 25 29 B2 50 25 3A 89 |0.R%(ROOT%).P%:.|
00000770: 32 38 30 00 A1 0F 0E 01 52 4F 4F 54 25 B2 52 25 |280.....ROOT%.R%|
00000780: 28 52 4F 4F 54 25 29 3A 89 32 31 30 3A 8F 20 52 |(ROOT%):.210:. R|
00000790: 49 47 48 54 20 42 45 43 4F 4D 45 53 20 52 4F 4F |IGHT BECOMES ROO|
000007A0: 54 00 C2 0F 18 01 4C 25 28 50 25 29 B2 30 3A 52 |T.....L%(P%).0:R|
000007B0: 25 28 50 25 29 B2 30 3A 8F 20 4E 45 57 20 4C 45 |%(P%).0:. NEW LE|
000007C0: 41 46 00 C8 0F 22 01 8E 00 DF 0F 2C 01 8F 20 52 |AF...".....,.. R|
000007D0: 45 41 44 20 44 49 52 45 43 54 4F 52 49 45 53 00 |EAD DIRECTORIES.|
000007E0: 18 10 2E 01 99 22 93 11 11 11 11 22 A3 36 29 22 |.....".....".6)"|
000007F0: 1F 12 20 20 C9 4E 53 45 52 54 20 C4 49 53 4B 20 |.. .NSERT .ISK |
00000800: 49 4E 20 C4 52 49 56 45 20 30 20 20 22 3A 8D 31 |IN .RIVE 0 ":.1|
00000810: 39 39 38 3A 99 22 93 22 00 5D 10 30 01 44 25 B2 |998:.".".].0.D%.|
00000820: 50 25 AA 31 3A 50 24 B2 C7 28 B5 28 44 25 AD 32 |P%.1:P$..(.(D%.2|
00000830: 35 36 29 29 3A 50 24 B2 C7 28 44 25 AB 32 35 36 |56)):P$..(D%.256|
00000840: AC C6 28 50 24 29 29 AA 50 24 3A 8F 20 50 4F 49 |..(P$)).P$:. POI|
00000850: 4E 54 45 52 53 20 54 4F 20 44 49 53 4B 00 70 10 |NTERS TO DISK.p.|
00000860: 31 01 9F 31 35 2C 38 2C 31 35 3A 8D 34 30 30 30 |1..15,8,15:.4000|
00000870: 00 9E 10 32 01 9F 31 2C 38 2C 30 2C 22 24 30 22 |...2..1,8,0,"$0"|
00000880: 3A 8D 34 30 30 30 3A 8B 5A 31 B3 B1 30 A7 99 22 |:.4000:.Z1..0.."|
00000890: 93 22 3A A0 31 3A A0 31 35 3A 89 34 39 30 00 C1 |.":.1:.15:.490..|
000008A0: 10 33 01 99 22 11 11 11 11 1D 1D 1D 1D 1D 1F D2 |.3.."...........|
000008B0: C5 C1 C4 C9 CE C7 20 C4 C9 D2 C5 C3 D4 CF D2 D9 |...... .........|
000008C0: 22 00 E2 10 34 01 99 22 11 11 11 11 1D 1C C4 49 |"...4..".......I|
000008D0: 52 45 43 54 4F 52 59 20 C5 4E 54 52 49 45 53 3A |RECTORY .NTRIES:|
000008E0: 90 22 00 04 11 36 01 A1 23 31 2C 41 24 2C 41 24 |."...6..#1,A$,A$|
000008F0: 3A 8F 20 53 4B 49 50 20 4C 4F 41 44 20 41 44 44 |:. SKIP LOAD ADD|
00000900: 52 45 53 53 00 2A 11 40 01 A1 23 31 2C 41 24 2C |RESS.*.@..#1,A$,|
00000910: 41 24 3A 8F 20 53 4B 49 50 20 54 52 41 43 4B 20 |A$:. SKIP TRACK |
00000920: 41 4E 44 20 53 45 43 54 4F 52 00 4C 11 4A 01 A1 |AND SECTOR.L.J..|
00000930: 23 31 2C 42 4C 24 2C 42 48 24 3A 8F 20 47 45 54 |#1,BL$,BH$:. GET|
00000940: 20 23 20 4F 46 20 42 4C 4F 43 4B 53 00 65 11 4F | # OF BLOCKS.e.O|
00000950: 01 8B 42 4C 24 B2 22 22 A7 42 4C 24 B2 42 4C 24 |..BL$."".BL$.BL$|
00000960: AA C7 28 30 29 00 7E 11 50 01 8B 42 48 24 B2 22 |..(0).~.P..BH$."|
00000970: 22 A7 42 48 24 B2 42 48 24 AA C7 28 30 29 00 97 |".BH$.BH$..(0)..|
00000980: 11 68 01 A1 23 31 2C 41 24 3A 8B 20 53 54 B3 B1 |.h..#1,A$:. ST..|
00000990: 30 20 A7 20 34 36 30 00 BA 11 72 01 8B 20 41 24 |0 . 460...r.. A$|
000009A0: B3 B1 C7 28 33 34 29 20 A7 20 33 36 30 3A 8F 20 |...(34) . 360:. |
000009B0: 46 49 4E 44 20 51 55 4F 54 45 00 D9 11 76 01 99 |FIND QUOTE...v..|
000009C0: A3 32 32 29 3B 22 91 20 20 20 20 20 9D 9D 9D 9D |.22);". ....|
000009D0: 9D 22 50 25 AB 44 25 AA 31 00 EF 11 77 01 50 25 |."P%.D%.1...w.P%|
000009E0: B2 50 25 AA 31 3A 44 24 28 50 25 29 B2 22 22 00 |.P%.1:D$(P%)."".|
000009F0: 2D 12 7C 01 A1 23 31 2C 41 24 3A 8B 20 41 24 B3 |-.|..#1,A$:. A$.|
00000A00: B1 C7 28 33 34 29 A7 44 24 28 50 25 29 B2 44 24 |..(34).D$(P%).D$|
00000A10: 28 50 25 29 AA 41 24 3A 89 33 38 30 3A 8F 20 52 |(P%).A$:.380:. R|
00000A20: 45 41 44 20 46 49 4C 45 20 4E 41 4D 45 00 65 12 |EAD FILE NAME.e.|
00000A30: 86 01 A1 23 31 2C 41 24 3A 8B 20 41 24 B2 C7 28 |...#1,A$:. A$..(|
00000A40: 33 32 29 20 A7 20 33 39 30 3A 8F 20 53 4B 49 50 |32) . 390:. SKIP|
00000A50: 20 53 50 41 43 45 53 20 54 49 4C 20 46 49 4C 45 | SPACES TIL FILE|
00000A60: 20 54 59 50 45 00 6F 12 90 01 43 24 B2 22 22 00 | TYPE.o...C$."".|
00000A70: B3 12 9A 01 43 24 B2 43 24 AA 41 24 3A A1 23 31 |....C$.C$.A$:.#1|
00000A80: 2C 41 24 3A 8B 20 41 24 B3 B1 22 22 20 20 A7 20 |,A$:. A$.."" . |
00000A90: 34 31 30 3A 87 20 46 49 4C 45 20 54 59 50 45 2E |410:. FILE TYPE.|
00000AA0: 20 45 4E 54 52 59 20 80 53 20 57 49 54 48 20 4E | ENTRY .S WITH N|
00000AB0: 55 4C 4C 00 CC 12 9F 01 8B 44 25 B3 B1 50 25 AF |ULL......D%..P%.|
00000AC0: 46 31 25 B2 30 A7 46 31 25 B2 50 25 00 03 13 A4 |F1%.0.F1%.P%....|
00000AD0: 01 8B 44 25 B3 B1 50 25 A7 44 24 28 50 25 29 B2 |..D%..P%.D$(P%).|
00000AE0: 44 24 28 50 25 29 AA 42 4C 24 AA 42 48 24 AA C8 |D$(P%).BL$.BH$..|
00000AF0: 28 43 24 2C 33 29 AA 50 24 3A 8D 32 30 30 3A 89 |(C$,3).P$:.200:.|
00000B00: 34 35 30 00 3A 13 AE 01 44 24 28 44 25 29 B2 44 |450.:...D$(D%).D|
00000B10: 24 28 44 25 29 AA C8 28 43 24 2C 32 29 3A 99 22 |$(D%)..(C$,2):."|
00000B20: 91 91 91 1E 20 C4 49 53 4B 20 C9 C4 3A 20 1F 22 |.... .ISK ..: ."|
00000B30: 44 24 28 44 25 29 22 11 11 22 00 4B 13 C2 01 8B |D$(D%)"..".K....|
00000B40: 20 53 54 B2 30 20 A7 20 33 32 30 00 71 13 CC 01 | ST.0 . 320.q...|
00000B50: 8F 20 41 50 50 45 4E 44 20 46 52 45 45 20 42 4C |. APPEND FREE BL|
00000B60: 4F 43 4B 53 20 54 4F 20 44 49 53 4B 20 4E 41 4D |OCKS TO DISK NAM|
00000B70: 45 00 8B 13 D1 01 44 24 28 44 25 29 B2 44 24 28 |E.....D$(D%).D$(|
00000B80: 44 25 29 AA 42 4C 24 AA 42 48 24 00 96 13 D6 01 |D%).BL$.BH$.....|
00000B90: A0 31 3A A0 31 35 00 BF 13 DA 01 58 25 B2 28 50 |.1:.15.....X%.(P|
00000BA0: 25 AA 31 29 AD 32 35 36 3A 8F 20 41 44 44 20 50 |%.1).256:. ADD P|
00000BB0: 54 52 20 54 4F 20 4E 45 58 54 20 44 49 53 4B 00 |TR TO NEXT DISK.|
00000BC0: E6 13 DD 01 44 24 28 44 25 29 B2 44 24 28 44 25 |....D$(D%).D$(D%|
00000BD0: 29 AA C7 28 50 25 AA 31 AB 32 35 36 AC 58 25 29 |)..(P%.1.256.X%)|
00000BE0: AA C7 28 58 25 29 00 1B 14 E0 01 99 22 93 11 11 |..(X%)......"...|
00000BF0: 11 1E 20 12 20 20 20 20 20 D9 4F 55 20 CD 41 59 |.. . .OU .AY|
00000C00: 20 D2 45 4D 4F 56 45 20 D9 4F 55 52 20 C4 49 53 | .EMOVE .OUR .IS|
00000C10: 4B 20 CE 4F 57 2E 20 20 20 20 22 00 50 14 EA 01 |K .OW. ".P...|
00000C20: 99 22 11 11 11 11 11 1F 22 A3 33 29 22 12 C9 4E |."......".3)"..N|
00000C30: 53 45 52 54 20 CE 45 58 54 20 C4 49 53 4B 20 41 |SERT .EXT .ISK A|
00000C40: 4E 44 20 D0 52 45 53 53 20 D2 45 54 55 52 4E 22 |ND .RESS .ETURN"|
00000C50: 00 64 14 EB 01 99 A3 31 37 29 22 98 11 11 12 20 |.d.....17)".... |
00000C60: CF D2 20 22 00 95 14 EC 01 99 22 11 11 22 A3 33 |.. "......"..".3|
00000C70: 29 22 1C 12 D0 52 45 53 53 20 27 C4 27 20 54 4F |)"...RESS '.' TO|
00000C80: 20 D2 45 54 55 52 4E 20 54 4F 20 CD 41 49 4E 20 | .ETURN TO .AIN |
00000C90: CD 45 4E 55 22 00 B0 14 ED 01 8D 32 30 30 30 3A |.ENU"......2000:|
00000CA0: 8B 49 24 B2 22 44 22 B0 49 24 B2 22 C4 22 A7 8E |.I$."D".I$."."..|
00000CB0: 00 BE 14 F3 01 99 22 93 22 3A 89 33 30 34 00 D8 |......".":.304..|
00000CC0: 14 F4 01 8F 20 44 49 53 50 4C 41 59 20 44 49 52 |.... DISPLAY DIR|
00000CD0: 45 43 54 4F 52 49 45 53 00 1C 15 F5 01 8B 44 24 |ECTORIES......D$|
00000CE0: 28 30 29 B2 22 22 A7 99 22 93 11 11 11 11 22 A3 |(0).""..".....".|
00000CF0: 34 29 22 1C 12 20 20 20 20 CE 4F 20 C4 49 53 4B |4)".. .O .ISK|
00000D00: 20 C9 C4 27 53 20 49 4E 20 CD 45 4D 4F 52 59 20 | ..'S IN .EMORY |
00000D10: 20 20 20 22 3A 8D 31 39 39 39 3A 8E 00 3C 15 FE | ":.1999:..<..|
00000D20: 01 99 22 93 22 3A 58 25 B2 30 3A 8F 20 46 49 52 |..".":X%.0:. FIR|
00000D30: 53 54 20 44 49 53 4B 20 4E 41 4D 45 00 64 15 03 |ST DISK NAME.d..|
00000D40: 02 49 B2 30 3A 44 24 B2 44 24 28 58 25 29 3A 8D |.I.0:D$.D$(X%):.|
00000D50: 36 30 30 30 3A 5A 35 24 B2 5A 31 24 3A 5A 36 24 |6000:Z5$.Z1$:Z6$|
00000D60: B2 5A 33 24 00 85 15 04 02 99 22 90 12 11 22 5A |.Z3$......"..."Z|
00000D70: 35 24 3B 22 20 C6 52 45 45 20 C2 4C 4F 43 4B 53 |5$;" .REE .LOCKS|
00000D80: 3A 22 5A 36 24 00 9D 15 08 02 81 4A B2 30 A4 33 |:"Z6$......J.0.3|
00000D90: 38 3A 99 22 B9 22 3B 3A 82 3A 99 3A 99 00 AF 15 |8:.".";:.:.:....|
00000DA0: 12 02 8B 58 25 AA 31 B2 50 54 25 A7 35 38 30 00 |...X%.1.PT%.580.|
00000DB0: D0 15 17 02 81 4A B2 58 25 AA 31 A4 50 54 25 AB |.....J.X%.1.PT%.|
00000DC0: 31 3A 44 24 B2 44 24 28 4A 29 3A 8D 35 30 30 30 |1:D$.D$(J):.5000|
00000DD0: 00 ED 15 1C 02 99 5A 31 24 A3 32 30 29 5A 32 24 |......Z1$.20)Z2$|
00000DE0: A3 33 30 29 5A 33 24 3A 49 B2 49 AA 31 00 FB 15 |.30)Z3$:I.I.1...|
00000DF0: 26 02 8B 49 B3 31 35 A7 35 36 30 00 1D 16 2B 02 |&..I.15.560...+.|
00000E00: 8D 31 39 39 39 3A 49 B2 30 3A 99 22 93 1C 12 20 |.1999:I.0:."... |
00000E10: 20 C3 4F 4E 54 49 4E 55 45 44 20 20 22 00 3E 16 | .ONTINUED ".>.|
00000E20: 2C 02 99 22 90 12 11 22 5A 35 24 3B 22 20 C6 52 |,.."..."Z5$;" .R|
00000E30: 45 45 20 C2 4C 4F 43 4B 53 3A 22 5A 36 24 00 56 |EE .LOCKS:"Z6$.V|
00000E40: 16 2D 02 81 4B B2 30 A4 33 38 3A 99 22 B9 22 3B |.-..K.0.38:.".";|
00000E50: 3A 82 3A 99 3A 99 00 5C 16 30 02 82 00 71 16 44 |:.:.:..\.0...q.D|
00000E60: 02 8F 20 4E 45 58 54 20 44 49 52 45 43 54 4F 52 |.. NEXT DIRECTOR|
00000E70: 59 00 99 16 49 02 8D 31 39 39 39 3A 8B 44 24 28 |Y...I..1999:.D$(|
00000E80: 50 54 25 29 B3 B1 22 22 A7 58 25 B2 50 54 25 3A |PT%).."".X%.PT%:|
00000E90: 99 22 93 22 3A 89 35 31 35 00 9F 16 4E 02 8E 00 |.".":.515...N...|
00000EA0: B7 16 BC 02 8F 20 50 52 49 4E 54 20 44 49 52 45 |..... PRINT DIRE|
00000EB0: 43 54 4F 52 49 45 53 00 FB 16 BD 02 8B 44 24 28 |CTORIES......D$(|
00000EC0: 30 29 B2 22 22 A7 99 22 93 11 11 11 11 22 A3 34 |0).""..".....".4|
00000ED0: 29 22 1C 12 20 20 20 20 CE 4F 20 C4 49 53 4B 20 |)".. .O .ISK |
00000EE0: C9 C4 27 53 20 49 4E 20 CD 45 4D 4F 52 59 20 20 |..'S IN .EMORY |
00000EF0: 20 20 22 3A 8D 31 39 39 39 3A 8E 00 21 17 BE 02 | ":.1999:..!...|
00000F00: 99 22 93 11 11 11 11 22 A3 31 30 29 22 1C 12 20 |.".....".10)".. |
00000F10: D4 55 52 4E 20 4F 4E 20 D0 52 49 4E 54 45 52 20 |.URN ON .RINTER |
00000F20: 22 00 46 17 BF 02 99 22 11 11 11 22 A3 31 32 29 |".F...."...".12)|
00000F30: 22 1F 12 20 C1 4C 49 47 4E 20 C6 4F 52 4D 20 22 |".. .LIGN .ORM "|
00000F40: 3A 8D 31 39 39 38 00 70 17 C0 02 9F 34 2C 34 2C |:.1998.p....4,4,|
00000F50: 30 3A 98 34 2C C7 28 31 37 29 3B 3A 8F 20 49 4E |0:.4,.(17);:. IN|
00000F60: 49 54 49 41 4C 49 5A 45 20 50 52 49 4E 54 45 52 |ITIALIZE PRINTER|
00000F70: 00 77 17 C1 02 98 34 00 92 17 C3 02 A0 34 3A 9F |.w....4......4:.|
00000F80: 34 2C 34 2C 30 3A 8F 20 55 50 50 45 52 20 43 41 |4,4,0:. UPPER CA|
00000F90: 53 45 00 CE 17 C4 02 98 34 2C C7 28 31 34 29 22 |SE......4,.(14)"|
00000FA0: 20 20 20 20 20 20 20 20 44 49 53 4B 20 44 49 52 | DISK DIR|
00000FB0: 45 43 54 4F 52 49 45 53 22 C7 28 31 33 29 C7 28 |ECTORIES".(13).(|
00000FC0: 31 33 29 C7 28 31 33 29 C7 28 31 33 29 3B 00 EA |13).(13).(13);..|
00000FD0: 17 C5 02 98 34 2C C7 28 31 35 29 3B 3A 8F 20 4E |....4,.(15);:. N|
00000FE0: 4F 52 4D 41 4C 20 53 49 5A 45 00 05 18 C6 02 58 |ORMAL SIZE.....X|
00000FF0: 25 B2 30 3A 8F 20 46 49 52 53 54 20 44 49 53 4B |%.0:. FIRST DISK|
00001000: 20 4E 41 4D 45 00 19 18 CB 02 44 24 B2 44 24 28 | NAME.....D$.D$(|
00001010: 58 25 29 3A 8D 36 30 30 30 00 50 18 CC 02 98 34 |X%):.6000.P....4|
00001020: 2C 5A 31 24 3B 22 20 20 20 20 20 20 20 20 20 20 |,Z1$;" |
00001030: 20 20 20 20 20 20 20 20 20 20 20 46 52 45 45 20 | FREE |
00001040: 42 4C 4F 43 4B 53 3A 22 5A 33 24 C7 28 31 33 29 |BLOCKS:"Z3$.(13)|
00001050: 00 70 18 D0 02 81 4A B2 30 A4 37 30 3A 98 34 2C |.p....J.0.70:.4,|
00001060: 22 2A 22 3B 3A 82 3A 98 34 2C C7 28 31 33 29 3B |"*";:.:.4,.(13);|
00001070: 00 98 18 D5 02 98 34 2C 22 46 49 4C 45 20 4E 41 |......4,"FILE NA|
00001080: 4D 45 20 20 20 20 20 20 20 20 20 54 59 50 45 20 |ME TYPE |
00001090: 20 20 42 4C 4B 53 22 3B 00 D6 18 D6 02 98 34 2C | BLKS";......4,|
000010A0: 54 24 C7 28 35 31 29 C7 28 35 34 29 22 46 49 4C |T$.(51).(54)"FIL|
000010B0: 45 20 4E 41 4D 45 20 20 20 20 20 20 20 20 20 54 |E NAME T|
000010C0: 59 50 45 20 20 20 42 4C 4B 53 22 C7 28 31 30 29 |YPE BLKS".(10)|
000010D0: C7 28 31 33 29 3B 00 F6 18 D7 02 81 4A B2 30 A4 |.(13);......J.0.|
000010E0: 37 30 3A 98 34 2C 22 2A 22 3B 3A 82 3A 98 34 2C |70:.4,"*";:.:.4,|
000010F0: C7 28 31 33 29 3B 00 0C 19 DA 02 49 B2 30 3A 8B |.(13);.....I.0:.|
00001100: 58 25 AA 31 B2 50 54 25 A7 37 38 30 00 2D 19 DF |X%.1.PT%.780.-..|
00001110: 02 81 4A B2 58 25 AA 31 A4 50 54 25 AB 31 3A 44 |..J.X%.1.PT%.1:D|
00001120: 24 B2 44 24 28 4A 29 3A 8D 35 30 30 30 00 66 19 |$.D$(J):.5000.f.|
00001130: E4 02 98 34 2C 54 24 C7 28 4C 31 29 C7 28 4C 32 |...4,T$.(L1).(L2|
00001140: 29 5A 31 24 54 24 C7 28 41 31 29 C7 28 41 32 29 |)Z1$T$.(A1).(A2)|
00001150: 5A 32 24 54 24 C7 28 42 31 29 C7 28 42 32 29 5A |Z2$T$.(B1).(B2)Z|
00001160: 33 24 43 52 24 3B 00 9D 19 E5 02 8B 49 B2 30 A7 |3$CR$;......I.0.|
00001170: 4C 31 B2 35 31 3A 4C 32 B2 35 34 3A 41 31 B2 35 |L1.51:L2.54:A1.5|
00001180: 33 3A 41 32 B2 35 32 3A 42 31 B2 35 33 3A 42 32 |3:A2.52:B1.53:B2|
00001190: B2 35 37 3A 43 52 24 B2 C7 28 31 33 29 00 D3 19 |.57:CR$..(13)...|
000011A0: E6 02 8B 49 B2 31 A7 4C 31 B2 34 38 3A 4C 32 B2 |...I.1.L1.48:L2.|
000011B0: 34 38 3A 41 31 B2 34 39 3A 41 32 B2 35 36 3A 42 |48:A1.49:A2.56:B|
000011C0: 31 B2 35 30 3A 42 32 B2 35 31 3A 43 52 24 B2 C7 |1.50:B2.51:CR$..|
000011D0: 28 30 29 00 DD 19 E7 02 49 B2 31 AB 49 00 E3 19 |(0).....I.1.I...|
000011E0: F8 02 82 00 F8 19 0C 03 8F 20 4E 45 58 54 20 44 |......... NEXT D|
000011F0: 49 52 45 43 54 4F 52 59 00 0A 1A 0D 03 98 34 2C |IRECTORY......4,|
00001200: C7 28 31 33 29 C7 28 31 33 29 00 27 1A 11 03 8B |.(13).(13).'....|
00001210: 44 24 28 50 54 25 29 B3 B1 22 22 A7 58 25 B2 50 |D$(PT%).."".X%.P|
00001220: 54 25 3A 89 37 31 35 00 30 1A 16 03 A0 34 3A 8E |T%:.715.0....4:.|
00001230: 00 46 1A 84 03 8F 20 50 52 49 4E 54 20 46 49 4C |.F.... PRINT FIL|
00001240: 45 4E 41 4D 45 53 00 83 1A 85 03 8B 46 31 25 B2 |ENAMES......F1%.|
00001250: 30 A7 99 22 93 11 11 11 11 1C 22 A3 36 29 22 12 |0.."......".6)".|
00001260: 20 20 CE 4F 20 C6 49 4C 45 4E 41 4D 45 53 20 49 | .O .ILENAMES I|
00001270: 4E 20 CD 45 4D 4F 52 59 20 20 22 3A 8D 31 39 39 |N .EMORY ":.199|
00001280: 39 3A 8E 00 A9 1A 86 03 99 22 93 11 11 11 11 22 |9:......."....."|
00001290: A3 31 30 29 22 1C 12 20 D4 55 52 4E 20 4F 4E 20 |.10)".. .URN ON |
000012A0: D0 52 49 4E 54 45 52 20 22 00 C8 1A 87 03 99 22 |.RINTER "......"|
000012B0: 11 11 11 22 A3 31 32 29 22 1F 12 20 C1 4C 49 47 |...".12)".. .LIG|
000012C0: 4E 20 C6 4F 52 4D 20 22 00 D2 1A 88 03 8D 31 39 |N .ORM "......19|
000012D0: 39 38 00 FC 1A 8E 03 9F 34 2C 34 2C 30 3A 98 34 |98......4,4,0:.4|
000012E0: 2C C7 28 31 37 29 3B 3A 8F 20 49 4E 49 54 49 41 |,.(17);:. INITIA|
000012F0: 4C 49 5A 45 20 50 52 49 4E 54 45 52 00 03 1B 93 |LIZE PRINTER....|
00001300: 03 98 34 00 29 1B A2 03 A0 34 3A 9F 34 2C 34 2C |..4.)....4:.4,4,|
00001310: 30 3A 8F 20 52 45 4F 50 45 4E 20 46 4F 52 20 55 |0:. REOPEN FOR U|
00001320: 50 50 45 52 20 43 41 53 45 00 62 1B AC 03 98 34 |PPER CASE.b....4|
00001330: 2C C7 28 31 34 29 22 20 20 20 20 20 20 20 20 44 |,.(14)" D|
00001340: 49 52 45 43 54 4F 52 59 20 4F 46 20 46 49 4C 45 |IRECTORY OF FILE|
00001350: 53 22 C7 28 31 33 29 C7 28 31 33 29 C7 28 31 33 |S".(13).(13).(13|
00001360: 29 3B 00 75 1B AD 03 98 34 2C C7 28 31 35 29 C7 |);.u....4,.(15).|
00001370: 28 31 33 29 3B 00 95 1B B1 03 81 49 B2 30 A4 36 |(13);......I.0.6|
00001380: 30 3A 98 34 2C 22 2A 22 3B 3A 82 3A 98 34 2C C7 |0:.4,"*";:.:.4,.|
00001390: 28 31 33 29 3B 00 DB 1B B6 03 98 34 2C C7 28 31 |(13);......4,.(1|
000013A0: 35 29 22 46 49 4C 45 20 4E 41 4D 45 20 20 20 20 |5)"FILE NAME |
000013B0: 20 20 20 20 54 59 50 45 20 20 20 20 20 20 20 20 | TYPE |
000013C0: 20 42 4C 4B 53 20 20 20 20 20 20 20 20 20 44 49 | BLKS DI|
000013D0: 53 4B 20 49 44 22 C7 28 31 30 29 00 FB 1B C0 03 |SK ID".(10).....|
000013E0: 81 49 B2 30 A4 36 30 3A 98 34 2C 22 2A 22 3B 3A |.I.0.60:.4,"*";:|
000013F0: 82 3A 98 34 2C C7 28 31 33 29 3B 00 07 1C DE 03 |.:.4,.(13);.....|
00001400: 8D 31 30 30 3A A0 34 00 0D 1C E7 03 8E 00 26 1C |.100:.4.......&.|
00001410: E8 03 8F 20 44 49 53 50 4C 41 59 20 44 49 53 4B |... DISPLAY DISK|
00001420: 20 4E 41 4D 45 53 00 6A 1C E9 03 8B 44 24 28 30 | NAMES.j....D$(0|
00001430: 29 B2 22 22 A7 99 22 93 11 11 11 11 22 A3 34 29 |).""..".....".4)|
00001440: 22 1C 12 20 20 20 20 CE 4F 20 C4 49 53 4B 20 C9 |".. .O .ISK .|
00001450: C4 27 53 20 49 4E 20 CD 45 4D 4F 52 59 20 20 20 |.'S IN .EMORY |
00001460: 20 22 3A 8D 31 39 39 39 3A 8E 00 85 1C EC 03 58 | ":.1999:......X|
00001470: 25 B2 30 3A 8F 20 46 49 52 53 54 20 44 49 53 4B |%.0:. FIRST DISK|
00001480: 20 4E 41 4D 45 00 B9 1C ED 03 99 22 93 11 11 90 | NAME......"....|
00001490: 12 20 20 20 C4 49 53 4B 20 C9 C4 20 20 20 20 D6 |. .ISK .. .|
000014A0: 4F 4C 55 4D 45 20 20 20 20 20 20 20 20 20 20 20 |OLUME |
000014B0: 20 20 20 20 20 20 20 20 22 00 D1 1C EE 03 81 49 | "......I|
000014C0: B2 30 A4 33 38 3A 99 22 B9 22 3B 3A 82 3A 99 3A |.0.38:.".";:.:.:|
000014D0: 99 00 D9 1C EF 03 49 B2 30 00 F3 1C F2 03 49 B2 |......I.0.....I.|
000014E0: 49 AA 31 3A 44 24 B2 44 24 28 58 25 29 3A 8D 36 |I.1:D$.D$(X%):.6|
000014F0: 30 30 30 00 0F 1D F7 03 99 5A 31 24 3B 22 20 46 |000......Z1$;" F|
00001500: 52 45 45 20 42 4C 4F 43 4B 53 3A 22 5A 33 24 00 |REE BLOCKS:"Z3$.|
00001510: 27 1D FC 03 8B 44 24 28 50 54 25 29 B2 22 22 A7 |'....D$(PT%)."".|
00001520: 8D 31 39 39 39 3A 8E 00 32 1D 01 04 58 25 B2 50 |.1999:..2...X%.P|
00001530: 54 25 00 48 1D 06 04 8B 49 B1 31 34 A7 8D 31 39 |T%.H....I.14..19|
00001540: 39 39 3A 89 31 30 30 35 00 52 1D 0B 04 89 31 30 |99:.1005.R....10|
00001550: 31 30 00 69 1D 1A 04 8F 20 50 52 49 4E 54 20 44 |10.i.... PRINT D|
00001560: 49 53 4B 20 4E 41 4D 45 53 00 AA 1D 1B 04 8B 44 |ISK NAMES......D|
00001570: 24 28 30 29 B2 22 22 A7 99 22 93 11 11 11 11 22 |$(0)."".."....."|
00001580: A3 34 29 22 1C 12 20 20 20 20 CE 4F 20 C4 49 53 |.4)".. .O .IS|
00001590: 4B 20 C9 C4 27 53 20 49 4E 20 CD 45 4D 4F 52 59 |K ..'S IN .EMORY|
000015A0: 20 20 20 20 22 3A 8D 31 39 39 00 D0 1D 1C 04 99 | ":.199......|
000015B0: 22 93 11 11 11 11 22 A3 31 30 29 22 1C 12 20 D4 |".....".10)".. .|
000015C0: 55 52 4E 20 4F 4E 20 D0 52 49 4E 54 45 52 20 22 |URN ON .RINTER "|
000015D0: 00 EF 1D 1D 04 99 22 11 11 11 22 A3 31 32 29 22 |......"...".12)"|
000015E0: 1F 12 20 C1 4C 49 47 4E 20 C6 4F 52 4D 20 22 00 |.. .LIGN .ORM ".|
000015F0: F9 1D 1E 04 8D 31 39 39 38 00 23 1E 1F 04 9F 34 |.....1998.#....4|
00001600: 2C 34 2C 30 3A 98 34 2C C7 28 31 37 29 3B 3A 8F |,4,0:.4,.(17);:.|
00001610: 20 49 4E 49 54 49 41 4C 49 5A 45 20 50 52 49 4E | INITIALIZE PRIN|
00001620: 54 45 52 00 2A 1E 20 04 98 34 00 6B 1E 21 04 8F |TER.*. ..4.k.!..|
00001630: 20 20 20 20 20 20 50 52 49 4E 54 23 34 2C 43 48 | PRINT#4,CH|
00001640: 52 24 28 32 37 29 43 48 52 24 28 36 38 29 43 48 |R$(27)CHR$(68)CH|
00001650: 52 24 28 34 30 29 43 48 52 24 28 30 29 3B 3A 52 |R$(40)CHR$(0);:R|
00001660: 45 4D 20 53 45 54 20 54 41 42 53 00 91 1E 22 04 |EM SET TABS...".|
00001670: A0 34 3A 9F 34 2C 34 2C 30 3A 8F 20 52 45 4F 50 |.4:.4,4,0:. REOP|
00001680: 45 4E 20 46 4F 52 20 55 50 50 45 52 20 43 41 53 |EN FOR UPPER CAS|
00001690: 45 00 C9 1E 23 04 98 34 2C C7 28 31 34 29 22 20 |E...#..4,.(14)" |
000016A0: 20 20 20 20 20 44 49 53 4B 20 49 44 27 53 22 C7 | DISK ID'S".|
000016B0: 28 31 33 29 C7 28 31 33 29 C7 28 31 33 29 C7 28 |(13).(13).(13).(|
000016C0: 31 33 29 C7 28 31 35 29 3B 00 E8 1E 25 04 81 49 |13).(15);...%..I|
000016D0: B2 30 A4 33 38 3A 98 34 2C 22 2A 22 3B 3A 82 3A |.0.38:.4,"*";:.:|
000016E0: 98 34 2C C7 28 31 30 29 00 03 1F 27 04 58 25 B2 |.4,.(10)...'.X%.|
000016F0: 30 3A 8F 20 46 49 52 53 54 20 44 49 53 4B 20 4E |0:. FIRST DISK N|
00001700: 41 4D 45 00 3A 1F 29 04 98 34 2C C7 28 31 35 29 |AME.:.)..4,.(15)|
00001710: 22 44 49 53 4B 20 49 44 20 20 20 20 20 20 20 20 |"DISK ID |
00001720: 20 20 20 20 20 20 20 20 56 4F 4C 55 4D 45 22 C7 | VOLUME".|
00001730: 28 31 30 29 C7 28 31 33 29 3B 00 59 1F 2E 04 81 |(10).(13);.Y....|
00001740: 49 B2 30 A4 33 38 3A 98 34 2C 22 2A 22 3B 3A 82 |I.0.38:.4,"*";:.|
00001750: 3A 98 34 2C C7 28 31 30 29 00 6D 1F 38 04 44 24 |:.4,.(10).m.8.D$|
00001760: B2 44 24 28 58 25 29 3A 8D 36 30 30 30 00 8E 1F |.D$(X%):.6000...|
00001770: 3D 04 98 34 2C 5A 31 24 22 20 20 20 20 20 46 52 |=..4,Z1$" FR|
00001780: 45 45 20 42 4C 4F 43 4B 53 3A 22 5A 33 24 00 A3 |EE BLOCKS:"Z3$..|
00001790: 1F 42 04 8B 44 24 28 50 54 25 29 B2 22 22 A7 A0 |.B..D$(PT%).""..|
000017A0: 34 3A 8E 00 AE 1F 47 04 58 25 B2 50 54 25 00 B8 |4:....G.X%.PT%..|
000017B0: 1F 4A 04 89 31 30 38 30 00 C5 1F 4C 04 99 22 8E |.J..1080...L..".|
000017C0: 90 93 22 3A 80 00 FB 1F CE 07 99 22 11 11 11 12 |..":......."....|
000017D0: 1D 1D 1D 1E 20 20 20 20 D0 52 45 53 53 20 C1 4E |.... .RESS .N|
000017E0: 59 20 CB 45 59 20 D7 48 45 4E 20 D2 45 41 44 59 |Y .EY .HEN .EADY|
000017F0: 20 20 20 20 22 3A 89 32 30 30 30 00 2C 20 CF 07 | ":.2000., ..|
00001800: 99 22 11 11 11 12 1D 1D 1D 90 20 20 20 20 D0 52 |."........ .R|
00001810: 45 53 53 20 C1 4E 59 20 CB 45 59 20 54 4F 20 C3 |ESS .NY .EY TO .|
00001820: 4F 4E 54 49 4E 55 45 20 20 20 20 22 00 46 20 D0 |ONTINUE ".F .|
00001830: 07 49 24 B2 22 22 3A A1 49 24 3A 8B 49 24 B2 22 |.I$."":.I$:.I$."|
00001840: 22 A7 32 30 30 30 00 4C 20 D1 07 8E 00 61 20 A0 |".2000.L ....a .|
00001850: 0F 84 31 35 2C 5A 31 2C 5A 32 24 2C 5A 33 2C 5A |..15,Z1,Z2$,Z3,Z|
00001860: 34 00 6D 20 A1 0F 8B 5A 31 B2 30 A7 8E 00 92 20 |4.m ...Z1.0.... |
00001870: A2 0F 99 A3 31 30 29 22 1C 11 11 11 12 20 20 20 |....10)"..... |
00001880: 20 20 C4 C9 D3 CB 20 C5 D2 D2 CF D2 20 20 20 20 | .... ..... |
00001890: 20 22 00 AC 20 A3 0F 99 A3 32 30 AB C3 28 5A 32 | ".. ....20..(Z2|
000018A0: 24 29 AD 32 29 22 11 11 22 5A 32 24 00 B8 20 A4 |$).2)".."Z2$.. .|
000018B0: 0F 8D 31 39 39 39 3A 8E 00 D7 20 88 13 8F 20 44 |..1999:... ... D|
000018C0: 45 43 4F 44 45 20 46 49 4C 45 4E 41 4D 45 20 45 |ECODE FILENAME E|
000018D0: 4E 54 52 59 20 44 24 00 E4 20 8D 13 4C 25 B2 C3 |NTRY D$.. ..L%..|
000018E0: 28 44 24 29 00 02 21 92 13 5A 31 24 B2 C8 28 44 |(D$)..!..Z1$..(D|
000018F0: 24 2C 4C 25 AB 37 29 3A 8F 20 46 49 4C 45 4E 41 |$,L%.7):. FILENA|
00001900: 4D 45 00 22 21 97 13 5A 32 24 B2 CA 28 44 24 2C |ME."!..Z2$..(D$,|
00001910: 4C 25 AB 34 2C 33 29 3A 8F 20 46 49 4C 45 54 59 |L%.4,3):. FILETY|
00001920: 50 45 00 48 21 9C 13 42 4C 24 B2 CA 28 44 24 2C |PE.H!..BL$..(D$,|
00001930: 4C 25 AB 36 2C 31 29 3A 42 48 24 B2 CA 28 44 24 |L%.6,1):BH$..(D$|
00001940: 2C 4C 25 AB 35 2C 31 29 00 6B 21 9D 13 42 4C B2 |,L%.5,1).k!..BL.|
00001950: C6 28 42 4C 24 AA C7 28 30 29 29 AA 32 35 36 AC |.(BL$..(0)).256.|
00001960: C6 28 42 48 24 AA C7 28 30 29 29 00 A7 21 A6 13 |.(BH$..(0))..!..|
00001970: 42 4C 24 B2 C4 28 42 4C 29 3A 5A 33 24 B2 C8 28 |BL$..(BL):Z3$..(|
00001980: 22 20 20 20 20 22 2C 34 AB C3 28 42 4C 24 29 29 |" ",4..(BL$))|
00001990: AA 42 4C 24 3A 8F 20 4E 55 4D 42 45 52 20 4F 46 |.BL$:. NUMBER OF|
000019A0: 20 42 4C 4F 43 4B 53 00 CB 21 B0 13 50 4C 24 B2 | BLOCKS..!..PL$.|
000019B0: CA 28 44 24 2C 4C 25 AB 31 2C 31 29 3A 50 48 24 |.(D$,L%.1,1):PH$|
000019C0: B2 CA 28 44 24 2C 4C 25 2C 31 29 00 EF 21 B1 13 |..(D$,L%,1)..!..|
000019D0: 50 31 25 B2 C6 28 50 4C 24 AA C7 28 30 29 29 AA |P1%..(PL$..(0)).|
000019E0: 32 35 36 AC C6 28 50 48 24 AA C7 28 30 29 29 00 |256..(PH$..(0)).|
000019F0: 2B 22 BA 13 5A 34 24 B2 C8 28 44 24 28 50 31 25 |+"..Z4$..(D$(P1%|
00001A00: 29 2C C3 28 44 24 28 50 31 25 29 29 AB 34 29 3A |),.(D$(P1%)).4):|
00001A10: 8F 20 44 49 53 4B 20 4E 41 4D 45 20 43 4F 4E 54 |. DISK NAME CONT|
00001A20: 41 49 4E 49 4E 47 20 46 49 4C 45 00 31 22 CE 13 |AINING FILE.1"..|
00001A30: 8E 00 4B 22 70 17 8F 20 44 45 43 4F 44 45 20 44 |..K"p.. DECODE D|
00001A40: 49 53 4B 20 4E 41 4D 45 20 44 24 00 58 22 7A 17 |ISK NAME D$.X"z.|
00001A50: 4C 25 B2 C3 28 44 24 29 00 77 22 84 17 5A 31 24 |L%..(D$).w"..Z1$|
00001A60: B2 C8 28 44 24 2C 4C 25 AB 34 29 3A 8F 20 44 49 |..(D$,L%.4):. DI|
00001A70: 53 4B 20 4E 41 4D 45 00 9D 22 8E 17 42 4C 24 B2 |SK NAME.."..BL$.|
00001A80: CA 28 44 24 2C 4C 25 AB 33 2C 31 29 3A 42 48 24 |.(D$,L%.3,1):BH$|
00001A90: B2 CA 28 44 24 2C 4C 25 AB 32 2C 31 29 00 C0 22 |..(D$,L%.2,1).."|
00001AA0: 98 17 42 4C B2 C6 28 42 4C 24 AA C7 28 30 29 29 |..BL..(BL$..(0))|
00001AB0: AA 32 35 36 AC C6 28 42 48 24 AA C7 28 30 29 29 |.256..(BH$..(0))|
00001AC0: 00 D2 22 A1 17 8B 42 4C B1 39 39 39 A7 42 4C B2 |.."...BL.999.BL.|
00001AD0: AB 31 00 13 23 A2 17 42 4C 24 B2 C4 28 42 4C 29 |.1..#..BL$..(BL)|
00001AE0: 3A 5A 33 24 B2 C8 28 22 20 20 20 20 22 2C 34 AB |:Z3$..(" ",4.|
00001AF0: C3 28 42 4C 24 29 29 AA 42 4C 24 3A 8F 20 4E 55 |.(BL$)).BL$:. NU|
00001B00: 4D 42 45 52 20 4F 46 20 46 52 45 45 20 42 4C 4F |MBER OF FREE BLO|
00001B10: 43 4B 53 00 37 23 AC 17 50 4C 24 B2 CA 28 44 24 |CKS.7#..PL$..(D$|
00001B20: 2C 4C 25 AB 31 2C 31 29 3A 50 48 24 B2 CA 28 44 |,L%.1,1):PH$..(D|
00001B30: 24 2C 4C 25 2C 31 29 00 73 23 B6 17 50 54 25 B2 |$,L%,1).s#..PT%.|
00001B40: C6 28 50 4C 24 AA C7 28 30 29 29 AA 32 35 36 AC |.(PL$..(0)).256.|
00001B50: C6 28 50 48 24 AA C7 28 30 29 29 3A 8F 20 50 54 |.(PH$..(0)):. PT|
00001B60: 52 20 54 4F 20 4E 45 58 54 20 44 49 53 4B 20 4E |R TO NEXT DISK N|
00001B70: 41 4D 45 00 79 23 C0 17 8E 00 00 00 |AME.y#...... |
.......".":.53281,1:.53280,0.M.....6)"..
..DIRECTORY SORTER AND PRINTER":. ADV...
....13)"....PRESENTED BY:":..11)"..BETTE
R SOFTWARE".......10)"..........HIT ANY
KEY TO GO ON"......A$:.A$."".4.....EN.10
00:.D$(EN),L%(EN),R%(EN)......S%(50)....
.P%..1.'...L1.48:L2.48:A1.49:A2.56:B1.50
:B2.51:CR$.G(0).?...T$.G(16):. SET TABS.
U....53281,1:.53280,0......".....".6)"..
".......6)". DIS
K DIRECTORY MANAGER .H.....6)".
"......".. .. MAIN MENU:
"......".. .1. .READ DISK DIRECTORIES".4
...." .2. .DISPLAY DISK DIRECTORIES BY D
ISK".D.#.." .3. .DISPLAY DISK NAMES AND
FREE BLOCKS".J.$.....%.." .4. .PRINT DIS
K DIRECTORIES BY DISK".D.&.." .5. .PRINT
DISK NAMES AND FREE BLOCKS"...(.." .6.
.MERGE, SORT, AND PRINT DISK FILES"...*.
....-.." .7. .QUIT PROGRAM".;.2..".. ..
ENTER NUMBER OF CHOICE ".Y.<..2000:X.
E(I$):.X.1.X.7.60...F.. X . 300,500,1000
,700,1050,900,1100...P..15...D.. INORDER
TRAVERSAL OF TREE...N.TS%..1:ROOT%.F1%:
. EMPTY STACK,ROOT=FIRST FILENAME ENTERE
D...S.. TRAVERSE TREE BELOW ROOT.,.X..L%
(ROOT%).0.130:. NO MORE LEFT.X.}.TS%.TS%
.1:S%(TS%).ROOT%:ROOT%.L%(ROOT%):.115:.
PUSH(ROOT),ROOT=LFT CHLD.....D$.D$(ROOT%
): .5000:. DECODE FILENAME AND OUTPUT.X.
...Z1$.OLD$.150:. CHECK FOR DUPLICATIONS
......4,Z1$T$G(49)G(56)Z2$T$G(50)G(57)Z3
$T$G(52)G(51)Z4$.....OLD$.Z1$.<.... CHEC
K FOR RIGHT CHILDREN.A. ..R%(ROOT%).0.17
0:. NO MORE RIGHT.....ROOT%.R%(ROOT%):.1
15:. RIGHT CHILD BECOMES ROOT...... CHEC
K IF STACK IS EMPTY......TS%..0.ROOT%.S%
(TS%):TS%.TS%.1:.130:. IF NOT, CONT W/ R
OOT=POP.........H.. INSERT NAME IN TREE.
M.I..F1%.0.F1%.D%:L%(F1%).0:R%(F1%).0:.:
. FIRST ENTRY.S.M.ROOT%.1:. SET ROOT TO
FIRST ENTRY...R..D$(P%).D$(ROOT%). 250..
.W.. TRAVERSE LEFT BRANCH.F.... IF NO LE
FT THEN INSERT......L%(ROOT%).0.L%(ROOT%
).P%:.280.....ROOT%.L%(ROOT%):.210:. LEF
T]BECOMES ROOT.2.... TRAVERSE RIGHT BRAN
CH.P.... IF NO RIGHT THEN INSERT.S....R%
(ROOT%).0.R%(ROOT%).P%:.280.....ROOT%.R%
(ROOT%):.210:. RIGHT BECOMES ROOT.B...L%
(P%).0:R%(P%).0:. NEW LEAF.H.".....,.. R
EAD DIRECTORIES......".....".6)".. INSE
RT DISK IN DRIVE 0 ":.1998:.".".].0.D%.
P%.1:P$.G(.(D%.256)):P$.G(D%.256.F(P$)).
P$:. POINTERS TO DISK.P.1..15,8,15:.4000
...2..1,8,0,"$0":.4000:.Z1..0..".": 1: 1
5:.490.A.3.."..........READING DIRECTORY
"...4.."......DIRECTORY ENTRIES:."...6..
#1,A$,A$:. SKIP LOAD ADDRESS.*.@..#1,A$,
A$:. SKIP TRACK AND SECTOR.L.J..#1,BL$,B
H$:. GET # OF BLOCKS.E.O..BL$."".BL$.BL$
.G(0).~.P..BH$."".BH$.BH$.G(0)...H..#1,A
$:. ST..0 . 460...R.. A$..G(34) . 360:.
FIND QUOTE.Y.V...22);". ....."P%.D%.
1...W.P%.P%.1:D$(P%)."".-.|..#1,A$:. A$.
.G(34).D$(P%).D$(P%).A$:.380:. READ FILE
NAME.E....#1,A$:. A$.G(32) . 390:. SKIP
SPACES TIL FILE TYPE.O...C$."".....C$.C
$.A$:.#1,A$:. A$.."" . 410:. FILE TYPE.
ENTRY .S WITH NULL.L....D%..P%.F1%.0.F1
%.P%......D%..P%.D$(P%).D$(P%).BL$.BH$.H
(C$,3).P$:.200:.450.:...D$(D%).D$(D%).H(
C$,2):.".... DISK ID: ."D$(D%)"..".K.B..
ST.0 . 320.Q.L.. APPEND FREE BLOCKS TO
DISK NAME...Q.D$(D%).D$(D%).BL$.BH$...V.
1: 15...Z.X%.(P%.1).256:. ADD PTR TO NE
XT DISK.....D$(D%).D$(D%).G(P%.1.256.X%)
.G(X%)......"..... . YOU MAY REMOVE
YOUR DISK NOW. ".P...."......".3)".IN
SERT NEXT DISK AND PRESS RETURN".D.....1
7)".... OR "......"..".3)"..PRESS 'D' TO
RETURN TO MAIN MENU"......2000:.I$."D".
I$."D"........".":.304.X.... DISPLAY DIR
ECTORIES......D$(0).""..".....".4)"..
NO DISK ID'S IN MEMORY ":.1999:..<..
..".":X%.0:. FIRST DISK NAME.D...I.0:D$.
D$(X%):.6000:Z5$.Z1$:Z6$.Z3$......"..."Z
5$;" FREE BLOCKS:"Z6$......J.0.38:.".";:
.:.:.......X%.1.PT%.580.P....J.X%.1.PT%.
1:D$.D$(J):.5000......Z1$.20)Z2$.30)Z3$:
I.I.1...&..I.15.560...+..1999:I.0:."...
CONTINUED ".>.,.."..."Z5$;" FREE BLOCK
S:"Z6$.V.-..K.0.38:.".";:.:.:..\.0...Q.D
.. NEXT DIRECTORY...I..1999:.D$(PT%)..""
.X%.PT%:.".":.515...N........ PRINT DIRE
CTORIES......D$(0).""..".....".4)"..
NO DISK ID'S IN MEMORY ":.1999:..!...
.".....".10)".. TURN ON PRINTER ".F...."
...".12)".. ALIGN FORM ":.1998.P....4,4,
0:.4,G(17);:. INITIALIZE PRINTER.W.A..4.
..C. 4:.4,4,0:. UPPER CASE.N.D..4,G(14)"
DISK DIRECTORIES"G(13)G(13)G(13)
G(13);...E..4,G(15);:. NORMAL SIZE...F.X
%.0:. FIRST DISK NAME...K.D$.D$(X%):.600
0.P.L..4,Z1$;" FREE
BLOCKS:"Z3$G(13).P.P..J.0.70:.4,"*";:.:.
4,G(13);...U..4,"FILE NAME TYPE
BLKS";.V.V..4,T$G(51)G(54)"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.F.
...4,T$G(L1)G(L2)Z1$T$G(A1)G(A2)Z2$T$G(B
1)G(B2)Z3$CR$;......I.0.L1.51:L2.54:A1.5
3:A2.52:B1.53:B2.57:CR$.G(13).S....I.1.L
1.48:L2.48:A1.49:A2.56:B1.50:B2.51:CR$.G
(0).....I.1.I............ NEXT DIRECTORY
......4,G(13)G(13).'....D$(PT%).."".X%.P
T%:.715.0... 4:..F.... PRINT FILENAMES..
....F1%.0.."......".6)". NO FILENAMES I
N MEMORY ":.1999:.......".....".10)"..
TURN ON PRINTER ".H...."...".12)".. ALIG
N FORM ".R....1998......4,4,0:.4,G(17);:
. INITIALIZE PRINTER......4.)... 4:.4,4,
0:. REOPEN FOR UPPER CASE.B....4,G(14)"
DIRECTORY OF FILES"G(13)G(13)G(13
);.U....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.......&.... DISPLAY DISK NAMES.J
....D$(0).""..".....".4)".. NO DISK I
D'S IN MEMORY ":.1999:......X%.0:. FI
RST DISK NAME......"..... DISK ID V
OLUME ".Q....I.0.38:."
.";:.:.:..Y...I.0.....I.I.1:D$.D$(X%):.6
000......Z1$;" FREE BLOCKS:"Z3$.'....D$(
PT%).""..1999:..2...X%.PT%.H....I.14..19
99:.1005.R....1010.I.... PRINT DISK NAME
S......D$(0).""..".....".4)".. NO DIS
K ID'S IN MEMORY ":.199.P....".....".
10)".. TURN ON PRINTER "......"...".12)"
.. ALIGN FORM "......1998.#....4,4,0:.4,
G(17);:. INITIALIZE PRINTER.*. ..4.K.!..
PRINT#4,CHR$(27)CHR$(68)CHR$(40)CH
R$(0);:REM SET TABS...". 4:.4,4,0:. REOP
EN FOR UPPER CASE.I.#..4,G(14)" DIS
K ID'S"G(13)G(13)G(13)G(13)G(15);...%..I
.0.38:.4,"*";:.:.4,G(10)...'.X%.0:. FIRS
T DISK NAME.:.)..4,G(15)"DISK ID
VOLUME"G(10)G(13);.Y....I.0.38:.
4,"*";:.:.4,G(10).M.8.D$.D$(X%):.6000...
=..4,Z1$" FREE BLOCKS:"Z3$...B..D$(P
T%)."". 4:....G.X%.PT%...J..1080.E.L..".
..":....N.."........ PRESS ANY KEY WH
EN READY ":.2000., O.."........ PR
ESS ANY KEY TO CONTINUE ".F P.I$."":.
I$:.I$."".2000.L Q...A ..15,Z1,Z2$,Z3,Z
4.M ...Z1.0.... ....10)"..... DISK E
RROR ".. ....20.C(Z2$).2)".."Z2$.. .
..1999:..W ... DECODE FILENAME ENTRY D$.
. ..L%.C(D$)..!..Z1$.H(D$,L%.7):. FILENA
ME."!..Z2$.J(D$,L%.4,3):. FILETYPE.H!..B
L$.J(D$,L%.6,1):BH$.J(D$,L%.5,1).K!..BL.
F(BL$.G(0)).256.F(BH$.G(0))..!..BL$.D(BL
):Z3$.H(" ",4.C(BL$)).BL$:. NUMBER OF
BLOCKS.K!..PL$.J(D$,L%.1,1):PH$.J(D$,L%
,1)..!..P1%.F(PL$.G(0)).256.F(PH$.G(0)).
+"..Z4$.H(D$(P1%),C(D$(P1%)).4):. DISK N
AME CONTAINING FILE.1"N...K"P.. DECODE D
ISK NAME D$.X"Z.L%.C(D$).W"..Z1$.H(D$,L%
.4):. DISK NAME.."..BL$.J(D$,L%.3,1):BH$
.J(D$,L%.2,1).."..BL.F(BL$.G(0)).256.F(B
H$.G(0)).R"...BL.999.BL..1..#..BL$.D(BL)
:Z3$.H(" ",4.C(BL$)).BL$:. NUMBER OF
FREE BLOCKS.7#..PL$.J(D$,L%.1,1):PH$.J(D
$,L%,1).S#..PT%.F(PL$.G(0)).256.F(PH$.G(
0)):. PTR TO NEXT DISK NAME.Y#......
> CLICK IMAGE PREVIEW FOR FULL MODAL