C                     
C	
C   MARXER.FOR	
C*  **********************************************
C
	CHARACTER*80 TITLE
	CHARACTER*50 INFILE,OUTFILE,FILENAME
        CHARACTER*40 FNAME
        CHARACTER*66 ASTRING,BSTRING
	LOGICAL EFLG
	WRITE(6, 999)
999 	FORMAT(//' Program to truncate text lines at 66 char ')
	WRITE(6,1000)
1000	FORMAT(//' Enter name of input file to limit:')
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='unknown')
c       OPEN (UNIT=3,FILE='temp.rfl',STATUS='NEW')


200	read(2,1200,end=990)ASTRING
	write(3,1200)ASTRING
	goto 200

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