C*	DO STATEMENT  -  UNDLC
C
      SUBROUTINE LC(IEND)
      BYTE STRING,ISTR,VAR,NUM(10)
      COMMON STRING(660),ISTR(660),VAR(6)
      DATA NUM/1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9,1H0/
      J=0
      L=0
      I=0
10    I=I+1
      IF (I.GT.IEND) RETURN
      IF (ISTR(I).NE.0) GO TO 40
      IF (L.EQ.1) GO TO 30
      DO 20 K=1,10
      IF (STRING(I).EQ.NUM(K)) GO TO 10
20    CONTINUE
      L=1
30    J=J+1
      VAR(J)=STRING(I)
      GO TO 10
40    CALL CHECK(J)
      RETURN
      END