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.          DEX80QWK.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$):L1=L0+1
70 S1$="                               |"
80 OPEN "DIR99" FOR OUTPUT AS 2:WHILE NOT EOF(1):LINE INPUT #1,A$
90 IF LEFT$(A$,L0)=S0$ THEN A$=S1$+MID$(A$,L1):GOTO 100
100 PRINT #2,A$:WEND:CLOSE:KILL "DIR99.BAG":SYSTEM