SUBROUTINE CONCAT (SRC1, SRC2, DST) C C Concatenate two string into a third C C SRC1 = first source string ended by a zero C SRC2 = second source string ended by a zero C DST = destination string ended by a zero C BYTE SRC1(1), SRC2(1), DST(1) C C Copy the first string into destination C J = 1 I = 1 10 IF (SRC1(I) .EQ. 0) GOTO 20 DST(J) = SRC1(I) J = J + 1 I = I + 1 GOTO 10 C C Now for second string to destination C 20 I = 1 30 DST(J) = SRC2(I) IF (SRC2(I) .EQ. 0) GOTO 40 J = J + 1 I = I + 1 GOTO 30 C C Return C 40 RETURN END