10 PRINT "(C)Copyright Frederick W. Kantor 1991. All rights reserved."
20 PRINT "For use with FWKCS(TM) Contents_Signature System, Version 1.12."
30 PRINT "Your use of this program is at solely your own risk."
40 PRINT STRING$(24,"-") " C A V E A T   O P E R A T O R " STRING$(24,"-")
50 PRINT:UPMASK=0
60 PRINT "Should the 'Uploaded by' line be suppressed in graphics mode? Y/N "0!
70 GOSUB 240:IF YES=1 THEN UPMASK=1
80 PRINT
90 PRINT "Should an extra, 'blank' line be added for vertical spacing? Y/N "0!
100 GOSUB 240:IF YES=1 THEN ADDLINE=1
110 SL$=" ":IF UPMASK=1 THEN SL$=SL$+"@X80"
120 SL$=SL$+"                              | Uploaded by: Sysop"
130 SP$="                               |"
140 OPEN "JOINLIST.BAK" AS 1 LEN=1:CLOSE 1:KILL "JOINLIST.BAK"
150 NAME "JOINLIST" AS "JOINLIST.BAK"
160 OPEN "JOINLIST.BAK" FOR INPUT AS 1
170 OPEN "JOINLIST" FOR OUTPUT AS 2
180 WHILE NOT EOF(1):LINE INPUT #1,A$:PRINT #2,A$
190 IF (INSTR(A$,"CS|")>0 OR INSTR(A$,"cs|")>0) THEN GOSUB 220
200 WEND
210 CLOSE:SYSTEM
220 PRINT #2,SL$:IF ADDLINE=1 THEN PRINT #2,SP$
230 RETURN
240 YES=0:Q$=INPUT$(1):IF Q$="Q" OR Q$="q" GOTO 210
250 IF Q$="Y" OR Q$="y" THEN YES=1:GOTO 270
260 IF (Q$<>"N") AND (Q$<>"n") THEN GOTO 240
270 RETURN