C                     
C	
C   MARXER.FOR	
C*  **********************************************
C
	CHARACTER*80 TITLE
	CHARACTER*50 INFILE,OUTFILE,FILENAME
        CHARACTER*40 FNAME
        CHARACTER*132 ASTRING,BSTRING
	LOGICAL EFLG
	WRITE(6,1000)
1000	FORMAT(//' Enter name of input file to strip of dp lines:')
5   	write(6,1100)
1100	FORMAT(/'$Input filename (CR to quit):  ')
	READ(5,1200) INFILE
1200	FORMAT(A)
	IF (INFILE(:5).EQ.'     ') STOP
	  INQUIRE(FILE=INFILE, NAME=FILENAME,EXIST=EFLG)
	  IF (.NOT.EFLG) GOTO 5
        OPEN (UNIT=2,FILE=INFILE,readonly,STATUS='OLD')

	  WRITE(6,1600)
1600	  FORMAT('$Output filename:  ')
	  READ(5,1200) OUTFILE
	  OPEN(UNIT=3,FILE=OUTFILE,STATUS='NEW')
c       OPEN (UNIT=3,FILE='temp.rfl',STATUS='NEW')
200	read(2,1200,end=990)ASTRING
	if (ASTRING.EQ.BSTRING) GOTO 200		!skip this line if duplicate.
	write(3,1200)ASTRING
	WRITE (6,*) BSTRING
	WRITE (6,*) ASTRING
	WRITE (6,*) (BSTRING.EQ.ASTRING)
	WRITE (6,*)

	BSTRING = ASTRING
300	FORMAT (3I4,4F8.2)
	goto 200

990	CLOSE(UNIT=2)
    	CLOSE (UNIT=3)
	END