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,*) 'eliminate blank lines and trailing blanks' write(6,*) ' from lines up to 132 characters long' 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') BSTRING=' ' 200 read(2,1200,end=990)ASTRING if (ASTRING.EQ.BSTRING) GOTO 200 !skip this line if duplicate. i=133 210 i=i-1 if (astring(i:i).eq.' ') goto 210 write(3,1200)ASTRING(:i) c WRITE (6,*) BSTRING goto 200 990 CLOSE(UNIT=2) CLOSE (UNIT=3) END