LOGICAL*1 NAM(80),TASK(3),PUIC1(2),PUICP(6)
C
	INTEGER*2 PB(16),PMMDD,PHHMM,PUIC2(2),PUIC,OLDHM
C
	INTEGER*4 PCPU,PELAPS,PDBQ,PLPQ,PMTQ,POTQ,PUIC4
C
	REAL*8 PRCRD(4)
C
	EQUIVALENCE (PB,PRCRD,PMMDD),(PB(2),PHHMM),(PB(3),PUIC,PUIC1),
     *		    (PB(4),ITASK),(PB(5),PCPU),(PB(7),PELAPS),
     *		    (PB(9),PDBQ),(PB(11),PLPQ),(PB(13),PMTQ),
     *		    (PB(15),POTQ), (PUIC2,PUIC4)
C
	DATA PUIC4/0/,OLDHM/-9999/
9000	FORMAT (1X,2I3,I5,':',I2,'    [',3A1,',',3A1,']',5X,
     *		3A1,8I10)
C
100	WRITE (5,9010)
	READ (5,9020) NAM
9010	FORMAT (1X,'FILENAME ?')
9020	FORMAT (80A1)
	CALL TRIM (NAM)
	OPEN (UNIT=2,NAME=NAM,TYPE='OLD',ACCESS='SEQUENTIAL',
     *		FORM='UNFORMATTED')
C
	WRITE (5,9050)
9050	FORMAT (1X,'NS - NE ?')
	READ (5,*) NS,NE
	N=0
C
1000	READ (2,END=7000) PRCRD
	N=N+1
	IF (N.LT.NS) GO TO 1000
	IF (N.GT.NE) STOP
	IF (OLDHM.NE.PHHMM) WRITE (6,9100)
9100	FORMAT (1X)
	OLDHM=PHHMM
	CALL R50ASC (3,ITASK,TASK)
	PUIC2(1)=PUIC
	CALL UICPRT (PUIC4,PUICP)
	IM=PMMDD/100
	ID=MOD(PMMDD,100)
	IH=PHHMM/100
	IMM=MOD(PHHMM,100)
	WRITE (6,9000) IM,ID,IH,IMM,PUICP,TASK,PCPU,PELAPS,
     *			PDBQ,PLPQ,PMTQ,POTQ
	GO TO 1000
C
7000	STOP
	END