/* ; $VER: Tagart 1.0 (26/4/93) By Chi Wai Lee
Program to add a tagline */
ARG filename
IF ~EXISTS(filename) | filename = "" THEN DO
     SAY "Passed filename not found."
     EXIT
END
IF ~EXISTS("MAIL:tagfile") THEN DO
     SAY "No tag file found."
     EXIT
END
CALL OPEN(file,filename,"A")
CALL OPEN(tagfile,"MAIL:tagfile","R")
z = READLN(tagfile)
IF DATATYPE(z) = "NUM" & z < 1000 THEN DO
     rand = RANDOM(2,z,TIME(s))
     DO i = 2 TO rand
          x = READLN(tagfile)
     END
     CALL WRITELN(file,"")
     CALL WRITELN(file,x)
     CALL WRITELN(file,"")
     CALL WRITELN(file," * Tagart V1.0 - Making the future *")
END
ELSE SAY "Error in tagfile"
EXIT
