DIRECTORY PRINTE

00000000: 01 08 1E 08 1E 00 97 35  33 32 38 30 2C 31 33 3A  |.......53280,13:|
00000010: 97 35 33 32 38 31 2C 30  3A 99 22 93 05 22 00 3B  |.53281,0:."..".;|
00000020: 08 22 00 99 A3 31 30 29  22 2A 2A 2A 2A 2A 2A 2A  |."...10)"*******|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 22 00 57 08 23 00  |**********".W.#.|
00000040: 99 A3 31 31 29 22 11 50  52 49 4E 54 45 52 20 55  |..11)".PRINTER U|
00000050: 54 49 4C 49 54 59 22 00  75 08 24 00 99 A3 31 30  |TILITY".u.$...10|
00000060: 29 22 11 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |)".*************|
00000070: 2A 2A 2A 2A 22 00 A6 08  28 00 99 22 1D 11 11 54  |****"...(.."...T|
00000080: 48 49 53 20 50 52 4F 47  52 41 4D 20 57 49 4C 4C  |HIS PROGRAM WILL|
00000090: 20 50 52 49 4E 54 20 41  20 44 49 52 45 43 54 4F  | PRINT A DIRECTO|
000000A0: 52 59 20 49 4E 22 00 D4  08 2A 00 99 22 41 4C 50  |RY IN"...*.."ALP|
000000B0: 48 41 42 45 54 49 43 41  4C 20 4F 52 44 45 52 20  |HABETICAL ORDER |
000000C0: 49 4E 20 54 57 4F 20 43  4F 4C 55 4D 4E 53 20 54  |IN TWO COLUMNS T|
000000D0: 48 41 54 22 00 03 09 2C  00 99 22 57 48 45 4E 20  |HAT"...,.."WHEN |
000000E0: 54 52 49 4D 4D 45 44 20  57 49 4C 4C 20 46 49 54  |TRIMMED WILL FIT|
000000F0: 20 57 49 54 48 20 54 48  45 20 44 49 53 4B 4B 45  | WITH THE DISKKE|
00000100: 54 54 22 00 19 09 2D 00  99 22 49 4E 20 49 54 53  |TT"...-.."IN ITS|
00000110: 27 20 4A 41 43 4B 45 54  2E 00 45 09 2E 00 99 A3  |' JACKET..E.....|
00000120: 34 29 22 41 54 20 54 48  49 53 20 54 49 4D 45 20  |4)"AT THIS TIME |
00000130: 49 4E 53 45 52 54 20 54  48 45 20 44 49 53 4B 20  |INSERT THE DISK |
00000140: 54 48 41 54 22 00 6F 09  30 00 99 22 59 4F 55 20  |THAT".o.0.."YOU |
00000150: 57 41 4E 54 20 54 4F 20  50 52 49 4E 54 20 41 20  |WANT TO PRINT A |
00000160: 44 49 52 45 43 54 4F 52  59 20 4F 46 2E 2E 22 00  |DIRECTORY OF..".|
00000170: 9C 09 32 00 99 A3 34 29  22 11 11 11 50 52 45 53  |..2...4)"...PRES|
00000180: 53 20 12 3C 52 45 54 55  52 4E 3E 92 20 54 4F 20  |S .<RETURN>. TO |
00000190: 52 55 4E 20 50 52 4F 47  52 41 4D 22 00 B4 09 3C  |RUN PROGRAM"...<|
000001A0: 00 A1 20 41 24 3A 8B 20  41 24 B3 B1 C7 28 31 33  |.. A$:. A$...(13|
000001B0: 29 A7 36 30 00 FC 09 64  00 86 46 58 24 28 32 35  |).60...d..FX$(25|
000001C0: 36 29 2C 46 54 24 28 32  35 36 29 2C 46 4C 28 32  |6),FT$(256),FL(2|
000001D0: 35 36 29 2C 54 54 28 32  35 36 29 3A 4E B2 AB 31  |56),TT(256):N..1|
000001E0: 3A 81 49 B2 31 A4 32 35  36 3A 46 58 24 28 49 29  |:.I.1.256:FX$(I)|
000001F0: B2 22 20 22 3A 82 3A 58  B2 32 32 31 00 1E 0A 6E  |." ":.:X.221...n|
00000200: 00 42 4C 24 B2 22 20 22  3A 81 49 B2 31 A4 34 30  |.BL$." ":.I.1.40|
00000210: 3A 42 4C 24 B2 42 4C 24  AA 22 A0 22 3A 82 00 4A  |:BL$.BL$.".":..J|
00000220: 0A 78 00 A0 31 35 3A 9F  31 35 2C 38 2C 31 35 3A  |.x..15:.15,8,15:|
00000230: 9F 31 2C 38 2C 30 2C 22  24 30 22 3A 8D 34 38 30  |.1,8,0,"$0":.480|
00000240: 3A A1 23 31 2C 41 24 2C  42 24 00 57 0A 7D 00 99  |:.#1,A$,B$.W.}..|
00000250: 22 93 22 3A 99 3A 99 00  75 0A 82 00 57 B2 35 30  |".":.:..u...W.50|
00000260: 3A 4C 24 B2 22 22 3A 85  22 43 4F 4D 4D 45 4E 54  |:L$."":."COMMENT|
00000270: 53 22 3B 4C 24 00 B9 0A  87 00 8B C3 28 4C 24 29  |S";L$.......(L$)|
00000280: B1 32 32 20 A7 20 99 22  4C 41 42 45 4C 20 53 54  |.22 . ."LABEL ST|
00000290: 52 49 4E 47 20 54 4F 4F  20 4C 4F 4E 47 2D 4D 41  |RING TOO LONG-MA|
000002A0: 58 20 49 53 20 32 32 20  43 48 41 52 41 43 54 45  |X IS 22 CHARACTE|
000002B0: 52 53 2E 22 3A 89 31 33  30 00 E5 0A 8C 00 A1 23  |RS.":.130......#|
000002C0: 31 2C 41 24 2C 42 24 3A  A1 23 31 2C 41 24 2C 42  |1,A$,B$:.#1,A$,B|
000002D0: 24 3A 43 B2 30 3A 8B 41  24 B3 B1 22 22 A7 43 B2  |$:C.0:.A$.."".C.|
000002E0: C6 28 41 24 29 00 00 0B  96 00 8B 20 42 24 B3 B1  |.(A$)...... B$..|
000002F0: 22 22 A7 43 B2 43 AA C6  28 42 24 29 AC 32 35 36  |"".C.C..(B$).256|
00000300: 00 12 0B A0 00 4E B2 4E  AA 31 3A 46 4C 28 4E 29  |.....N.N.1:FL(N)|
00000310: B2 43 00 28 0B AA 00 A1  23 31 2C 42 24 3A 8B 53  |.C.(....#1,B$:.S|
00000320: 54 B3 B1 30 A7 32 36 30  00 3B 0B B4 00 8B 42 24  |T..0.260.;....B$|
00000330: B3 B1 C7 28 33 34 29 A7  31 37 30 00 45 0B BE 00  |...(34).170.E...|
00000340: 4E 24 B2 22 22 00 69 0B  C8 00 A1 23 31 2C 42 24  |N$."".i....#1,B$|
00000350: 3A 8B 42 24 B3 B1 C7 28  33 34 29 A7 4E 24 B2 4E  |:.B$...(34).N$.N|
00000360: 24 AA 42 24 3A 89 32 30  30 00 77 0B D2 00 46 58  |$.B$:.200.w...FX|
00000370: 24 28 4E 29 B2 4E 24 00  90 0B DC 00 A1 23 31 2C  |$(N).N$......#1,|
00000380: 42 24 3A 8B 42 24 B2 C7  28 33 32 29 A7 32 32 30  |B$:.B$..(32).220|
00000390: 00 9A 0B E6 00 43 24 B2  22 22 00 BC 0B F0 00 43  |.....C$."".....C|
000003A0: 24 B2 43 24 AA 42 24 3A  A1 23 31 2C 42 24 3A 8B  |$.C$.B$:.#1,B$:.|
000003B0: 42 24 B3 B1 22 22 20 20  A7 32 34 30 00 D9 0B FA  |B$..""  .240....|
000003C0: 00 46 54 24 28 4E 29 B2  C8 28 43 24 2C 33 29 3A  |.FT$(N)..(C$,3):|
000003D0: 8B 53 54 B2 30 A7 31 34  30 00 F4 0B 04 01 A0 31  |.ST.0.140......1|
000003E0: 3A 42 46 B2 46 4C 28 4E  29 3A 4E B2 4E AB 31 3A  |:BF.FL(N):N.N.1:|
000003F0: 8D 35 38 30 00 00 0C 0E  01 A0 33 3A 9F 33 2C 34  |.580......3:.3,4|
00000400: 00 2E 0C 18 01 98 33 2C  C7 28 31 37 36 29 3B 3A  |......3,.(176);:|
00000410: 81 49 B2 31 A4 35 30 3A  98 33 2C C7 28 31 39 32  |.I.1.50:.3,.(192|
00000420: 29 3B 3A 82 3A 98 33 2C  C7 28 31 37 34 29 00 44  |);:.:.3,.(174).D|
00000430: 0C 22 01 98 33 2C C7 28  58 29 3B A6 35 30 29 3B  |."..3,.(X);.50);|
00000440: C7 28 58 29 00 70 0C 2C  01 54 32 24 B2 46 58 24  |.(X).p.,.T2$.FX$|
00000450: 28 30 29 3A 8B 4C 24 B3  B1 22 22 A7 54 32 24 B2  |(0):.L$.."".T2$.|
00000460: 54 32 24 AA 22 A0 A0 28  22 AA 4C 24 AA 22 29 22  |T2$."..(".L$.")"|
00000470: 00 89 0C 36 01 54 24 B2  C7 28 58 29 AA 22 3E 3E  |...6.T$..(X).">>|
00000480: 3E 22 AA 46 58 24 28 30  29 00 B2 0C 3B 01 8B 4C  |>".FX$(0)...;..L|
00000490: 24 B2 22 22 A7 54 24 B2  54 24 AA CA 28 42 4C 24  |$."".T$.T$..(BL$|
000004A0: 2C 31 2C 57 AB C3 28 54  24 29 AB 31 29 3A 89 33  |,1,W..(T$).1):.3|
000004B0: 33 30 00 E6 0C 40 01 4B  B2 57 AB 32 AB C3 28 54  |30...@.K.W.2..(T|
000004C0: 24 29 AB C3 28 4C 24 29  3A 54 24 B2 54 24 AA CA  |$)..(L$):T$.T$..|
000004D0: 28 42 4C 24 2C 31 2C 4B  AB 31 29 AA 22 28 22 AA  |(BL$,1,K.1)."(".|
000004E0: 4C 24 AA 22 29 22 00 00  0D 4A 01 54 24 B2 54 24  |L$.")"...J.T$.T$|
000004F0: AA 22 20 20 22 AA C7 28  58 29 3A 98 33 2C 54 24  |."  "..(X):.3,T$|
00000500: 00 16 0D 54 01 98 33 2C  C7 28 58 29 3B A6 35 30  |...T..3,.(X);.50|
00000510: 29 3B C7 28 58 29 00 44  0D 5E 01 98 33 2C C7 28  |);.(X).D.^..3,.(|
00000520: 31 37 31 29 3B 3A 81 49  B2 31 A4 35 30 3A 98 33  |171);:.I.1.50:.3|
00000530: 2C C7 28 31 39 32 29 3B  3A 82 3A 98 33 2C C7 28  |,.(192);:.:.3,.(|
00000540: 31 37 39 29 00 5A 0D 68  01 98 33 2C C7 28 58 29  |179).Z.h..3,.(X)|
00000550: 3B A6 35 30 29 3B C7 28  58 29 00 76 0D 72 01 4C  |;.50);.(X).v.r.L|
00000560: B2 39 3A 4B B2 B5 28 28  4E AA 31 29 AD 32 29 3A  |.9:K..((N.1).2):|
00000570: 81 49 B2 31 A4 4B 00 AF  0D 7C 01 54 24 B2 C7 28  |.I.1.K...|.T$..(|
00000580: 58 29 3A 4A B2 49 3A 8D  35 32 30 3A 54 24 B2 54  |X):J.I:.520:T$.T|
00000590: 24 AA 22 22 3A 4A B2 4B  AA 49 3A 8D 35 32 30 3A  |$."":J.K.I:.520:|
000005A0: 54 24 B2 54 24 AA 22 20  20 22 AA C7 28 58 29 00  |T$.T$."  "..(X).|
000005B0: C1 0D 86 01 98 33 2C 54  24 3A 4C B2 4C AA 31 3A  |.....3,T$:L.L.1:|
000005C0: 82 00 D7 0D 90 01 98 33  2C C7 28 58 29 3B A6 35  |.......3,.(X);.5|
000005D0: 30 29 3B C7 28 58 29 00  FD 0D 9A 01 50 B2 B5 28  |0);.(X).....P..(|
000005E0: 28 42 46 AC 31 30 30 AD  36 36 34 29 AA 2E 35 29  |(BF.100.664)..5)|
000005F0: 3A 50 24 B2 CA 28 C4 28  50 29 2C 32 29 00 34 0E  |:P$..(.(P),2).4.|
00000600: A4 01 54 24 B2 C7 28 58  29 AA CA 28 42 4C 24 2C  |..T$..(X)..(BL$,|
00000610: 31 2C 31 34 29 AA C4 28  42 46 29 AA 22 20 42 4C  |1,14)..(BF)." BL|
00000620: 4F 43 4B 53 20 28 22 AA  50 24 AA 22 25 29 20 46  |OCKS (".P$."%) F|
00000630: 52 45 45 22 00 5C 0E AE  01 54 24 B2 54 24 AA CA  |REE".\...T$.T$..|
00000640: 28 42 4C 24 2C 31 2C 57  AB C3 28 54 24 29 AA 31  |(BL$,1,W..(T$).1|
00000650: 29 AA C7 28 58 29 3A 98  33 2C 54 24 00 7A 0E B8  |)..(X):.3,T$.z..|
00000660: 01 81 49 B2 4C A4 32 37  3A 98 33 2C C7 28 58 29  |..I.L.27:.3,.(X)|
00000670: 3B A6 35 30 29 3B C7 28  58 29 00 80 0E C2 01 82  |;.50);.(X)......|
00000680: 00 90 0E D6 01 98 33 3A  A0 33 3A A0 31 35 3A 80  |......3:.3:.15:.|
00000690: 00 A8 0E E0 01 84 31 35  2C 45 52 2C 45 52 24 3A  |......15,ER,ER$:|
000006A0: 8B 45 52 B3 32 30 A7 8E  00 DC 0E EA 01 8B 45 52  |.ER.20........ER|
000006B0: B2 37 34 B0 45 52 B2 32  31 A7 45 52 24 B2 45 52  |.74.ER.21.ER$.ER|
000006C0: 24 AA 22 2D 2D 49 53 20  44 49 53 4B 20 49 4E 53  |$."--IS DISK INS|
000006D0: 45 52 54 45 44 3F 22 3A  89 35 31 30 00 FF 0E F4  |ERTED?":.510....|
000006E0: 01 45 52 24 B2 22 44 49  53 4B 20 45 52 52 4F 52  |.ER$."DISK ERROR|
000006F0: 22 AA C4 28 45 52 29 AA  22 3A 22 AA 45 52 24 00  |"..(ER).":".ER$.|
00000700: 0A 0F FE 01 99 45 52 24  3A 80 00 2F 0F 08 02 54  |.....ER$:../...T|
00000710: B2 54 54 28 4A 29 3A 8B  54 B2 30 A7 54 24 B2 54  |.TT(J):.T.0.T$.T|
00000720: 24 AA CA 28 42 4C 24 2C  31 2C 32 34 29 3A 8E 00  |$..(BL$,1,24):..|
00000730: 48 0F 12 02 8B 46 4C 28  54 29 B3 31 30 30 A7 54  |H....FL(T).100.T|
00000740: 24 B2 54 24 AA 22 A0 22  00 60 0F 1C 02 8B 46 4C  |$.T$.".".`....FL|
00000750: 28 54 29 B3 31 30 A7 54  24 B2 54 24 AA 22 A0 22  |(T).10.T$.T$."."|
00000760: 00 83 0F 26 02 54 24 B2  54 24 AA CA 28 C4 28 46  |...&.T$.T$..(.(F|
00000770: 4C 28 54 29 29 2C 32 29  AA 22 A0 22 AA 46 58 24  |L(T)),2).".".FX$|
00000780: 28 54 29 00 B2 0F 30 02  8B 20 C3 28 46 58 24 28  |(T)...0.. .(FX$(|
00000790: 54 29 29 B3 31 36 A7 54  24 B2 54 24 AA CA 28 42  |T)).16.T$.T$..(B|
000007A0: 4C 24 2C 31 2C 31 36 AB  C3 28 46 58 24 28 54 29  |L$,1,16..(FX$(T)|
000007B0: 29 29 00 CE 0F 3A 02 54  24 B2 54 24 AA 22 A0 22  |))...:.T$.T$."."|
000007C0: AA C8 28 46 54 24 28 54  29 2C 33 29 3A 8E 00 E4  |..(FT$(T),3):...|
000007D0: 0F 44 02 81 20 49 B2 31  A4 4E 3A 54 54 28 49 29  |.D.. I.1.N:TT(I)|
000007E0: B2 49 3A 82 00 19 10 4E  02 81 49 B2 31 A4 4E AB  |.I:....N..I.1.N.|
000007F0: 31 3A 53 B2 49 3A 81 4A  B2 49 AA 31 A4 4E 3A 8B  |1:S.I:.J.I.1.N:.|
00000800: 46 58 24 28 54 54 28 4A  29 29 B3 46 58 24 28 54  |FX$(TT(J)).FX$(T|
00000810: 54 28 53 29 29 A7 53 B2  4A 00 42 10 58 02 82 4A  |T(S)).S.J.B.X..J|
00000820: 3A 8B 53 B3 B1 49 A7 54  B2 54 54 28 49 29 3A 54  |:.S..I.T.TT(I):T|
00000830: 54 28 49 29 B2 54 54 28  53 29 3A 54 54 28 53 29  |T(I).TT(S):TT(S)|
00000840: B2 54 00 4C 10 62 02 82  20 49 3A 8E 00 00 00     |.T.L.b.. I:.... |

.......53280,13:.53281,0:."..".;."...10)
"*****************".W.#...11)".PRINTER U
TILITY".U.$...10)".*****************"...
(.."...THIS PROGRAM WILL PRINT A DIRECTO
RY IN".T.*.."ALPHABETICAL ORDER IN TWO C
OLUMNS THAT"...,.."WHEN TRIMMED WILL FIT
 WITH THE DISKKETT"...-.."IN ITS' JACKET
..E.....4)"AT THIS TIME INSERT THE DISK 
THAT".O.0.."YOU WANT TO PRINT A DIRECTOR
Y OF.."...2...4)"...PRESS .<RETURN>. TO 
RUN PROGRAM"...<.. A$:. A$..G(13).60...D
..FX$(256),FT$(256),FL(256),TT(256):N..1
:.I.1.256:FX$(I)." ":.:X.221...N.BL$." "
:.I.1.40:BL$.BL$." ":..J.X. 15:.15,8,15:
.1,8,0,"$0":.480:.#1,A$,B$.W.}..".":.:..
U...W.50:L$."":."COMMENTS";L$......C(L$)
.22 . ."LABEL STRING TOO LONG-MAX IS 22 
CHARACTERS.":.130......#1,A$,B$:.#1,A$,B
$:C.0:.A$.."".C.F(A$)...... B$.."".C.C.F
(B$).256... .N.N.1:FL(N).C.(....#1,B$:.S
T..0.260.;....B$..G(34).170.E...N$."".I.
H..#1,B$:.B$..G(34).N$.N$.B$:.200.W.R.FX
$(N).N$......#1,B$:.B$.G(32).220.....C$.
"".....C$.C$.B$:.#1,B$:.B$..""  .240.Y..
.FT$(N).H(C$,3):.ST.0.140..... 1:BF.FL(N
):N.N.1:.580..... 3:.3,4......3,G(176);:
.I.1.50:.3,G(192);:.:.3,G(174).D."..3,G(
X);.50);G(X).P.,.T2$.FX$(0):.L$.."".T2$.
T2$."  (".L$.")"...6.T$.G(X).">>>".FX$(0
)...;..L$."".T$.T$.J(BL$,1,W.C(T$).1):.3
30...@.K.W.2.C(T$).C(L$):T$.T$.J(BL$,1,K
.1)."(".L$.")"...J.T$.T$."  ".G(X):.3,T$
...T..3,G(X);.50);G(X).D.^..3,G(171);:.I
.1.50:.3,G(192);:.:.3,G(179).Z.H..3,G(X)
;.50);G(X).V.R.L.9:K..((N.1).2):.I.1.K..
.|.T$.G(X):J.I:.520:T$.T$."":J.K.I:.520:
T$.T$."  ".G(X).A....3,T$:L.L.1:..W....3
,G(X);.50);G(X).....P..((BF.100.664)..5)
:P$.J(D(P),2).4...T$.G(X).J(BL$,1,14).D(
BF)." BLOCKS (".P$."%) FREE".\...T$.T$.J
(BL$,1,W.C(T$).1).G(X):.3,T$.Z....I.L.27
:.3,G(X);.50);G(X)...B.....V..3: 3: 15:.
......15,ER,ER$:.ER.20........ER.74.ER.2
1.ER$.ER$."--IS DISK INSERTED?":.510....
.ER$."DISK ERROR".D(ER).":".ER$......ER$
:../...T.TT(J):.T.0.T$.T$.J(BL$,1,24):..
H....FL(T).100.T$.T$." ".`....FL(T).10.T
$.T$." "...&.T$.T$.J(D(FL(T)),2)." ".FX$
(T)...0.. C(FX$(T)).16.T$.T$.J(BL$,1,16.
C(FX$(T))).N.:.T$.T$." ".H(FT$(T),3):...
.D.. I.1.N:TT(I).I:....N..I.1.N.1:S.I:.J
.I.1.N:.FX$(TT(J)).FX$(TT(S)).S.J.B.X..J
:.S..I.T.TT(I):TT(I).TT(S):TT(S).T.L.B..
 I:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL