IMPLICIT INTEGER (A - Z)
	DIMENSION MONTH(12)
	CHARACTER*3 MONTH
	DATA MONTH/'JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG',
     1		   'SEP','OCT','NOV','DEC'/
C
C
C	***PRINT TWO COPIES OF THE TITLE PAGE FOR THE PME PACKAGE PROGRAM
C	***LISTINGS.  WE GENERATE TWO COPIES SO THAT NO MATTER WHICH WAY
C	***THE LISTING FOLDS, ONE SUCH PAGE WILL FACE UP.
	OPEN (UNIT=2, TYPE='NEW', NAME='TITLE.LIS')
	CALL IDATE(IMON, IDAY, IYEAR)
	WRITE(2,10) MONTH(IMON), IDAY, IYEAR+1900
	WRITE(2,10) MONTH(IMON), IDAY, IYEAR+1900
   10	FORMAT('1'//////////////////////T39,'The PME ',
     1		'Performance Measurement and Evaluation Package'///
     2		T39,19X,'Program Listings'///T39,21X,A3,I3,',',I5/)
	CLOSE (UNIT=2)
	END