PROGRAM NEAT
	LOGICAL*1 DEF(40)
	OPEN( UNIT=1, NAME='ORIENT.DEF', TYPE='OLD', READONLY )
	OPEN( UNIT=2, NAME='ORIENT.ACD' )
C
100	READ(1,110,END=200) I, N, DEF
110	FORMAT(I8,Q,40A1)
	MAX = MAX0( N, MAX )
	IREC = IREC + 1
	WRITE(2,120) I, ( DEF(J), J=1,N )
120	FORMAT(I8,2X,40A1)
	GO TO 100
C
200	WRITE(5,*) MAX, IREC
	STOP
	END