SUBROUTINE SCOPY (SRC, DST, LEN)
C
C Copy a string of a specified length
C
C SRC = source byte string
C DST = destination byte string to be ended by 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
C End destination string with zero byte
C
	DST(LEN+1) = 0
	RETURN
	END