SUBROUTINE STRMOV(S1,I1,N,S2,I2)
BYTE S1(1), S2(1)
INTEGER I1, N, I2
 
IF (N > 0)
  DO I = 0, N-1
    S2(I2+I) = S1(I1+I)
RETURN
END