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.          DELVSQWK.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 SGB$="                               |"
140 OPEN "DIR99" FOR OUTPUT AS 2:WHILE NOT EOF(1):LINE INPUT #1,A$
200 IF A$<>SGB$ THEN PRINT #2,A$
280 WEND:CLOSE:KILL "DIR99.BAG":SYSTEM