SUBROUTINE APPEND(STR,DST) C C Append string STR on to the DST string C IMPLICIT INTEGER(A-Z) BYTE STR(1),DST(1) C IS = LENGTH(DST)+1 ! Get index into DST IA = 1 ! Index of STR C 10 DST(IS) = STR(IA) IF (STR(IA).EQ.0) RETURN IS = IS+1 IA = IA+1 GO TO 10 END