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.          ATX80CNT.BAS
40 '
50 ' This program looks for an unbroken horizontal bar of 70 "=", before
60 ' it starts modifying the DIR99 file.
70 '
80 CLS:LOCATE 10,1:PRINT "output lines:"
90 OPEN "DIR99.BAG" AS 1 LEN=1:CLOSE:KILL "DIR99.BAG"
100 NAME "DIR99" AS "DIR99.BAG":OPEN "DIR99.BAG" FOR INPUT AS 1
110 SGB$="                               |":NEEDVSPACE=0:SG$=SGB$+" "
120 S0$=SG$+"Uploaded by:":L0=LEN(S0$)
130 S1$=SG$+"UPLOADED BY:":L1=LEN(S1$)
140 S2$=SG$+"zcs|":L2=LEN(S2$)
150 S3$=SG$+"ZCS|":L3=LEN(S3$)
160 S4$=SG$+"fcs|":L4=LEN(S4$)
170 S5$=SG$+"FCS|":L5=LEN(S5$):SB$=STRING$(70,"="):FOUNDBAR=0
180 S6$=SG$+"Contains encrypted file(s).":L6=LEN(S6$)
190 S7$=SG$+"CONTAINS ENCRYPTED FILE(S).":L7=LEN(S7$)
200 S8$=SG$+"Caution: encrypted file(s) not virus_scanned.":L8=LEN(S8$)
210 S9$=SG$+"CAUTION: ENCRYPTED FILE(S) NOT VIRUS_SCANNED.":L9=LEN(S9$)
220 OPEN "DIR99" FOR OUTPUT AS 2:WHILE NOT EOF(1):LINE INPUT #1,A$
230 IF FOUNDBAR=1 THEN GOTO 260
240 IF INSTR(A$,SB$)>0 THEN FOUNDBAR=1
250 NEEDVSPACE=0
260 IF LEFT$(A$,1)<>" " AND NEEDVSPACE=1 THEN GOSUB 410:GOTO 390
270 IF LEFT$(A$,1)<>" " THEN NEEDVSPACE=1
280 IF A$=SGB$ THEN NEEDVSPACE=0:GOTO 390
290 IF LEFT$(A$,L0)=S0$ THEN A$=" @X80"+MID$(A$,2):GOTO 390
300 IF LEFT$(A$,L1)=S1$ THEN A$=" @X80"+MID$(A$,2):GOTO 390
310 IF LEFT$(A$,L2)=S2$ THEN A$=" @X80"+MID$(A$,2):GOTO 390
320 IF LEFT$(A$,L3)=S3$ THEN A$=" @X80"+MID$(A$,2):GOTO 390
330 IF LEFT$(A$,L4)=S4$ THEN A$=" @X80"+MID$(A$,2):GOTO 390
340 IF LEFT$(A$,L5)=S5$ THEN A$=" @X80"+MID$(A$,2):GOTO 390
350 IF LEFT$(A$,L6)=S6$ THEN A$=" @X80"+MID$(A$,2):GOTO 390
360 IF LEFT$(A$,L7)=S7$ THEN A$=" @X80"+MID$(A$,2):GOTO 390
370 IF LEFT$(A$,L8)=S8$ THEN A$=" @X80"+MID$(A$,2):GOTO 390
380 IF LEFT$(A$,L9)=S9$ THEN A$=" @X80"+MID$(A$,2)
390 PRINT #2,A$:GOSUB 420:WEND:IF NEEDVSPACE=1 THEN GOSUB 410
400 CLOSE:KILL "DIR99.BAG":SYSTEM
410 PRINT #2,SGB$
420 I=I+1:LOCATE 10,15:PRINT USING"######";I:RETURN