FILE MAGICIAN

FILE INFORMATION

FILENAME(S): FILE MAGICIAN

FILE TYPE(S): PRG, DEL

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-30 18:12:25

APPEARS ON: 7 disk(s)

FILE HASH

333ad3e7e8098a6ebd2da73eb3b63baba580522398358f640caa0048e40f9164

FOUND ON DISKS (7 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
DATARICH	FILE MAGICIAN	PRG	Sailor, Ganheden	17	20	DOWNLOAD FILE
DATARICH	FILE MAGICIAN	DEL	Sailor, Ganheden	35	5	DOWNLOAD FILE
DATARICH	FILE MAGICIAN	PRG	Sailor, Ganheden	17	20	DOWNLOAD FILE
DATARICH	FILE MAGICIAN	PRG	Sailor, Ganheden	23	4	DOWNLOAD FILE
DATARICH	FILE MAGICIAN	PRG	Sailor, Ganheden	17	20	DOWNLOAD FILE
DATARICH	FILE MAGICIAN	PRG	Sailor, Ganheden	17	3	DOWNLOAD FILE
DATARICH	FILE MAGICIAN	PRG	Sailor, Ganheden	17	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 08 20 08 00 00 8F 20  20 20 20 20 20 20 20 20  |.. ....         |
00000010: 20 20 20 20 2D 3D 44 41  54 41 52 49 43 48 3D 2D  |    -=DATARICH=-|
00000020: 00 40 08 01 00 8F 20 20  20 20 20 20 20 20 20 20  |.@....          |
00000030: 20 20 52 54 2E 31 32 20  20 42 4F 58 35 34 34 43  |  RT.12  BOX544C|
00000040: 00 62 08 02 00 8F 20 20  20 20 20 20 20 20 20 20  |.b....          |
00000050: 4D 41 52 59 56 49 4C 4C  45 2C 54 4E 20 33 37 38  |MARYVILLE,TN 378|
00000060: 30 31 00 68 08 03 00 8F  00 8E 08 04 00 8F 20 20  |01.h..........  |
00000070: 20 20 20 20 20 57 52 49  54 45 20 46 4F 52 20 4C  |     WRITE FOR L|
00000080: 49 53 54 49 4E 47 20 4F  46 20 43 2D 36 34 00 B4  |ISTING OF C-64..|
00000090: 08 05 00 8F 20 20 20 20  20 20 20 50 52 4F 47 52  |....       PROGR|
000000A0: 41 4D 53 20 41 56 41 49  4C 41 42 4C 45 20 54 4F  |AMS AVAILABLE TO|
000000B0: 20 59 4F 55 00 BA 08 06  00 8F 00 C0 08 07 00 8F  | YOU............|
000000C0: 00 D8 08 08 00 8F 3A 53  45 50 54 45 4D 42 45 52  |......:SEPTEMBER|
000000D0: 20 36 2C 20 31 39 38 37  00 E1 08 09 00 99 22 93  | 6, 1987......".|
000000E0: 22 00 FF 08 0A 00 97 35  33 32 38 30 2C 30 3A 97  |"......53280,0:.|
000000F0: 35 33 32 38 31 2C 30 3A  97 36 34 36 2C 31 35 00  |53281,0:.646,15.|
00000100: 0A 09 0B 00 99 C7 28 31  34 29 00 36 09 0C 00 99  |......(14).6....|
00000110: 22 11 11 11 1D 1D 1D 1D  1D 1D 1D 2A 2A 2A 2A 2A  |"..........*****|
00000120: 2A 2A 20 C6 C9 CC C5 A0  CD C1 C7 C9 C3 20 2A 2A  |** .......... **|
00000130: 2A 2A 2A 2A 2A 22 00 5F  09 0D 00 99 22 11 11 1D  |*****"._...."...|
00000140: 1D 1D 1D 1D 1D 1D 1D 1D  1D D7 C9 CC CC A0 D0 D2  |................|
00000150: C9 CE D4 A0 C1 A0 D3 C5  D1 A0 C6 C9 CC C5 22 00  |..............".|
00000160: 86 09 0E 00 99 22 11 1D  1D 1D 1D 1D 1D 1D 1D 1D  |....."..........|
00000170: 1D D4 CF 20 D3 C3 D2 C5  C5 CE 20 CF D2 20 D0 D2  |... ...... .. ..|
00000180: C9 CE D4 C5 D2 22 00 AE  09 0F 00 99 22 11 1D 1D  |....."......"...|
00000190: 1D 1D 1D 1D 1D 1D 1D CF  D2 A0 CC CF C1 C4 A0 C1  |................|
000001A0: A0 D0 D2 CF C7 D2 C1 CD  A0 C6 C9 CC C5 22 00 DC  |............."..|
000001B0: 09 10 00 99 22 11 11 11  11 1D 1D 1D 1D 1D 1D C3  |...."...........|
000001C0: CF D5 D2 D4 C5 D3 D9 A0  CF C6 3A 20 20 20 20 2D  |..........:    -|
000001D0: 3D C4 C1 D4 C1 D2 C9 C3  C8 3D 2D 22 00 F7 09 11  |=........=-"....|
000001E0: 00 99 A3 32 30 29 22 D2  D4 20 31 32 20 20 C2 CF  |...20)".. 12  ..|
000001F0: D8 20 35 34 34 C3 22 00  17 0A 12 00 99 A3 31 38  |. 544.".......18|
00000200: 29 22 CD C1 D2 D9 D6 C9  CC CC C5 2C 20 D4 CE 2E  |)"........., ...|
00000210: 20 33 37 38 30 31 22 00  3A 0A 13 00 99 A3 31 32  | 37801".:.....12|
00000220: 29 22 11 11 11 12 20 D0  D2 C5 D3 D3 A0 C1 CE D9  |)".... .........|
00000230: A0 CB C5 D9 A0 92 22 3B  41 24 00 4A 0A 14 00 81  |......";A$.J....|
00000240: 44 B2 31 A4 35 30 30 3A  82 44 00 5D 0A 15 00 A1  |D.1.500:.D.]....|
00000250: 41 24 3A 8B 41 24 B2 22  22 A7 32 31 20 00 67 0A  |A$:.A$."".21 .g.|
00000260: 16 00 99 22 93 11 22 00  87 0A 17 00 99 22 1D 1D  |...".."......"..|
00000270: 1D 1D 1D 31 20 3D 3E 20  C6 D5 CC CC A0 C4 C9 D2  |...1 => ........|
00000280: C5 C3 D4 CF D2 D9 22 00  AC 0A 18 00 99 22 1D 1D  |......"......"..|
00000290: 1D 1D 1D 32 20 3D 3E 20  D3 C5 D1 20 C6 C9 CC C5  |...2 => ... ....|
000002A0: D3 A0 C4 C9 D2 C5 C3 D4  CF D2 D9 22 00 D1 0A 19  |..........."....|
000002B0: 00 99 22 1D 1D 1D 1D 1D  33 20 3D 3E 20 D0 D2 C7  |..".....3 => ...|
000002C0: 20 C6 C9 CC C5 D3 20 C4  C9 D2 C5 C3 D4 CF D2 D9  | ..... .........|
000002D0: 22 00 F6 0A 1A 00 99 22  11 1D 1D 1D 1D 1D 30 20  |"......"......0 |
000002E0: 3D 3E 20 D2 C5 D4 D5 D2  CE A0 D4 CF A0 C2 C1 D3  |=> .............|
000002F0: C9 C3 11 11 11 22 00 12  0B 1B 00 85 22 20 20 20  |....."......"   |
00000300: 20 20 CE 41 4D 45 20 4F  46 20 C6 49 4C 45 22 3B  |  .AME OF .ILE";|
00000310: 46 24 00 21 0B 1C 00 8B  46 24 B2 22 22 A7 32 38  |F$.!....F$."".28|
00000320: 20 00 3E 0B 1D 00 8B 46  24 B2 C7 28 34 39 29 A7  | .>....F$..(49).|
00000330: 53 44 24 B2 22 24 30 22  3A 89 37 31 20 20 00 5D  |SD$."$0":.71  .]|
00000340: 0B 1E 00 8B 46 24 B2 C7  28 35 30 29 A7 53 44 24  |....F$..(50).SD$|
00000350: B2 22 24 2A 3D 53 22 3A  89 37 31 20 20 00 7C 0B  |."$*=S":.71  .|.|
00000360: 1F 00 8B 46 24 B2 C7 28  35 31 29 A7 53 44 24 B2  |...F$..(51).SD$.|
00000370: 22 24 2A 3D 50 22 3A 89  37 31 20 20 00 91 0B 20  |"$*=P":.71  ... |
00000380: 00 8B 46 24 B2 C7 28 34  38 29 A7 9E 36 34 37 33  |..F$..(48)..6473|
00000390: 38 00 B5 0B 21 00 99 22  11 11 1D 1D 1D 1D 1D C6  |8...!.."........|
000003A0: 49 4C 45 20 CE 41 4D 45  20 49 53 20 12 22 AA 46  |ILE .AME IS .".F|
000003B0: 24 AA 22 92 22 00 D0 0B  22 00 99 3A 85 22 11 11  |$."."..."..:."..|
000003C0: 1D 1D 1D 1D 1D C3 4F 52  52 45 43 54 22 3B 41 24  |......ORRECT";A$|
000003D0: 00 DF 0B 23 00 8B 41 24  B2 22 22 A7 33 35 20 00  |...#..A$."".35 .|
000003E0: F2 0B 24 00 8B 41 24 B2  22 4E 22 A7 9C 3A 89 32  |..$..A$."N"..:.2|
000003F0: 32 20 00 01 0C 25 00 8F  20 47 4F 53 55 42 35 35  |2 ...%.. GOSUB55|
00000400: 31 00 35 0C 26 00 8F 20  49 46 45 53 54 48 45 4E  |1.5.&.. IFESTHEN|
00000410: 50 52 49 4E 54 22 11 11  1D 1D 1D 1D 1D 1D 1D 1D  |PRINT"..........|
00000420: 22 2B 45 53 2B 22 11 11  22 3A 43 4C 4F 53 45 32  |"+ES+"..":CLOSE2|
00000430: 3A 53 54 4F 50 00 5A 0C  27 00 99 22 11 11 1D 1D  |:STOP.Z.'.."....|
00000440: 1D 1D 1D D3 45 4C 45 43  54 20 4F 55 54 50 55 54  |....ELECT OUTPUT|
00000450: 20 4F 50 54 49 4F 4E 22  3A 99 00 89 0C 28 00 85  | OPTION":....(..|
00000460: 22 20 20 28 53 29 43 52  45 45 4E 20 28 50 29 52  |"  (S)CREEN (P)R|
00000470: 49 4E 54 45 52 20 28 4C  29 4C 4F 41 44 20 50 52  |INTER (L)LOAD PR|
00000480: 4F 47 52 41 4D 22 3B 4F  24 00 98 0C 29 00 8B 4F  |OGRAM";O$...)..O|
00000490: 24 B2 22 22 A7 34 31 20  00 C4 0C 2A 00 8B 4F 24  |$."".41 ...*..O$|
000004A0: B3 B1 22 53 22 AF 4F 24  B3 B1 22 50 22 AF 4F 24  |.."S".O$.."P".O$|
000004B0: B3 B1 22 4C 22 A7 4F 24  B2 22 22 3A 85 4F 24 3A  |.."L".O$."":.O$:|
000004C0: 89 34 31 20 00 DF 0C 2B  00 8B 4F 24 B2 22 50 22  |.41 ...+..O$."P"|
000004D0: A7 8D 36 34 20 3A 8D 35  38 20 3A 89 35 31 20 00  |..64 :.58 :.51 .|
000004E0: F1 0C 2C 00 8B 4F 24 B2  22 4C 22 A7 89 38 38 20  |..,..O$."L"..88 |
000004F0: 20 00 FA 0C 2D 00 8D 36  34 20 00 03 0D 2E 00 99  | ...-..64 ......|
00000500: 22 93 22 00 0F 0D 2F 00  A1 23 35 2C 42 42 24 00  |".".../..#5,BB$.|
00000510: 19 0D 30 00 99 42 42 24  3B 00 2D 0D 31 00 8B C2  |..0..BB$;.-.1...|
00000520: 28 32 31 34 29 B2 32 34  A7 39 31 20 20 00 3D 0D  |(214).24.91  .=.|
00000530: 32 00 8B 53 54 B3 B1 36  34 A7 34 37 20 00 4A 0D  |2..ST..64.47 .J.|
00000540: 33 00 A0 31 35 3A A0 35  3A 9C 00 65 0D 34 00 99  |3..15:.5:..e.4..|
00000550: 22 11 1D 1D 1D 1D 1D C6  C9 CC C5 D3 20 C3 CC CF  |"........... ...|
00000560: D3 C5 C4 2E 22 00 6C 0D  35 00 3A 99 00 8E 0D 36  |....".l.5.:....6|
00000570: 00 85 22 1D 1D 1D 1D 1D  C1 4E 4F 54 48 45 52 20  |.."......NOTHER |
00000580: C6 49 4C 45 20 28 59 2F  4E 29 22 3B 5A 24 00 9D  |.ILE (Y/N)";Z$..|
00000590: 0D 37 00 8B 5A 24 B2 22  22 A7 35 35 20 00 B0 0D  |.7..Z$."".55 ...|
000005A0: 38 00 8B 5A 24 B2 22 59  22 A7 9C 3A 89 32 32 20  |8..Z$."Y"..:.22 |
000005B0: 00 BB 0D 39 00 9E 36 34  37 33 38 00 D0 0D 3A 00  |...9..64738...:.|
000005C0: 9F 31 2C 38 2C 32 2C 46  24 AA 22 2C 53 2C 52 22  |.1,8,2,F$.",S,R"|
000005D0: 00 DB 0D 3B 00 9F 34 2C  34 2C 37 00 E7 0D 3C 00  |...;..4,4,7...<.|
000005E0: A1 23 31 2C 42 42 24 00  00 0E 3D 00 8B 53 54 B3  |.#1,BB$...=..ST.|
000005F0: B1 36 34 A7 98 34 2C 42  42 24 3B 3A 89 36 30 20  |.64..4,BB$;:.60 |
00000600: 00 0A 0E 3E 00 98 34 3A  A0 34 00 10 0E 3F 00 8E  |...>..4:.4...?..|
00000610: 00 3D 0E 40 00 9F 31 35  2C 38 2C 31 35 3A 9F 35  |.=.@..15,8,15:.5|
00000620: 2C 38 2C 35 2C 46 24 AA  22 2C 53 2C 52 22 3A 8D  |,8,5,F$.",S,R":.|
00000630: 39 39 20 20 3A 8B 45 54  B2 38 A7 39 20 00 59 0E  |99  :.ET.8.9 .Y.|
00000640: 41 00 8B 45 4E B2 36 32  A7 8D 31 30 30 20 3A 8B  |A..EN.62..100 :.|
00000650: 45 54 B2 38 A7 39 39 20  20 00 5F 0E 42 00 8E 00  |ET.8.99  ._.B...|
00000660: 7C 0E 43 00 8F 20 44 49  52 45 43 54 4F 52 59 20  ||.C.. DIRECTORY |
00000670: 52 45 41 44 20 52 4F 55  54 49 4E 45 00 82 0E 44  |READ ROUTINE...D|
00000680: 00 8F 00 88 0E 45 00 8F  00 8E 0E 46 00 8F 00 C1  |.....E.....F....|
00000690: 0E 47 00 9F 31 35 2C 38  2C 31 35 3A 9F 35 2C 38  |.G..15,8,15:.5,8|
000006A0: 2C 30 2C 53 44 24 3A 99  22 93 13 22 3A 8D 39 39  |,0,SD$:."..":.99|
000006B0: 20 20 3A 8D 39 34 20 20  3A 8B 45 54 B2 38 A7 31  |  :.94  :.ET.8.1|
000006C0: 31 00 D1 0E 48 00 A1 23  35 2C 41 31 24 2C 41 32  |1...H..#5,A1$,A2|
000006D0: 24 00 E1 0E 49 00 A1 23  35 2C 41 31 24 2C 41 32  |$...I..#5,A1$,A2|
000006E0: 24 00 F1 0E 4A 00 A1 23  35 2C 41 31 24 2C 41 32  |$...J..#5,A1$,A2|
000006F0: 24 00 08 0F 4B 00 8B 41  31 24 B3 B1 22 22 A7 41  |$...K..A1$.."".A|
00000700: 30 B2 C6 28 41 31 24 29  00 26 0F 4C 00 8B 41 32  |0..(A1$).&.L..A2|
00000710: 24 B3 B1 22 22 A7 41 30  B2 41 30 AA C6 28 41 32  |$.."".A0.A0..(A2|
00000720: 24 29 AC 32 35 36 00 3B  0F 4D 00 99 CA 28 C4 28  |$).256.;.M...(.(|
00000730: 41 30 29 2C 32 29 3B A3  33 29 3B 00 53 0F 4E 00  |A0),2);.3);.S.N.|
00000740: A1 23 35 2C 41 32 24 3A  8B 53 54 B3 B1 30 A7 39  |.#5,A2$:.ST..0.9|
00000750: 35 20 20 00 67 0F 4F 00  8B 41 32 24 B3 B1 C7 28  |5  .g.O..A2$...(|
00000760: 33 34 29 A7 37 38 20 00  90 0F 50 00 A1 23 35 2C  |34).78 ...P..#5,|
00000770: 41 32 24 3A 8B 41 32 24  B3 B1 C7 28 33 34 29 A7  |A2$:.A2$...(34).|
00000780: 99 22 12 22 41 32 24 22  92 22 3B 3A 89 38 30 20  |."."A2$".";:.80 |
00000790: 00 AB 0F 51 00 A1 23 35  2C 41 32 24 3A 8B 41 32  |...Q..#5,A2$:.A2|
000007A0: 24 B2 C7 28 33 32 29 A7  38 31 20 00 BD 0F 52 00  |$..(32).81 ...R.|
000007B0: 99 A3 32 30 29 3B 3A 41  33 24 B2 22 22 00 E2 0F  |..20);:A3$.""...|
000007C0: 53 00 41 33 24 B2 41 33  24 AA 41 32 24 3A A1 23  |S.A3$.A3$.A2$:.#|
000007D0: 35 2C 41 32 24 3A 8B 41  32 24 B3 B1 22 22 A7 38  |5,A2$:.A2$.."".8|
000007E0: 33 20 00 F0 0F 54 00 99  C8 28 41 33 24 2C 33 29  |3 ...T...(A3$,3)|
000007F0: 00 06 10 55 00 A1 41 24  3A 8B 41 24 B3 B1 22 22  |...U..A$:.A$..""|
00000800: A7 8D 39 37 20 20 00 14  10 56 00 8B 53 54 B2 30  |..97  ...V..ST.0|
00000810: A7 37 33 20 00 1E 10 57  00 89 39 35 20 20 00 35  |.73 ...W..95  .5|
00000820: 10 58 00 54 24 B2 22 2C  38 2C 31 22 3A 52 24 B2  |.X.T$.",8,1":R$.|
00000830: 22 52 55 4E 22 00 6B 10  59 00 99 22 93 11 11 11  |"RUN".k.Y.."....|
00000840: 4C 4F 41 44 22 3B C7 28  33 34 29 3B 46 24 3B C7  |LOAD";.(34);F$;.|
00000850: 28 33 34 29 3B 54 24 3A  99 22 11 11 11 11 22 3B  |(34);T$:."....";|
00000860: 52 24 3B C7 28 39 29 3B  22 13 22 00 88 10 5A 00  |R$;.(9);"."...Z.|
00000870: 97 36 33 31 2C 31 33 3A  97 36 33 32 2C 31 33 3A  |.631,13:.632,13:|
00000880: 97 31 39 38 2C 32 3A 80  00 C0 10 5B 00 97 32 31  |.198,2:....[..21|
00000890: 31 2C 39 3A 97 32 31 34  2C 32 33 3A 99 22 12 20  |1,9:.214,23:.". |
000008A0: D0 D2 C5 D3 D3 A0 C1 CE  D9 A0 CB C5 D9 A0 D4 CF  |................|
000008B0: A0 C3 CF CE D4 C9 CE D5  C5 20 92 22 3B 41 4B 24  |......... .";AK$|
000008C0: 00 D6 10 5C 00 A1 41 4B  24 3A 8B 41 4B 24 B2 22  |...\..AK$:.AK$."|
000008D0: 22 A7 39 32 20 20 00 DF  10 5D 00 89 34 36 20 00  |".92  ...]..46 .|
000008E0: 08 11 5E 00 84 31 35 2C  45 4E 2C 45 4D 24 2C 45  |..^..15,EN,EM$,E|
000008F0: 54 2C 45 53 3A 8B 45 4E  B3 32 30 B0 45 4E B2 36  |T,ES:.EN.20.EN.6|
00000900: 32 A7 45 54 B2 30 3A 8E  00 22 11 5F 00 99 22 20  |2.ET.0:.."._.." |
00000910: C2 CC CF C3 CB D3 A0 C6  D2 C5 C5 22 3B 3A 41 30  |...........";:A0|
00000920: B2 30 00 4F 11 60 00 A0  35 3A A0 31 35 3A 99 A3  |.0.O.`..5:.15:..|
00000930: 32 35 29 22 D0 52 45 53  53 20 12 C1 CE D9 20 CB  |25)".RESS .... .|
00000940: C5 D9 92 22 3A 8D 39 37  20 20 3A 89 32 32 20 00  |...":.97  :.22 .|
00000950: 63 11 61 00 A1 41 24 3A  8B 41 24 B2 22 22 A7 39  |c.a..A$:.A$."".9|
00000960: 37 20 20 00 69 11 62 00  8E 00 92 11 63 00 84 31  |7  .i.b.....c..1|
00000970: 35 2C 45 4E 2C 45 4D 24  2C 45 54 2C 45 53 3A 8B  |5,EN,EM$,ET,ES:.|
00000980: 45 4E B3 32 30 B0 45 4E  B2 36 32 A7 45 54 B2 30  |EN.20.EN.62.ET.0|
00000990: 3A 8E 00 C2 11 64 00 99  22 11 20 12 C4 49 53 4B  |:....d..". ..ISK|
000009A0: 20 C5 D2 D2 CF D2 92 22  45 4E 22 2C 20 20 22 45  | ......"EN",  "E|
000009B0: 4D 24 22 2C 22 45 54 22  2C 20 22 45 53 3A 45 54  |M$","ET", "ES:ET|
000009C0: B2 38 00 CD 11 65 00 A0  31 35 3A A0 35 00 FC 11  |.8...e..15:.5...|
000009D0: 66 00 99 22 20 D0 52 45  53 53 20 12 C1 CE D9 A0  |f.." .RESS .....|
000009E0: CB C5 D9 92 20 54 4F 20  C3 4F 4E 54 49 4E 55 45  |.... TO .ONTINUE|
000009F0: 22 3A 8D 39 37 20 20 3A  89 32 32 20 00 00 00     |":.97  :.22 ... |

.. ....             -=DATARICH=-.@....  
          RT.12  BOX544C.B....          
MARYVILLE,TN 37801.H..........       WRI
TE FOR LISTING OF C-64......       PROGR
AMS AVAILABLE TO YOU.............X....:S
EPTEMBER 6, 1987......"."......53280,0:.
53281,0:.646,15......G(14).6....".......
...******* FILE MAGIC *******"._...."...
.........WILL PRINT A SEQ FILE"......"..
.........TO SCREEN OR PRINTER"......"...
.......OR LOAD A PROGRAM FILE"......"...
.......COURTESY OF:    -=DATARICH=-"....
...20)"RT 12  BOX 544C".......18)"MARYVI
LLE, TN. 37801".:.....12)".... PRESS ANY
 KEY .";A$.J....D.1.500:.D.]....A$:.A$."
".21 .G....".."......".....1 => FULL DIR
ECTORY"......".....2 => SEQ FILES DIRECT
ORY".Q....".....3 => PRG FILES DIRECTORY
"......"......0 => RETURN TO BASIC..."..
...."     NAME OF FILE";F$.!....F$."".28
 .>....F$.G(49).SD$."$0":.71  .]....F$.G
(50).SD$."$*=S":.71  .|....F$.G(51).SD$.
"$*=P":.71  ... ..F$.G(48)..64738...!.."
.......FILE NAME IS .".F$.".".P."..:."..
.....CORRECT";A$...#..A$."".35 ...$..A$.
"N"..:.22 ...%.. GOSUB551.5.&.. IFESTHEN
PRINT".........."+ES+"..":CLOSE2:STOP.Z.
'..".......SELECT OUTPUT OPTION":....(..
"  (S)CREEN (P)RINTER (L)LOAD PROGRAM";O
$...)..O$."".41 .D.*..O$.."S".O$.."P".O$
.."L".O$."":.O$:.41 ...+..O$."P"..64 :.5
8 :.51 ...,..O$."L"..88  ...-..64 ......
".".../..#5,BB$...0..BB$;.-.1..B(214).24
.91  .=.2..ST..64.47 .J.3. 15: 5:..E.4..
"......FILES CLOSED.".L.5.:....6..".....
ANOTHER FILE (Y/N)";Z$...7..Z$."".55 ...
8..Z$."Y"..:.22 ...9..64738.P.:..1,8,2,F
$.",S,R"...;..4,4,7...<..#1,BB$...=..ST.
.64..4,BB$;:.60 ...>..4: 4...?...=.@..15
,8,15:.5,8,5,F$.",S,R":.99  :.ET.8.9 .Y.
A..EN.62..100 :.ET.8.99  ._.B...|.C.. DI
RECTORY READ ROUTINE...D.....E.....F...A
.G..15,8,15:.5,8,0,SD$:."..":.99  :.94  
:.ET.8.11.Q.H..#5,A1$,A2$...I..#5,A1$,A2
$...J..#5,A1$,A2$...K..A1$.."".A0.F(A1$)
.&.L..A2$.."".A0.A0.F(A2$).256.;.M..J(D(
A0),2);.3);.S.N..#5,A2$:.ST..0.95  .G.O.
.A2$..G(34).78 ...P..#5,A2$:.A2$..G(34).
."."A2$".";:.80 ...Q..#5,A2$:.A2$.G(32).
81 ...R...20);:A3$.""...S.A3$.A3$.A2$:.#
5,A2$:.A2$.."".83 ...T..H(A3$,3)...U..A$
:.A$..""..97  ...V..ST.0.73 ...W..95  .5
.X.T$.",8,1":R$."RUN".K.Y.."....LOAD";G(
34);F$;G(34);T$:."....";R$;G(9);"."...Z.
.631,13:.632,13:.198,2:....[..211,9:.214
,23:.". PRESS ANY KEY TO CONTINUE .";AK$
.V.\..AK$:.AK$."".92  ...]..46 ...^..15,
EN,EM$,ET,ES:.EN.20.EN.62.ET.0:.."._.." 
BLOCKS FREE";:A0.0.O.`. 5: 15:..25)"PRES
S .ANY KEY.":.97  :.22 .C.A..A$:.A$."".9
7  .I.B.....C..15,EN,EM$,ET,ES:.EN.20.EN
.62.ET.0:..B.D..". .DISK ERROR."EN",  "E
M$","ET", "ES:ET.8.M.E. 15: 5...F.." PRE
SS .ANY KEY. TO CONTINUE":.97  :.22 ...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL