SUBROUTINE STRMOV(S1,IS1,NC,S2,IS2)
      BYTE S1(1),S2(1)
      INTEGER*2 IS1,NC,IS2
      DO 10 I=0,NC-1
   10 S2(IS2+I)=S1(IS1+I)
      RETURN
      END