C*	ASSIGNMENT STATEMENT SUBROUTINE  -  UNDAC
C
      SUBROUTINE AC(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    CONTINUE
C     WRITE(6,6010) (VAR(II), II = 1,J)
C6010 FORMAT('0', 'SUBROUTINE AC - VAR = ', 6A1)
      CALL CHECK(J)
      RETURN
      END