SUBROUTINE SMOVE (SRC, DST, LEN)
C
C Copy a string of a specified length
C
C SRC = source byte string
C DST = destination byte string NOT terminated with a zero
C LEN = number of characters to copy
C
	BYTE SRC(1), DST(1)
	INTEGER LEN
C
C Copy source to destination for length
C
	DO 10 I = 1, LEN
	   DST(I) = SRC(I)
10	CONTINUE
C
	RETURN
	END