DISK CAT. 64

00000000: 01 08 22 08 5A 00 8F 20  2A 2A 2A 2A 20 43 42 4D  |..".Z.. **** CBM|
00000010: 20 36 34 20 43 41 54 41  4C 4F 47 45 52 20 2A 2A  | 64 CATALOGER **|
00000020: 2A 2A 00 55 08 64 00 86  54 24 28 34 29 2C 53 25  |**.U.d..T$(4),S%|
00000030: 28 32 30 30 29 2C 46 24  28 32 30 30 29 2C 4B 24  |(200),F$(200),K$|
00000040: 28 32 30 30 29 2C 44 24  28 32 30 30 29 2C 5A 24  |(200),D$(200),Z$|
00000050: 28 32 30 30 29 00 5E 08  6E 00 99 22 93 22 00 79  |(200).^.n..".".y|
00000060: 08 78 00 99 22 44 49 53  4B 20 43 41 54 41 4C 4F  |.x.."DISK CATALO|
00000070: 47 20 53 59 53 54 45 4D  22 00 7F 08 82 00 99 00  |G SYSTEM".......|
00000080: C5 08 8C 00 99 22 43 52  45 41 54 45 53 20 53 45  |....."CREATES SE|
00000090: 51 20 46 49 4C 45 53 20  46 52 4F 4D 20 44 49 53  |Q FILES FROM DIS|
000000A0: 4B 20 44 49 52 45 43 54  4F 52 49 45 53 20 46 4F  |K DIRECTORIES FO|
000000B0: 52 20 49 4E 50 55 54 20  54 4F 20 46 4C 45 58 20  |R INPUT TO FLEX |
000000C0: 46 49 4C 45 22 00 CB 08  96 00 99 00 16 09 A0 00  |FILE"...........|
000000D0: 8F 20 4F 52 49 47 20 50  47 4D 20 42 59 20 4A 49  |. ORIG PGM BY JI|
000000E0: 4D 20 42 55 54 54 45 52  46 49 45 4C 44 2E 20 4D  |M BUTTERFIELD. M|
000000F0: 4F 44 49 46 49 45 44 20  46 4F 52 20 46 4C 45 58  |ODIFIED FOR FLEX|
00000100: 20 46 49 4C 45 20 42 59  20 4A 4F 48 4E 20 43 41  | FILE BY JOHN CA|
00000110: 4D 50 42 45 4C 4C 00 5A  09 AA 00 83 20 31 36 39  |MPBELL.Z.... 169|
00000120: 2C 30 2C 31 36 32 2C 34  2C 31 34 39 2C 39 38 2C  |,0,162,4,149,98,|
00000130: 32 30 32 2C 31 36 2C 32  35 31 2C 31 36 39 2C 31  |202,16,251,169,1|
00000140: 36 30 2C 31 33 33 2C 39  37 2C 31 36 32 2C 32 2C  |60,133,97,162,2,|
00000150: 33 32 2C 31 39 38 2C 32  35 35 00 A4 09 B4 00 83  |32,198,255......|
00000160: 20 32 33 30 2C 31 30 31  2C 32 30 38 2C 31 30 2C  | 230,101,208,10,|
00000170: 32 33 30 2C 31 30 30 2C  32 30 38 2C 36 2C 32 33  |230,100,208,6,23|
00000180: 30 2C 39 39 2C 32 30 38  2C 32 2C 32 33 30 2C 39  |0,99,208,2,230,9|
00000190: 38 2C 33 32 2C 32 32 38  2C 32 35 35 2C 31 36 35  |8,32,228,255,165|
000001A0: 2C 31 34 34 00 E7 09 BE  00 83 20 32 34 30 2C 32  |,144...... 240,2|
000001B0: 33 35 2C 33 32 2C 32 30  34 2C 32 35 35 2C 31 39  |35,32,204,255,19|
000001C0: 38 2C 39 37 2C 36 2C 31  30 31 2C 33 38 2C 31 30  |8,97,6,101,38,10|
000001D0: 30 2C 33 38 2C 39 39 2C  33 38 2C 39 38 2C 31 36  |0,38,99,38,98,16|
000001E0: 2C 32 34 34 2C 39 36 00  01 0A C8 00 81 4A B2 38  |,244,96......J.8|
000001F0: 33 32 A4 38 38 36 3A 87  58 3A 97 4A 2C 58 3A 82  |32.886:.X:.J,X:.|
00000200: 4A 00 25 0A D2 00 83 20  22 58 58 58 22 2C 22 53  |J.%.... "XXX","S|
00000210: 45 51 22 2C 22 50 52 47  22 2C 22 55 53 52 22 2C  |EQ","PRG","USR",|
00000220: 22 52 45 4C 22 00 39 0A  DC 00 81 4A B2 30 A4 34  |"REL".9....J.0.4|
00000230: 3A 87 54 24 28 4A 29 3A  82 00 64 0A E6 00 99 3A  |:.T$(J):..d....:|
00000240: 99 22 50 52 49 4E 54 53  20 44 49 52 45 43 54 4F  |."PRINTS DIRECTO|
00000250: 52 59 20 4F 4E 20 43 42  4D 20 50 52 49 4E 54 45  |RY ON CBM PRINTE|
00000260: 52 22 3A 99 00 A5 0A F0  00 99 3A 99 22 46 49 4C  |R":.......:."FIL|
00000270: 45 20 46 4F 52 4D 41 54  3A 22 3A 99 22 20 20 46  |E FORMAT:":."  F|
00000280: 49 4C 45 20 4E 41 4D 45  22 3A 99 22 20 20 46 49  |ILE NAME":."  FI|
00000290: 4C 45 20 54 59 50 45 20  28 50 47 4D 20 4F 52 20  |LE TYPE (PGM OR |
000002A0: 53 45 51 29 22 00 CE 0A  FA 00 99 22 20 20 53 54  |SEQ)"......"  ST|
000002B0: 41 52 54 49 4E 47 2D 45  4E 44 49 4E 47 20 41 44  |ARTING-ENDING AD|
000002C0: 44 52 45 53 53 45 53 20  28 48 45 58 29 22 00 F4  |DRESSES (HEX)"..|
000002D0: 0A 04 01 99 22 20 20 20  20 20 4F 52 20 4E 4F 2E  |...."     OR NO.|
000002E0: 20 4F 46 20 42 59 54 45  53 20 28 53 45 51 20 46  | OF BYTES (SEQ F|
000002F0: 49 4C 45 29 00 0B 0B 0E  01 99 22 20 20 4E 4F 2E  |ILE)......"  NO.|
00000300: 20 4F 46 20 42 4C 4F 43  4B 53 22 00 1C 0B 18 01  | OF BLOCKS".....|
00000310: 99 22 20 20 44 49 53 4B  20 49 44 22 00 29 0B 22  |."  DISK ID".)."|
00000320: 01 99 3A 48 48 B2 36 36  34 00 71 0B 2C 01 99 22  |..:HH.664.q.,.."|
00000330: 57 48 45 4E 20 44 49 53  4B 20 49 4E 20 44 52 49  |WHEN DISK IN DRI|
00000340: 56 45 20 30 20 52 45 41  44 59 20 46 4F 52 22 3A  |VE 0 READY FOR":|
00000350: 99 22 44 49 52 45 43 54  4F 52 59 20 43 4F 4E 56  |."DIRECTORY CONV|
00000360: 45 52 53 49 4F 4E 20 50  52 45 53 53 20 4B 45 59  |ERSION PRESS KEY|
00000370: 22 00 77 0B 36 01 99 00  8A 0B 40 01 A1 41 24 3A  |".w.6.....@..A$:|
00000380: 8B 41 24 B2 22 22 89 33  32 30 00 A5 0B 4A 01 47  |.A$."".320...J.G|
00000390: 24 B2 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |$."             |
000003A0: 20 20 20 20 22 00 AC 0B  54 01 A0 31 00 CC 0B 5E  |    "...T..1...^|
000003B0: 01 9F 31 2C 38 2C 31 35  2C 22 49 30 22 3A A0 31  |..1,8,15,"I0":.1|
000003C0: 3A 9F 31 2C 38 2C 33 2C  22 24 30 22 00 E8 0B 68  |:.1,8,3,"$0"...h|
000003D0: 01 4E 25 B2 30 3A 81 4A  B2 31 A4 31 34 32 3A A1  |.N%.0:.J.1.142:.|
000003E0: 23 31 2C 41 24 3A 82 4A  00 10 0C 72 01 4E 24 B2  |#1,A$:.J...r.N$.|
000003F0: 22 22 3A 81 4A B2 31 A4  31 36 3A A1 23 31 2C 41  |"":.J.1.16:.#1,A|
00000400: 24 3A 8B 41 24 B2 C7 28  31 36 30 29 89 33 39 30  |$:.A$..(160).390|
00000410: 00 1D 0C 7C 01 4E 24 B2  4E 24 AA 41 24 00 2E 0C  |...|.N$.N$.A$...|
00000420: 86 01 82 4A 3A A1 23 31  2C 41 24 2C 41 24 00 55  |...J:.#1,A$,A$.U|
00000430: 0C 90 01 49 24 B2 22 22  3A 81 4A B2 31 A4 32 3A  |...I$."":.J.1.2:|
00000440: A1 23 31 2C 41 24 3A 8B  41 24 B2 C7 28 31 36 30  |.#1,A$:.A$..(160|
00000450: 29 89 34 32 30 00 62 0C  9A 01 49 24 B2 49 24 AA  |).420.b...I$.I$.|
00000460: 41 24 00 8E 0C A4 01 82  4A 3A 99 22 49 44 3D 27  |A$......J:."ID='|
00000470: 22 3B 49 24 3B 22 27 20  20 20 20 44 49 53 4B 20  |";I$;"'    DISK |
00000480: 4E 41 4D 45 3D 27 22 3B  4E 24 3B 22 27 22 00 94  |NAME='";N$;"'"..|
00000490: 0C AE 01 99 00 BF 0C B8  01 99 22 43 48 41 4E 47  |.........."CHANG|
000004A0: 45 20 49 44 20 20 20 20  22 3B 49 24 3B 22 9D 9D  |E ID    ";I$;"..|
000004B0: 9D 9D 9D 9D 22 3B 3A 85  22 20 20 22 3B 49 24 00  |....";:."  ";I$.|
000004C0: D7 0C C2 01 99 3A 99 22  2D 2D 46 49 4C 45 20 4E  |.....:."--FILE N|
000004D0: 41 4D 45 53 2D 2D 22 00  ED 0C CC 01 81 4A B2 31  |AMES--"......J.1|
000004E0: A4 39 32 3A A1 23 31 2C  41 24 3A 82 4A 00 13 0D  |.92:.#1,A$:.J...|
000004F0: D6 01 4D B2 4D AA 31 3A  A1 23 31 2C 4B 24 2C 54  |..M.M.1:.#1,K$,T|
00000500: 24 2C 53 24 3A 8B 53 24  B2 22 22 A7 53 24 B2 C7  |$,S$:.S$."".S$..|
00000510: 28 30 29 00 3B 0D E0 01  46 24 B2 22 22 3A 81 4A  |(0).;...F$."":.J|
00000520: B2 31 A4 31 36 3A A1 23  31 2C 41 24 3A 8B 41 24  |.1.16:.#1,A$:.A$|
00000530: B2 C7 28 31 36 30 29 89  35 30 30 00 48 0D EA 01  |..(160).500.H...|
00000540: 46 24 B2 46 24 AA 41 24  00 4F 0D F4 01 82 4A 00  |F$.F$.A$.O....J.|
00000550: 65 0D FE 01 81 4A B2 31  A4 31 30 3A A1 23 31 2C  |e....J.1.10:.#1,|
00000560: 41 24 3A 82 4A 00 7D 0D  08 02 4C B2 30 3A 8B 41  |A$:.J.}...L.0:.A|
00000570: 24 B3 B1 22 22 A7 4C B2  C6 28 41 24 29 00 9C 0D  |$.."".L..(A$)...|
00000580: 12 02 A1 23 31 2C 41 24  3A 8B 4D B3 38 A7 A1 23  |...#1,A$:.M.8..#|
00000590: 31 2C 41 24 2C 41 24 3A  89 35 35 30 00 A4 0D 1C  |1,A$,A$:.550....|
000005A0: 02 4D B2 30 00 B9 0D 26  02 53 57 B2 53 54 3A 8B  |.M.0...&.SW.ST:.|
000005B0: 4B 24 B2 22 22 89 38 30  30 00 D6 0D 30 02 4B B2  |K$."".800...0.K.|
000005C0: C6 28 4B 24 29 AB 31 32  38 3A 8B 4B B3 31 B0 4B  |.(K$).128:.K.1.K|
000005D0: B1 34 89 38 30 30 00 DE  0D 3A 02 99 46 24 00 EB  |.4.800...:..F$..|
000005E0: 0D 44 02 54 24 B2 54 24  28 4B 29 00 F9 0D 4E 02  |.D.T$.T$(K)...N.|
000005F0: 5A 31 24 B2 54 24 28 4B  29 00 08 0E 58 02 54 24  |Z1$.T$(K)...X.T$|
00000600: B2 54 24 AA C4 28 4C 29  00 15 0E 62 02 5A 5A 24  |.T$..(L)...b.ZZ$|
00000610: B2 C4 28 4C 29 00 22 0E  6C 02 8B 4B B2 30 89 37  |..(L).".l..K.0.7|
00000620: 37 30 00 44 0E 76 02 9F  32 2C 38 2C 34 2C 22 30  |70.D.v..2,8,4,"0|
00000630: 3A 22 AA 46 24 AA 22 2C  22 AA 54 24 28 4B 29 AA  |:".F$.",".T$(K).|
00000640: 22 2C 52 22 00 5C 0E 80  02 44 24 B2 22 22 3A 41  |",R".\...D$."":A|
00000650: B2 30 3A 8B 4B B3 B1 32  89 36 38 30 00 7D 0E 8A  |.0:.K..2.680.}..|
00000660: 02 A1 23 32 2C 41 24 2C  42 24 3A 41 B2 C3 28 41  |..#2,A$,B$:A..(A|
00000670: 24 29 3A 8B 41 A7 41 B2  C6 28 41 24 29 00 94 0E  |$):.A.A..(A$)...|
00000680: 94 02 42 B2 C3 28 42 24  29 3A 8B 42 A7 42 B2 C6  |..B..(B$):.B.B..|
00000690: 28 42 24 29 00 9E 0E 9E  02 8D 31 31 30 30 00 C2  |(B$)......1100..|
000006A0: 0E A8 02 97 37 38 34 2C  37 36 3A 97 37 38 35 2C  |....784,76:.785,|
000006B0: 36 34 3A 97 37 38 36 2C  33 3A 41 B2 41 AA B7 28  |64:.786,3:A.A..(|
000006C0: 30 29 00 E2 0E B2 02 8B  4B B3 B1 32 A7 44 24 B2  |0)......K..2.D$.|
000006D0: C4 28 41 29 AA 22 20 42  59 54 45 53 22 3A 89 37  |.(A)." BYTES":.7|
000006E0: 32 30 00 01 0F BC 02 41  25 B2 41 AD 32 35 36 3A  |20.....A%.A.256:|
000006F0: 41 B2 41 AB 41 25 AC 32  35 36 3A 42 B2 42 AA 41  |A.A.A%.256:B.B.A|
00000700: 25 00 0B 0F C6 02 8D 31  31 30 30 00 12 0F D0 02  |%......1100.....|
00000710: A0 32 00 25 0F DA 02 8B  4E 25 B2 30 A7 4A B2 30  |.2.%....N%.0.J.0|
00000720: 3A 89 37 37 30 00 3C 0F  E4 02 81 4A B2 4E 25 A4  |:.770.<....J.N%.|
00000730: 31 A9 AB 31 3A 4B B2 53  25 28 4A 29 00 4E 0F EE  |1..1:K.S%(J).N..|
00000740: 02 8B 46 24 28 4B 29 B3  46 24 89 37 37 30 00 63  |..F$(K).F$.770.c|
00000750: 0F F8 02 53 25 28 4A AA  31 29 B2 53 25 28 4A 29  |...S%(J.1).S%(J)|
00000760: 3A 82 4A 00 7A 0F 02 03  4E 25 B2 4E 25 AA 31 3A  |:.J.z...N%.N%.1:|
00000770: 53 25 28 4A AA 31 29 B2  4E 25 00 9C 0F 0C 03 46  |S%(J.1).N%.....F|
00000780: 24 28 4E 25 29 B2 46 24  3A 4B 24 28 4E 25 29 B2  |$(N%).F$:K$(N%).|
00000790: 54 24 3A 44 24 28 4E 25  29 B2 44 24 00 BE 0F 16  |T$:D$(N%).D$....|
000007A0: 03 5A 24 28 4E 25 29 B2  5A 5A 24 3A 48 48 B2 48  |.Z$(N%).ZZ$:HH.H|
000007B0: 48 AB C5 28 CA 28 54 24  2C 34 2C 34 29 29 00 CC  |H..(.(T$,4,4))..|
000007C0: 0F 20 03 8B 53 57 B2 30  89 34 37 30 00 D8 0F 2A  |. ..SW.0.470...*|
000007D0: 03 A0 31 3A 99 22 93 22  00 05 10 34 03 99 22 20  |..1:."."...4.." |
000007E0: 20 46 49 4C 45 20 4E 41  4D 45 20 20 20 20 20 54  | FILE NAME     T|
000007F0: 59 50 45 20 42 4C 4B 53  20 41 44 44 52 45 53 53  |YPE BLKS ADDRESS|
00000800: 45 53 22 3A 99 00 19 10  3E 03 81 4A B2 31 A4 4E  |ES":....>..J.1.N|
00000810: 25 3A 4B B2 53 25 28 4A  29 00 58 10 48 03 8B 4A  |%:K.S%(J).X.H..J|
00000820: B2 32 30 B0 4A B2 34 30  B0 4A B2 36 30 B0 4A B2  |.20.J.40.J.60.J.|
00000830: 38 30 B0 4A B2 31 30 30  B0 4A B2 31 32 30 B0 4A  |80.J.100.J.120.J|
00000840: B2 31 34 30 B0 4A B2 31  36 30 B0 4A B2 31 38 30  |.140.J.160.J.180|
00000850: 20 A7 20 8D 31 31 33 30  00 8D 10 52 03 99 46 24  | . .1130...R..F$|
00000860: 28 4B 29 3B C8 28 47 24  2C 31 37 AB C3 28 46 24  |(K);.(G$,17..(F$|
00000870: 28 4B 29 29 29 3B 4B 24  28 4B 29 3B C8 28 47 24  |(K)));K$(K);.(G$|
00000880: 2C 39 AB C3 28 4B 24 28  4B 29 29 29 3B 00 B2 10  |,9..(K$(K)));...|
00000890: 57 03 8B C9 28 44 24 28  4B 29 2C 36 29 B2 22 20  |W...(D$(K),6)." |
000008A0: 42 59 54 45 53 22 A7 99  44 24 28 4B 29 3A 89 38  |BYTES"..D$(K):.8|
000008B0: 36 35 00 D1 10 5C 03 99  C8 28 44 24 28 4B 29 2C  |65...\...(D$(K),|
000008C0: 34 29 3B 22 20 22 3B C9  28 44 24 28 4B 29 2C 34  |4);" ";.(D$(K),4|
000008D0: 29 00 F3 10 61 03 82 4A  3A 99 3A 99 22 42 4C 4F  |)...a..J:.:."BLO|
000008E0: 43 4B 53 20 46 52 45 45  20 20 20 20 20 22 3B 48  |CKS FREE     ";H|
000008F0: 48 3A 99 00 3E 11 66 03  85 22 43 52 45 41 54 45  |H:..>.f.."CREATE|
00000900: 20 44 49 53 4B 20 53 45  51 20 46 49 4C 45 20 46  | DISK SEQ FILE F|
00000910: 52 4F 4D 20 44 49 52 45  43 54 4F 52 59 20 20 20  |ROM DIRECTORY   |
00000920: 20 20 28 26 20 44 52 49  56 45 20 31 20 52 45 41  |  (& DRIVE 1 REA|
00000930: 44 59 3F 29 28 59 2F 4E  29 22 3B 5A 57 24 00 50  |DY?)(Y/N)";ZW$.P|
00000940: 11 70 03 8B 5A 57 24 B3  B1 22 59 22 89 39 37 30  |.p..ZW$.."Y".970|
00000950: 00 6B 11 7A 03 9F 37 2C  38 2C 37 2C 22 40 30 3A  |.k.z..7,8,7,"@0:|
00000960: 22 AA 49 24 AA 22 2C 53  2C 57 22 00 7F 11 84 03  |".I$.",S,W".....|
00000970: 81 4A B2 31 A4 4E 25 3A  4B B2 53 25 28 4A 29 00  |.J.1.N%:K.S%(J).|
00000980: 93 11 8E 03 98 37 2C 46  24 28 4B 29 3B C7 28 31  |.....7,F$(K);.(1|
00000990: 33 29 3B 00 A7 11 98 03  98 37 2C 4B 24 28 4B 29  |3);......7,K$(K)|
000009A0: 3B C7 28 31 33 29 3B 00  BB 11 A2 03 98 37 2C 44  |;.(13);......7,D|
000009B0: 24 28 4B 29 3B C7 28 31  33 29 3B 00 CF 11 AC 03  |$(K);.(13);.....|
000009C0: 98 37 2C 5A 24 28 4B 29  3B C7 28 31 33 29 3B 00  |.7,Z$(K);.(13);.|
000009D0: E0 11 B6 03 98 37 2C 49  24 3B C7 28 31 33 29 3B  |.....7,I$;.(13);|
000009E0: 00 EA 11 C0 03 82 4A 3A  A0 37 00 0F 12 CA 03 99  |......J:.7......|
000009F0: 3A 99 22 50 52 49 4E 54  20 44 49 52 45 43 54 4F  |:."PRINT DIRECTO|
00000A00: 52 59 20 28 59 2F 4E 29  22 3B 3A 85 5A 58 24 00  |RY (Y/N)";:.ZX$.|
00000A10: 22 12 D4 03 8B 5A 58 24  B3 B1 22 59 22 89 31 30  |"....ZX$.."Y".10|
00000A20: 38 30 00 2B 12 DE 03 9F  34 2C 34 00 38 12 E8 03  |80.+....4,4.8...|
00000A30: 98 34 3A 98 34 3A 98 34  00 63 12 FC 03 98 34 2C  |.4:.4:.4.c....4,|
00000A40: 22 4E 41 4D 45 20 3D 20  27 22 3B 4E 24 3B 22 27  |"NAME = '";N$;"'|
00000A50: 20 3A 20 49 44 20 3D 20  27 22 3B 49 24 22 27 22  | : ID = '";I$"'"|
00000A60: 3A 98 34 00 93 12 06 04  98 34 2C 22 46 49 4C 45  |:.4......4,"FILE|
00000A70: 20 4E 41 4D 45 20 20 20  20 20 20 20 54 59 50 45  | NAME       TYPE|
00000A80: 20 42 4C 4B 53 20 41 44  44 52 45 53 53 45 53 22  | BLKS ADDRESSES"|
00000A90: 3A 98 34 00 A7 12 10 04  81 4A B2 31 A4 4E 25 3A  |:.4......J.1.N%:|
00000AA0: 4B B2 53 25 28 4A 29 00  DE 12 1A 04 98 34 2C 46  |K.S%(J)......4,F|
00000AB0: 24 28 4B 29 3B C8 28 47  24 2C 31 37 AB C3 28 46  |$(K);.(G$,17..(F|
00000AC0: 24 28 4B 29 29 29 3B 4B  24 28 4B 29 3B C8 28 47  |$(K)));K$(K);.(G|
00000AD0: 24 2C 39 AB C3 28 4B 24  28 4B 29 29 29 3B 00 06  |$,9..(K$(K)));..|
00000AE0: 13 1F 04 8B C9 28 44 24  28 4B 29 2C 36 29 B2 22  |.....(D$(K),6)."|
00000AF0: 20 42 59 54 45 53 22 A7  98 34 2C 44 24 28 4B 29  | BYTES"..4,D$(K)|
00000B00: 3A 89 31 30 36 35 00 27  13 24 04 98 34 2C C8 28  |:.1065.'.$..4,.(|
00000B10: 44 24 28 4B 29 2C 34 29  3B 22 20 22 3B C9 28 44  |D$(K),4);" ";.(D|
00000B20: 24 28 4B 29 2C 34 29 00  4D 13 29 04 82 4A 3A 98  |$(K),4).M.)..J:.|
00000B30: 34 3A 98 34 2C 22 42 4C  4F 43 4B 53 20 46 52 45  |4:.4,"BLOCKS FRE|
00000B40: 45 20 20 20 20 20 22 3B  48 48 3A 98 34 00 5D 13  |E     ";HH:.4.].|
00000B50: 2E 04 98 34 3A 98 34 3A  98 34 3A A0 34 00 8A 13  |...4:.4:.4:.4...|
00000B60: 38 04 99 3A 85 22 41 4E  4F 54 48 45 52 20 44 49  |8..:."ANOTHER DI|
00000B70: 53 4B 20 28 59 2F 4E 29  22 3B 5A 24 3A 8B C6 28  |SK (Y/N)";Z$:..(|
00000B80: 5A 24 29 B2 38 39 89 32  39 30 00 90 13 42 04 80  |Z$).89.290...B..|
00000B90: 00 A8 13 4C 04 58 B2 42  AD 31 36 3A 8D 31 31 31  |...L.X.B.16:.111|
00000BA0: 30 3A 58 B2 41 AD 31 36  00 D2 13 56 04 81 4A B2  |0:X.A.16...V..J.|
00000BB0: 31 A4 32 3A 58 25 B2 58  3A 58 B2 28 58 AB 58 25  |1.2:X%.X:X.(X.X%|
00000BC0: 29 AC 31 36 3A 8B 58 25  B1 39 A7 58 25 B2 58 25  |).16:.X%.9.X%.X%|
00000BD0: AA 37 00 EA 13 60 04 44  24 B2 44 24 AA C7 28 58  |.7...`.D$.D$..(X|
00000BE0: 25 AA 34 38 29 3A 82 4A  3A 8E 00 06 14 6A 04 99  |%.48):.J:....j..|
00000BF0: 3A 99 22 50 52 45 53 53  20 4B 45 59 20 46 4F 52  |:."PRESS KEY FOR|
00000C00: 20 4D 4F 52 45 22 00 1D  14 74 04 A1 58 58 24 3A  | MORE"...t..XX$:|
00000C10: 8B 20 58 58 24 B2 22 22  89 31 31 34 30 00 23 14  |. XX$."".1140.#.|
00000C20: 7E 04 99 00 29 14 88 04  8E 00 00 00              |~...).......    |

..".Z.. **** CBM 64 CATALOGER ****.U.D..
T$(4),S%(200),F$(200),K$(200),D$(200),Z$
(200).^.N..".".Y.X.."DISK CATALOG SYSTEM
"......E...."CREATES SEQ FILES FROM DIS
K DIRECTORIES FOR INPUT TO FLEX FILE".K.
...... .. ORIG PGM BY JIM BUTTERFIELD. M
ODIFIED FOR FLEX FILE BY JOHN CAMPBELL.Z
.... 169,0,162,4,149,98,202,16,251,169,1
60,133,97,162,2,32,198,255...... 230,101
,208,10,230,100,208,6,230,99,208,2,230,9
8,32,228,255,165,144...... 240,235,32,20
4,255,198,97,6,101,38,100,38,99,38,98,16
,244,96...H..J.832.886:.X:.J,X:.J.%.R.. 
"XXX","SEQ","PRG","USR","REL".9....J.0.4
:.T$(J):..D....:."PRINTS DIRECTORY ON CB
M PRINTER":.......:."FILE FORMAT:":."  F
ILE NAME":."  FILE TYPE (PGM OR SEQ)".N.
..."  STARTING-ENDING ADDRESSES (HEX)"..
...."     OR NO. OF BYTES (SEQ FILE)....
.."  NO. OF BLOCKS"......"  DISK ID".)."
..:HH.664.Q.,.."WHEN DISK IN DRIVE 0 REA
DY FOR":."DIRECTORY CONVERSION PRESS KEY
".W.6.....@..A$:.A$."".320...J.G$."     
            "...T. 1.L.^..1,8,15,"I0": 1
:.1,8,3,"$0"...H.N%.0:.J.1.142:.#1,A$:.J
...R.N$."":.J.1.16:.#1,A$:.A$.G(160).390
...|.N$.N$.A$......J:.#1,A$,A$.U...I$.""
:.J.1.2:.#1,A$:.A$.G(160).420.B...I$.I$.
A$......J:."ID='";I$;"'    DISK NAME='";
N$;"'"............"CHANGE ID    ";I$;"..
....";:."  ";I$.W.B..:."--FILE NAMES--".
..L..J.1.92:.#1,A$:.J...V.M.M.1:.#1,K$,T
$,S$:.S$."".S$.G(0).;...F$."":.J.1.16:.#
1,A$:.A$.G(160).500.H...F$.F$.A$.O....J.
E....J.1.10:.#1,A$:.J.}...L.0:.A$.."".L.
F(A$)......#1,A$:.M.8..#1,A$,A$:.550....
.M.0...&.SW.ST:.K$."".800.V.0.K.F(K$).12
8:.K.1.K.4.800...:..F$...D.T$.T$(K)...N.
Z1$.T$(K)...X.T$.T$.D(L)...B.ZZ$.D(L).".
L..K.0.770.D.V..2,8,4,"0:".F$.",".T$(K).
",R".\...D$."":A.0:.K..2.680.}....#2,A$,
B$:A.C(A$):.A.A.F(A$).....B.C(B$):.B.B.F
(B$)......1100.B....784,76:.785,64:.786,
3:A.A..(0)......K..2.D$.D(A)." BYTES":.7
20.....A%.A.256:A.A.A%.256:B.B.A%...F..1
100...P. 2.%.Z..N%.0.J.0:.770.<....J.N%.
1..1:K.S%(J).N....F$(K).F$.770.C...S%(J.
1).S%(J):.J.Z...N%.N%.1:S%(J.1).N%.....F
$(N%).F$:K$(N%).T$:D$(N%).D$.....Z$(N%).
ZZ$:HH.HH.E(J(T$,4,4)).L. ..SW.0.470.X.*
. 1:."."...4.."  FILE NAME     TYPE BLKS
 ADDRESSES":....>..J.1.N%:K.S%(J).X.H..J
.20.J.40.J.60.J.80.J.100.J.120.J.140.J.1
60.J.180 . .1130...R..F$(K);H(G$,17.C(F$
(K)));K$(K);H(G$,9.C(K$(K)));...W..I(D$(
K),6)." BYTES"..D$(K):.865.Q.\..H(D$(K),
4);" ";I(D$(K),4)...A..J:.:."BLOCKS FREE
     ";HH:..>.F.."CREATE DISK SEQ FILE F
ROM DIRECTORY     (& DRIVE 1 READY?)(Y/N
)";ZW$.P.P..ZW$.."Y".970.K.Z..7,8,7,"@0:
".I$.",S,W".....J.1.N%:K.S%(J)......7,F
$(K);G(13);......7,K$(K);G(13);......7,D
$(K);G(13);.O....7,Z$(K);G(13);......7,I
$;G(13);......J: 7...J..:."PRINT DIRECTO
RY (Y/N)";:.ZX$.".T..ZX$.."Y".1080.+....
4,4.8....4:.4:.4.C....4,"NAME = '";N$;"'
 : ID = '";I$"'":.4......4,"FILE NAME   
    TYPE BLKS ADDRESSES":.4......J.1.N%:
K.S%(J)......4,F$(K);H(G$,17.C(F$(K)));K
$(K);H(G$,9.C(K$(K)));......I(D$(K),6)."
 BYTES"..4,D$(K):.1065.'.$..4,H(D$(K),4)
;" ";I(D$(K),4).M.)..J:.4:.4,"BLOCKS FRE
E     ";HH:.4.]....4:.4:.4: 4...8..:."AN
OTHER DISK (Y/N)";Z$:.F(Z$).89.290...B..
...L.X.B.16:.1110:X.A.16.R.V..J.1.2:X%.X
:X.(X.X%).16:.X%.9.X%.X%.7...`.D$.D$.G(X
%.48):.J:....J..:."PRESS KEY FOR MORE"..
.T..XX$:. XX$."".1140.#.~...).......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL