10 REM COPYRIGHT 1987 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 PRINT"[147][151]"CHR$(14):POKE53280,0:POKE53281,15
30 PRINT"   [195]OPYRIGHT 1987 [195][207][205][208][213][212][197]! [208]UB., [201]NC."
40 PRINTTAB(11)"[193]LL [210]IGHTS [210]ESERVED"
50 PRINTTAB(13)"[144][212][210][193][211][200] [210][197][211][212][207][210][197][210][151]"
60 PRINTTAB(7)"[194]RINGS FILES BACK FROM THE"
70 PRINTTAB(7)"[199][197][207][211] [196]ESKTOP WASTE BASKET"
80 PRINTTAB(5)"[201]NSERT DISK AND PRESS <[210][197][212][213][210][206]>"
90 GETA$:IFA$<>CHR$(13)THEN90
100 PRINT"[147][211]EARCHING FOR DISCARDED FILES..."
110 OPEN15,8,15:OPEN8,8,8,"#"
120 T=18:S=1:F1=0
130 PRINT#15,"U1:";8;0;T;S:PRINT#15,"B-P:";8;0:DR=1
140 GET#8,NT$,NS$:NT=ASC(NT$+CHR$(0)):NS=ASC(NS$+CHR$(0)):F2=0
150 BP=3
160 PRINT#15,"B-P:";8;BP:GET#8,VE$:VE=ASC(VE$+CHR$(0))
170 IFVE<1ORVE>35THEN420
180 BP=BP-1
190 PRINT#15,"B-P:";8;BP:GET#8,FT$:FT=ASC(FT$+CHR$(0))
200 IFFT<>0THEN420
210 BN=BP+3:NA$=""
220 PRINT#15,"B-P:";8;BN
230 GET#8,N$
240 IFN$=CHR$(160)THEN260
250 NA$=NA$+N$:GOTO230
260 PRINT"[147]"NA$
270 PRINT"HAS BEEN DISCARDED"
280 PRINT"[201]F YOU WANT TO RESTORE IT"
290 PRINT"INDICATE FILE TYPE"
300 PRINT"OR 0 TO CONTINUE."
310 PRINTTAB(5)"[198][201][204][197] [212][217][208][197] [205][197][206][213]"
320 PRINT"1.  [211][197][209]UENTIAL
330 [153]"2.  (null)(null)(null)CHR$RAM
340 PRINT"3.  [213][211][197][210]
350 [153]"4.  (null)VAL(null)ATIVE
360 INPUT"[217]OUR CHOICE...";CH$
370 IFCH$<"0"ORCH$>"4"THENPRINT"[145]                        [145][145]":GOTO360
380 IFCH$="0"THEN420
390 PRINT#15,"B-P:";8;BP
400 CH=VAL(CH$)+128
410 PRINT#8,CHR$(CH);:F2=1:F1=1
420 DR=DR+1:BP=BP+33
430 IFDR<9THEN160
440 IFF2=0THEN460
450 PRINT#15,"U2:";8;0;T;S
460 IFNT<>0THENT=NT:S=NS:GOTO130
470 IFF1<>0THEN500
480 PRINTTAB(5)"[206]O DISCARDED FILES RESTORED."
490 GOTO570
500 PRINT"[147][212]O COMPLETE THE"
510 PRINT"TRASH RESTORER PROCESS"
520 PRINT"BOOT UP [199][197][207][211]"
530 PRINT"AND [214][193][204][201][196][193][212][197] THIS DISK"
540 PRINT"USING THE [199][197][207][211] VALIDATE COMMAND."
550 PRINTTAB(9)"[196][207] [206][207][212] [213][211][197] [212][200][197] [206][207][210][205][193][204]"
560 PRINTTAB(9)"[196][207][211] [214][193][204][201][196][193][212][197] [195][207][205][205][193][206][196]!"
570 CLOSE8:CLOSE15
580 PRINTTAB(4)"[208]RESS <[210][197][212][213][210][206]> TO EXIT TO [194][193][211][201][195]"
590 GETA$:IFA$<>CHR$(13)THEN590
600 PRINT"[147][154]"CHR$(142):POKE53280,14:POKE53281,6:END