     	SUBROUTINE HEADER( TEXT )
C
C  PROGRAMMER:  R.S. ZHOU
C		ALFRED UNIVERSITY
C
C	THIS ROUTINE DISPLAYS THE HEADER "TEXT"
C	IN THE FIRST LINE IN DIALOGUE AREA.
C
     	CHARACTER TITLE*80, TEXT*(*)

     	TITLE = TEXT
     	CALL DATE( TITLE(63:71) )
     	CALL TIME( TITLE(73:80) )
     	CALL PUTEXT( TITLE, 80, 1, 1 )

     	RETURN
     	END
