10 '(C)Copyright Frederick W. Kantor 1991. All rights reserved.
20 'For use with FWKCS(TM) Contents_Signature System, Version 1.12.
30 'Your use of this program is at solely your own risk.          DEX80SP.BAS
40 OPEN "DIR99.BAG" AS 1 LEN=1:CLOSE:KILL "DIR99.BAG"
50 NAME "DIR99" AS "DIR99.BAG":OPEN "DIR99.BAG" FOR INPUT AS 1
60 S0$=" @X80":L0=LEN(S0$)
70 S1$="                               |"
80 OPEN "DIR99" FOR OUTPUT AS 2:WHILE NOT EOF(1):LINE INPUT #1,A$
90 IF LEFT$(A$,L0)=S0$ OR A$=S1$ THEN GOTO 110
100 PRINT #2,A$
110 WEND:CLOSE:KILL "DIR99.BAG":SYSTEM