00000000: 01 1C 4E 1C 19 00 8F 20 44 49 52 45 43 54 4F 52 |..N.... DIRECTOR|
00000010: 59 20 43 48 41 49 4E 45 52 31 32 38 20 20 28 43 |Y CHAINER128 (C|
00000020: 29 31 39 38 36 20 20 20 20 20 20 42 59 20 53 54 |)1986 BY ST|
00000030: 45 56 45 20 4E 49 43 48 4F 4C 53 20 3A 20 46 52 |EVE NICHOLS : FR|
00000040: 45 45 20 43 4F 50 49 45 53 20 4F 4E 4C 59 00 66 |EE COPIES ONLY.f|
00000050: 1C 23 00 97 35 33 32 38 30 2C 31 35 3A 97 35 33 |.#..53280,15:.53|
00000060: 32 38 31 2C 31 35 00 8C 1C 28 00 99 22 93 20 20 |281,15...(..". |
00000070: 20 20 20 20 20 20 20 20 12 20 44 49 52 2D 43 48 | . DIR-CH|
00000080: 41 49 4E 20 43 2D 31 32 38 20 92 22 00 BA 1C 2D |AIN C-128 ."...-|
00000090: 00 99 22 11 1F 20 20 54 48 49 53 20 50 52 4F 47 |..".. THIS PROG|
000000A0: 52 41 4D 20 43 48 41 49 4E 53 20 44 49 53 4B 20 |RAM CHAINS DISK |
000000B0: 44 49 52 45 43 54 4F 52 59 22 00 E5 1C 2F 00 99 |DIRECTORY".../..|
000000C0: 22 20 20 20 20 4C 49 53 54 49 4E 47 53 2E 20 50 |" LISTINGS. P|
000000D0: 55 54 20 44 49 53 4B 20 49 4E 20 44 52 49 56 45 |UT DISK IN DRIVE|
000000E0: 20 41 4E 44 22 00 0F 1D 30 00 99 22 20 20 20 20 | AND"...0.." |
000000F0: 50 52 45 53 53 20 52 45 54 55 52 4E 20 41 54 20 |PRESS RETURN AT |
00000100: 45 41 43 48 20 4C 49 4E 45 2E 20 52 55 4E 22 00 |EACH LINE. RUN".|
00000110: 3A 1D 31 00 99 22 20 20 20 20 41 47 41 49 4E 20 |:.1.." AGAIN |
00000120: 54 4F 20 41 44 44 20 41 4E 4F 54 48 45 52 20 44 |TO ADD ANOTHER D|
00000130: 49 52 45 43 54 4F 52 59 2E 22 00 82 1D 32 00 41 |IRECTORY."...2.A|
00000140: B2 32 35 36 AC C2 28 34 36 32 35 29 AA C2 28 34 |.256..(4625)..(4|
00000150: 36 32 34 29 AB 37 31 36 39 3A 99 22 11 90 20 22 |624).7169:.".. "|
00000160: 41 22 42 59 54 45 53 20 55 53 45 44 2C 22 36 34 |A"BYTES USED,"64|
00000170: 35 31 31 AB 41 22 42 59 54 45 53 20 4C 45 46 54 |511.A"BYTES LEFT|
00000180: 2E 22 00 B3 1D 3C 00 99 22 11 1C 20 4C 49 53 54 |."...<..".. LIST|
00000190: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 54 4F | THIS PROGRAM TO|
000001A0: 20 53 45 45 20 44 49 52 45 43 54 4F 52 49 45 53 | SEE DIRECTORIES|
000001B0: 2E 97 22 00 D5 1D 46 00 41 25 B2 C2 28 34 36 32 |.."...F.A%..(462|
000001C0: 34 29 3A 42 25 B2 C2 28 34 36 32 35 29 3A 41 25 |4):B%..(4625):A%|
000001D0: B2 41 25 AB 32 00 F1 1D 4B 00 8B 41 25 B3 30 A7 |.A%.2...K..A%.0.|
000001E0: 41 25 B2 41 25 AA 32 35 36 3A 42 25 B2 42 25 AB |A%.A%.256:B%.B%.|
000001F0: 31 00 23 1E 50 00 99 22 11 50 4F 4B 45 34 35 2C |1.#.P..".POKE45,|
00000200: 22 41 25 22 3A 50 4F 4B 45 34 36 2C 22 42 25 22 |"A%":POKE46,"B%"|
00000210: 9D 3A 52 45 4D 1F 20 50 4F 49 4E 54 45 52 53 20 |.:REM. POINTERS |
00000220: 55 50 22 00 5F 1E 5A 00 99 22 97 11 11 4C 4F 41 |UP"._.Z.."...LOA|
00000230: 44 22 C7 28 33 34 29 22 24 22 C7 28 33 34 29 22 |D".(34)"$".(34)"|
00000240: 2C 38 20 20 3A 52 45 4D 1F 20 20 4C 4F 41 44 20 |,8 :REM. LOAD |
00000250: 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 22 00 |DISK DIRECTORY".|
00000260: 94 1E 64 00 99 22 97 11 11 11 11 50 4F 4B 45 34 |..d..".....POKE4|
00000270: 35 2C 31 3A 50 4F 4B 45 34 36 2C 32 38 3A 52 45 |5,1:POKE46,28:RE|
00000280: 4D 20 1F 52 45 53 54 4F 52 45 20 50 4F 49 4E 54 |M .RESTORE POINT|
00000290: 45 52 53 22 00 C2 1E 6E 00 99 22 97 11 11 52 55 |ERS"...n.."...RU|
000002A0: 4E 20 20 20 3A 52 45 4D 1F 20 20 20 41 44 44 20 |N :REM. ADD |
000002B0: 41 4E 4F 54 48 45 52 20 44 49 52 45 43 54 4F 52 |ANOTHER DIRECTOR|
000002C0: 59 22 00 F3 1E 78 00 99 22 97 4C 49 53 54 20 20 |Y"...x..".LIST |
000002D0: 3A 52 45 4D 20 20 20 20 1F 53 45 45 20 44 49 52 |:REM .SEE DIR|
000002E0: 45 43 54 4F 52 49 45 53 97 13 11 11 11 11 11 11 |ECTORIES........|
000002F0: 11 11 22 00 F9 1E 82 00 80 00 00 00 |.."......... |
..N.... DIRECTORY CHAINER128 (C)1986
BY STEVE NICHOLS : FREE COPIES ONLY.F
.#..53280,15:.53281,15...(..".
. DIR-CHAIN C-128 ."...-..".. THIS PROG
RAM CHAINS DISK DIRECTORY".../.." LIS
TINGS. PUT DISK IN DRIVE AND"...0.."
PRESS RETURN AT EACH LINE. RUN".:.1.."
AGAIN TO ADD ANOTHER DIRECTORY."...2.A
.256.B(4625).B(4624).7169:.".. "A"BYTES
USED,"64511.A"BYTES LEFT."...<..".. LIST
THIS PROGRAM TO SEE DIRECTORIES..".U.F.
A%.B(4624):B%.B(4625):A%.A%.2...K..A%.0.
A%.A%.256:B%.B%.1.#.P..".POKE45,"A%":POK
E46,"B%".:REM. POINTERS UP"._.Z.."...LOA
D"G(34)"$"G(34)",8 :REM. LOAD DISK DIR
ECTORY"...D..".....POKE45,1:POKE46,28:RE
M .RESTORE POINTERS".B.N.."...RUN :REM
. ADD ANOTHER DIRECTORY"...X..".LIST
:REM .SEE DIRECTORIES..........".....
....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL