C*	TEXT SUBROUTINE  -  UNDTXT
C
      SUBROUTINE TEXT(IEND)
      BYTE ICK(8),IP,IQ,IT,IF,IH,STRING,ISTR
      COMMON STRING(660),ISTR(660)
      DATA ICK/1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8/
      DATA IP,IQ,IT,IF,IH/1H.,1H',1HT,1HF,1HH/
      N=0
      IE=0
10    N=N+1
      IF (N.GT.IEND) GO TO 60
      IE=IE+1
      STRING(IE)=STRING(N)
      ISTR(IE)=ISTR(N)
      IF (ISTR(N).EQ.0) GO TO 10
      M=N+1
      IF (M.GT.IEND) GO TO 60
      DO 20 I=1,8
      IF (STRING(M).EQ.ICK(I)) GO TO 50
20    CONTINUE
      IF (STRING(M).EQ.IP) GO TO 40
      IF (STRING(M).EQ.IQ) GO TO 30
      GO TO 10
C  QUOTE
30    M=M+1
      IF (M.GT.IEND) GO TO 60
      IF (STRING(M).NE.IQ) GO TO 30
      N=M
      GO TO 10
C  TRUE OR FALSE
40    M=M+1
      IF (M.GT.IEND) GO TO 60
      IF (STRING(M).EQ.IT.OR.STRING(M).EQ.IF) GO TO 45
      GO TO 10
45    M=M+1
      IF (M.GT.IEND) GO TO 60
      IF (STRING(M).NE.IP) GO TO 45
      N=M
      GO TO 10
C  HOLLERITH
50    M=M+1
      IF (M.GT.IEND) GO TO 60
      IF (STRING(M).NE.IH) GO TO 10
      N=M+I
      GO TO 10
C  RESET IEND
60    IEND=IE
      RETURN
      END