1 POKE53280,5:POKE53281,11:POKE198,0:PRINT"[147] [196][201][210][197][195][212][207][210][217] [211][207][210][212]          [194][217][160][202][193][211][207][206][160][198][201][206][195][200]"
2 PRINT"[155]        [201]NSERT THE REQUIRED DISK":PRINT"        AND THEN PRESS '[210][197][212][213][210][206]'.
3 [161]A$:[139]A$[179][177][199](13)[167]3
4 [153]"LOADRETURN","CMDCMDCONT                      ":[153],"CMDCMD PROCESSING DIRECTORY "
5 [153],"CMDCMD                      ":[153]"SYS    FILENAME       TYPE SIZE TRCK SECT"
6 T$(0)[178]"DEL":T$(1)[178]"SEQ":T$(2)[178]"PRG":T$(3)[178]"USR":T$(4)[178]"REL":T$(5)[178]"???"
7 N[178]0:S[178]1:T[178]18:[134]F$(144),S$(144):[159]15,8,15:[159]8,8,8,"#"
8 [152]15,"U1 8 0"T;S:[161]#8,A$:T[178][198](A$[170][199](0)):[161]#8,A$:S[178][198](A$[170][199](0))
9 [129]I[178]0[164]7:[152]15,"B-P:8"I[172]32:S$[178]"":[161]#8,A$:[161]#8,A$:[161]#8,P$:[161]#8,T$
10 [139]T$[178]""[175]P$[178]""[167]24
11 T$[178][200](T$[170][199](0),1):P$[178][200](P$[170][199](0),1)
12 N$[178][199](0)[170][199](0)[170]P$[170]T$:[129]J[178]1[164]28:[161]#8,A$:[139]A$[178]""[167]A$[178][199](0)
13 [139][198](A$)[178]160[167]15
14 [139]J[177]1[175]J[179]18[167]S$[178]S$[170]A$
15 N$[178]N$[170]A$:[130]:[139]S$[177]S$(N)[167]N[178]N[170]1:F$(N)[178]N$:S$(N)[178]S$:[137]19
16 [129]K[178]1[164]N:[139]S$[177]S$(K)[167]18
17 N[178]N[170]1:[129]J[178]N[164]K[170]1[169][171]1:F$(J)[178]F$(J[171]1):S$(J)[178]S$(J[171]1):[130]:F$(K)[178]N$:S$(K)[178]S$:K[178]N
18 [130]
19 TP[178][198]([202](N$,3,1)):TK[178][198]([202](N$,4,1)):T2[178]TP[175]15:[139]T2[177]4[167]T2[178]5
20 SC[178][198]([202](N$,5,1)):[153]"  "[202](N$,6,16)" "T$(T2);:[139](TP[175]128)[178]0[167][153]"CMDCMDCMDCMD*";
21 [139](TP[175]64)[178]64[167][153]"<CMD";
22 [153]""[201]("  "[170][196]([198]([202](N$,31,1))),3)"   "[201]([196](TK),2);
23 [153]"   "[201]([196](SC),2)
24 [130]:[139]T[179][177]0[167]8
25 [139]N[179]144[167][129]I[178]1[164](144[171]N)[175]7:[129]J[178]0[164]31:F$(I[170]N)[178]F$(I[170]N)[170][199](0):[130]J,I
26 [153]"CONTDEF PRESS ANY KEY TO VIEW SORTED DIRECTORY"
27 [153]" (PRESS 'SHIFT' TO PAUSE THE LISTING)":[151]198,0:[146]198,1:[151]198,0
28 [153]"LOAD0 "[199](34);:[152]15,"U1 8 0 18 0":[152]15,"B-P:8 144":[129]I[178]1[164]16:[161]#8,A$
29 [153]A$;:[130]:[153][199](34)[199](32);:[161]#8,A$:[161]#8,A$:[129]I[178]1[164]5:[161]#8,A$:[153]A$;:[130]:[153]
30 [129]I[178]1[164]N:[153][202]([196]([198]([202](F$(I),31,1))[170][198]([202](F$(I),32,1))[172]256),2);
31 [153][163]5)[199](34)S$(I)[199](34)[163]24);:P[178][198]([202](F$(I),3,1)):P2[178]P[175]15:[139]P2[177]4[167]P2[178]5
32 [153]T$(P2);:[139](P[175]128)[178]0[167][153]"CMDCMDCMDCMD*";
33 [139](P[175]64)[178]64[167][153]"<";
34 [153]
35 [139][194](653)[178]1[167]35
36 [130]:[153]" DEFOK. PRESS 'F1' TO SAVE THE DIRECTORY"
37 [153]" OR ANY OTHER KEY TO ABORT.":[151]198,0
38 [161]A$:[139]A$[178]""[167]38
39 [139]A$[179][177][199](133)[167][160]8:[160]15:[138]
40 [153]"LOAD"," CONT                  ":[153],"  SAVING DIRECTORY "
41 [153],"                   "
42 [129]I[178]1[164]N[169]8:[152]15,"B-P:8 0":[129]J[178]0[164]7:[152]8,F$(I[170]J);:[130]:[152]15,"B-P:8 0"
43 T[178]18:S[178][181]((I[170]7)[173]8)[172]3[170]1[171]17[172][181]([181]((I[170]7)[173]8)[173]6):[139]I[170]8[177]N[167]T[178]0:S[178]255
44 [152]8,[199](T)[199](S);:[152]15,"U2 8 0 18"[181]((I[171]1)[173]8)[172]3[170]1[171]17[172][181]([181]((I[171]1)[173]8)[173]6):[130]
45 [160]8:[160]15:[153]"LOAD	"[199](34)"DIRECTORIES EXPLAINED"[199](34)
46 [153]"BY JASON FINCHSTOP":[162]