BYTE IOUTX(80)
      DIMENSION IST(2),IR(6)
      BYTE IFL(80),IRAY(133),ORAY(132)
	BYTE ITAB,ICR,ILF,IFF,IBLNK
      DATA ITAB,ICR,ILF,IFF,IBLNK/"11,"15,"12,"14,' '/
      ICNT=0
      ICOUNT=0
	NN=0
      TYPE 5
    5 FORMAT('$ ENTER INPUT FILE NAME-')
      READ(5,8)IQ,IFL
    8 FORMAT(Q,80A1)
      IFL(IQ+1)=0
      MAX=80
      TYPE 91,(IFL(I),I=1,IQ)
91	FORMAT(1H ,131A1)
      OPEN(UNIT=1,NAME=IFL,TYPE='OLD',ERR=51)
	TYPE 47
47	FORMAT(//'$ OUTPUT FILE NAME= ')
	ACCEPT 48,IQ,(IOUTX(I),I=1,IQ)
48	FORMAT(Q,80A1)
	IOUTX(IQ+1)=0
	OPEN(UNIT=2,NAME=IOUTX,TYPE='NEW',
     *	CARRIAGECONTROL='LIST',ERR=1314)
    3 READ(1,60,END=50)IQ,IRAY
      ICNT=ICNT+1
      IF(IRAY(1).EQ.ILF)GO TO 6
      IF(IRAY(1).EQ.IFF)GO TO 6
      IF(IRAY(IQ).EQ.ICR)GO TO 6
      TYPE 95
   95 FORMAT(' INPUT: PUNCH FILE - OUTPUT: MAX 80 BYTES PER RECORD.')
      GO TO 2
    6 MAX=132
      TYPE 96
   96 FORMAT(' INPUT IS A PRINT FILE-OUTPUT RECORDS ARE VARIABLE-LENG',
     1 'TH, MAXIMUM 132 BYTES.')
      GO TO 2
    1 READ(1,60,END=50)IQ,IRAY
      ICNT=ICNT+1
   60 FORMAT(Q,133A1)
    2 IF(IRAY(1).EQ.ILF.OR.IRAY(1).EQ.IFF)GO TO 1
      ICOUNT=ICOUNT+1
      N=0
      M=1
    9 ITEST=0
      DO 20 I=1,8
      N=N+1
      IF(ITEST.EQ.ITAB)GO TO 10
      IF(IRAY(M).EQ.ITAB)GO TO 10
      IF(IRAY(M).EQ.ICR)GO TO 34
      ORAY(N)=IRAY(M)
	IF(IRAY(M).NE.IBLNK)NN=N
      M=M+1
      GO TO 20
   10 ITEST=ITAB
      ORAY(N)=IBLNK
      IF(I.EQ.8)M=M+1
   20 CONTINUE
      IF(N.EQ.MAX)GO TO 35
      GO TO 9
   34	N=N-1
   35 WRITE(2,61)(ORAY(I),I=1,NN)
	NN=0
   61	FORMAT(133A1)
      GO TO 1
   50 TYPE 94,ICNT,ICOUNT
   94 FORMAT(' ',I6,' RECORDS READ AND ',I6,' RECORDS WRITTEN.')
      CALL EXIT
   51 STOP 'COUNDNT OPEN INPUT FILE'
 1314	STOP 'COULDNT OPEN OUTPUT FILE..'
      END