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.          DEX80CNT.BAS
40 CLS:LOCATE 10,1:PRINT "lines done:"
50 OPEN "DIR99.BAG" AS 1 LEN=1:CLOSE:KILL "DIR99.BAG"
60 NAME "DIR99" AS "DIR99.BAG":OPEN "DIR99.BAG" FOR INPUT AS 1
70 S0$=" @X80                              |":L0=LEN(S0$):L1=L0+1
80 S1$="                               |"
90 OPEN "DIR99" FOR OUTPUT AS 2:WHILE NOT EOF(1):LINE INPUT #1,A$
100 IF LEFT$(A$,L0)=S0$ THEN A$=S1$+MID$(A$,L1):GOTO 110
110 PRINT #2,A$:I=I+1:LOCATE 10,15:PRINT USING"######";I:WEND:CLOSE
120 KILL "DIR99.BAG":SYSTEM