C*	STRIP LINES OF SPECIAL CHARACTERS  -  UNDSTR
C
C	STRIPS LINES OF ALL SPECIAL CHARACTERS (EXCLUDING TABS),
C	REPLACING THEM WITH BLANKS
C
C
      SUBROUTINE STRIP(LINE)
      BYTE LINE(132),IT,IB
      DATA IT,IB/9,32/
      DO 10 N=1,132
      IF (LINE(N).EQ.IT) GO TO 10
      IF (LINE(N).LT.IB) LINE(N)=IB
10    CONTINUE
      RETURN
      END