SUBROUTINE STRMOV(S1, I1, N, S2, I2)
      BYTE S1(1), S2(1)
      INTEGER I1, N, I2
      IF (.NOT.(N .GT. 0)) GOTO 2000
        DO 2020 I = 0, N - 1
          S2(I2 + I) = S1(I1 + I)
2020    CONTINUE
2030    CONTINUE
2000  CONTINUE
      RETURN
      END