C*	DATA STATEMENT  -  UNDDC
C
      SUBROUTINE DC(IEND)
      BYTE STRING,ISTR,VAR
      COMMON STRING(660),ISTR(660),VAR(6)
      J=0
      I=0
10    I=I+1
      IF (I.GT.IEND) RETURN
      IF (ISTR(I).NE.0) GO TO 20
      J=J+1
      VAR(J)=STRING(I)
      GO TO 10
20    IF (J.GT.0) CALL CHECK(J)
      IF (J.LT.0) RETURN
      IF (ISTR(I).EQ.2) GO TO 10
      IT=1
      IF (ISTR(I).EQ.3) IT=4
30    I=I+1
      IF (I.GT.IEND) RETURN
      IF (ISTR(I).NE.IT) GO TO 30
      GO TO 10
      END