	SUBROUTINE FRCTOF (LUN)
C
C Version:	'V04-000'
C
C****************************************************************************
C*									    *
C*  COPYRIGHT (c) 1978, 1980, 1982, 1984 BY				    *
C*  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS.		    *
C*  ALL RIGHTS RESERVED.						    *
C* 									    *
C*  THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED   *
C*  ONLY IN  ACCORDANCE WITH  THE  TERMS  OF  SUCH  LICENSE  AND WITH THE   *
C*  INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR  ANY  OTHER   *
C*  COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY   *
C*  OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE IS  HEREBY   *
C*  TRANSFERRED.							    *
C* 									    *
C*  THE INFORMATION IN THIS SOFTWARE IS  SUBJECT TO CHANGE WITHOUT NOTICE   *
C*  AND  SHOULD  NOT  BE  CONSTRUED AS  A COMMITMENT BY DIGITAL EQUIPMENT   *
C*  CORPORATION.							    *
C* 									    *
C*  DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE  OR  RELIABILITY OF ITS   *
C*  SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.		    *
C* 									    *
C*									    *
C****************************************************************************
C
C
C
C	AUTHOR	BRIAN PORTER		CREATION DATE	5-APR-1979
C
C
C	Functional Description:
C
C	This modules handles the output of report headers.
C
C	Modified By:
C
C	V03-002	SAR0242		Sharon A. Reynolds	2-Apr-1984
C		Changed routine name from TOF to FRCTOF.
C
C	V03-001	SAR0129		Sharon A. Reynolds	7-Sep-1983
C		Changed the Fortran carriage control for use with 
C		ERF.
C
C**
C--


	INCLUDE 'SRC$:SYECOM.FOR /NOLIST'


	BYTE		LUN
	BYTE		Form_feed
	Data		Form_feed	/12/

	INTEGER		PAGE

	CHARACTER*17	TIME

	CHARACTER*1	LINE_FEED
	DATA	LINE_FEED	/' '/

	CHARACTER*13	HERALD1
	DATA	HERALD1	/'V A X / V M S'/

	CHARACTER*19	HERALD2
	DATA	HERALD2	/'SYSTEM ERROR REPORT'/

	CHARACTER*9	HERALD3
	DATA	HERALD3	/'COMPILED '/

	CHARACTER*5	HERALD4
	DATA	HERALD4	/'PAGE '/


	IF (LINES .EQ. 1 .AND. .NOT. PRINTER) THEN

	WRITE(LUN,140) LINE_FEED
140	FORMAT(A1,/)

	ELSE IF (PRINTER) THEN

	WRITE(LUN,145) Form_feed
145	FORMAT(A1)

	ELSE IF (FORMS) THEN

	WRITE(LUN,150) (LINE_FEED,I = LINES,69)
150	FORMAT(A1)
	ENDIF

	IF (FORMS) THEN

	CALL SYS$ASCTIM (,TIME,,%VAL(0))

	PAGE = PAGE + 1

	IF (PAGE .EQ. 1000) PAGE = 1

 	WRITE(LUN,155) HERALD1,HERALD2,HERALD3,TIME,HERALD4,PAGE
155	FORMAT(' ',A13,T23,A19,T48,A9,A,/,
	1 T65,A5,I3,'.',/)

	LINES = 6

	RETURN
	ENDIF

	LINES = 3

	RETURN

	END
