10 REM COPYRIGHT 1994 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHT RESERVED
100 POKE 53280,0:POKE53281,0:POKE646,13
110 PRINT "[147] UNSCRATCH DISK FILES"
120 PRINT " RANDY CLEMMONS
130 [141]630:[143] INIT DIRECTORY-EASE
140 [153] "LOAD UN-SCRATCH DISK FILES"
150 [153] " DISK UNIT # (8-11) ?CLOSE8 CMDCMDCMDCMD";
160 [133] U$:U[178][197](U$):[139] U[179]8 [176] U[177]11 [167] [153] "ONONON": [137]150
170 [153] "LOAD ENTER * (WILDCARD) OR FILENAME"
180 [153] " ENTER $ TO DISPLAY DIRECTORY"
190 N$[178]"":[133]" ";N$: [139] N$[178]"" [167]580
200 V[178]16:Q[178]32:F[178]256:T[178]18:S[178]1:W[178]0
210 Z$[178][199](0):N$[178][200](N$,V): L[178][195](N$)
220 [139] N$[178]"$" [167] [153]"LOAD":[158]828:[141]600:[137]140
230 [139] [201](N$,1)[179][177]"*" [167]250
240 L[178]L[171]1:N$[178][200](N$,L): W[178]1:[137]270
250 [139] L[178]V [167]270
260 [129] X[178]L[170]1 [164] V: N$[178]N$[170][199](160): [130]: L[178]V
270 [159] 1,U,15,"I0": [141]560
280 [159] 2,U,2,"#": [141]560
290 [152]1,"U1:";2;0;T;S: [141]560
300 [152]1,"B-P:";2;0: [161]#2,A$,B$
310 TR[178][198](A$[170]Z$): SC[178][198](B$[170]Z$): H[178]2
320 [152]1,"B-P:";2;H:[161]#2,T$
330 C[178][198](T$[170]Z$): [139] C[177]0 [167]370
340 [161]#2,A$,B$: F$[178]"": [129] X[178]1 [164] V
350 [161]#2,T$: F$[178]F$[170]T$: [130]: [139] F$[178]"" [167]390
360 [139] L[178]0 [176] N$[178][200](F$,L) [167]430
370 H[178]H[170]Q: [139] H[179]F [167]320
380 [139] TR[177]0 [167] T[178]TR: S[178]SC: [137]290
390 [139] W [167] [153] " END OF SEARCH":[137]580
400 [153] " FILENAME:  ";N$
410 [153] " END OF SEARCH":[137]550
430 A[178][198](A$[170]Z$): B[178][198](B$[170]Z$)
440 [153] "LOAD FOUND:  ";F$
445 [143] IF N$<>"" THEN 490
450 [153] " AT TRACK";A;" SECTOR";B
460 [153] " RESTORE THIS FILE (Y/N) ? NCMDCMDCMD";
470 [133] KY$: [139] KY$[178]"Y" [167]490
480 [137] 545
490 [153] " 1=SEQ  2=PRG  3=USR  4=REL"
500 [153] " ENTER FILE-TYPE (1-4) ? 2CMDCMDCMD";
510 [133] P$:P[178][197](P$):[139] P[179]1 [176] P[177]4 [167] [153] "ONONONONON": [137]490
520 [152]1,"B-P:";2;H: [152]2,[199](P[170]128);
530 [152]1,"U2:";2;0;T;S:[141]560
540 [139] P [167] [153] " UN-SCRATCHED FILE:  ";F$:[141]590
545 [139] W [167] 370
550 [160] 2: [160] 1:[128]
560 [132]1,E,M$,J,K: [139] E[178]0 [167] [142]
570 [153] " ERROR: ";E;M$;J;K
580 [160] 2: [160] 1:[128]
590 [129] T[178]1 [164] 1000:[130]T:[142]
600 [153]" PRESS A KEY TO CONTINUE"
610 [161] KY$:[139] KY$[178]"" [167]610
620 [142]
630 [143]  ** DIRECTORY-EASE
640 [129]I[178] 828 [164] 929 :[135]DA:[151]I,DA:[130]I:[142]
650 [131] 169,8,170,160,0,32
660 [131] 186,255,169,1,162,154
670 [131] 160,3,32,189,255,32
680 [131] 192,255,162,8,32,198
690 [131] 255,32,228,255,32,228
700 [131] 255,32,225,255,240,49
710 [131] 32,228,255,32,228,255
720 [131] 165,144,208,39,32,228
730 [131] 255,141,160,3,32,228
740 [131] 255,174,160,3,32,205
750 [131] 189,169,32,32,210,255
760 [131] 32,228,255,240,6,32
770 [131] 210,255,76,126,3,169
780 [131] 13,32,210,255,76,91
790 [131] 3,32,204,255,169,8
800 [131] 32,195,255,96,36,48
810 [131] 58,42,61,83,0,0
0