From:	CRDGW2::CRDGW2::MRGATE::"SMTP::NERUS.PFC.MIT.EDU::MRL" 30-AUG-1990 07:23:44.16
To:	MRGATE::"ARISIA::EVERHART"
CC:	
Subj:	BULLETIN

Received:  by crdgw1.ge.com (5.57/GE 1.70)
	 id AA24820; Thu, 30 Aug 90 05:13:54 EDT
Message-Id: <40C0C59CA99FE031A3@NERUS.PFC.MIT.EDU>
Date: Thu, 30 Aug 90 05:13 EST
From: MRL@NERUS.PFC.MIT.EDU
Subject: BULLETIN
To: EVERHART@ARISIA.DECNET
X-Envelope-To: EVERHART%ARISIA.DECNET@CRDGW1.GE.COM
X-Vms-To: IN%"EVERHART%ARISIA.DECNET@CRDGW1.GE.COM"

Oops.  The REPLACE routine I sent you calls a new routine which I just added in
BULLETIN V1.82, so it won't work for older versions.  If you have an older
version and want to avoid getting a whole new version (especially since I plan
to make changes soon), make the following mods to your version of the routine
REPLACE in BULLETIN2.FOR: 


	IF (REC1.GT.0) THEN			! If text has been replaced

	   CALL OPEN_BULLFIL			! Prepare to add bulletin

	   BLOCK = NBLOCK + 1
	   BLOCK_SAVE = BLOCK
	   NEMPTY = NEMPTY + LENGTH
delete->   NBLOCK = NBLOCK + ICOUNT

delete->   IF (.NOT.REMOTE_SET) CALL WRITEDIR(0,IER)

	   OBLOCK = BLOCK
	   IF (LENFROM.GT.0) THEN
	      CALL STORE_BULL(LENFROM,INFROM(:LENFROM),OBLOCK)
	   END IF
	   IF (LENDES.GT.0) THEN
	      CALL STORE_BULL(LENDES,INDESCRIP(:LENDES),OBLOCK)
	   END IF
	   REWIND (UNIT=3)
	   CALL COPY_BULL(3,REC1,OBLOCK,IER)	! Add the new bulletin
	   IF (IER.NE.0) THEN		! Error in creating bulletin
	      WRITE (6,'(A)') ' ERROR: Unable to replace message.'
	      CALL CLOSE_BULLFIL
	      CALL CLOSE_BULLDIR
	      CLOSE (UNIT=3)
	      GO TO 100
	   END IF

	   LENGTH_SAVE = OCOUNT - BLOCK + 1
add->	   NBLOCK = NBLOCK + LENGTH_SAVE

add->	   IF (.NOT.REMOTE_SET) CALL WRITEDIR(0,IER)
