	PROGRAM DCMP
	CHARACTER*255 LINE
	OPEN(UNIT=5,STATUS='OLD',CARRIAGECONTROL='LIST')

	OPEN(UNIT=10,STATUS='UNKNOWN',FILE='NLA0:')

10	READ(5,1,END=99) LL,LINE
1	FORMAT(Q,A<LL>)

	IF (LINE(1:62) .EQ.
     1  'C*EXPAND LINE*------------------------------------------------'
     2	) THEN

	 READ(5,1) LL,LINE
	 OPEN(UNIT=10,FILE=LINE(2:),STATUS='NEW',CARRIAGECONTROL='LIST')
	ELSE
	 WRITE(10,2) LINE
2	FORMAT(A<LL>)
	END IF
	GO TO 10

99 	CLOSE(5)
	CLOSE(10)
	END
