C PRINDX
C PRINT LINCTAPE FILE INDEX GENERATED BY MINDEX
C ED RAPOPORT 1/8/76
C
C	.R FORT
C	*PRINDX(HIL)
C	*IOH$
C
	DIMENSION MSG(40),NAME(6),FILE(2)
	CALL NAMES(DEV,FILE,DEV,FILE)
	CALL IOPEN(DEV,FILE)
	IPC=1
100	WRITE(3,1000)1,FILE
	DO 200 IP=1,28
	  READ(4,1001)NAME,IBEG,IEN,IDATE,MSG
	  CALL EOF
	    GO TO 99
	    GO TO 99
	  IM=41
	  DO 201 JM=1,40
	    IM=IM-1
	    IF(MSG(IM)+2016)200,201,200
201	  CONTINUE
200	WRITE(3,1002)NAME,IBEG,IEN,IDATE,(MSG(I),I=1,IM)
	WRITE(3,1003)IPC
	IPC=IPC+1
	GO TO 100
99	WRITE(3,1003)IPC
	STOP
C
C - - - - - - - - - - - - - - - - - -
C
1000	FORMAT('1'/'0 FILE  TYPE START LENGTH   DATE'
	18X'TAPE'10XD2XA6'.'A2)
1001	FORMAT(5A2,A1,3A2,40A2)
1002	FORMAT('0'5A2,A1,2X,O4,2X,I4,2XD4X40A2)
1003	FORMAT('0'/40X'-'I3' -')
	END