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