SUBROUTINE PRINID(LUN)
C
C
	LOGICAL*1 TASK(6)
	INTEGER TSKID(4),ITASK(16)
C
C
	CALL MARK(1,1,2)
	CALL WAITFR(1)
	CALL GETID(TSKID)
	CALL GETTSK(ITASK)
	CALL R50ASC(6,ITASK,TASK)
	IF(TSKID(4).LE.0) WRITE(LUN,10) TASK,TSKID(4)
10	FORMAT(/' *** ['6A1,']  PROGRAM IDENTIFICATION ERROR: ',I3/)
	IF(TSKID(4).GT.0) WRITE(LUN,20) TASK,(TSKID(I),I=1,3)
20	FORMAT(/T10,' --- ',6A1,'  PROGRAM IDENT. ',I2,'-',I2,'-',I2,
     $' ---'/)
	RETURN
	END