SUBROUTINE SCOPY( INSTR , OUTSTR , NRCHAR ) C*********************************************************************** C C Description : Copies a string until a NULL-byte or a specified C number of characters C C Arguments : INSTR = BYTE array that is the source string C OUTSTR = BYTE array where INSTR is copied into C NRCHAR = number of chars to be copied C C Author : T.Pijl C AKZO PHARMA, Oss Holland C dep. SDA C C Version : V1.0 Date : 13-dec-82 C C Module name : SCOPY.FTN C C Package : RSX-LIBRARY C C Compilation/ C taskbuilding : FOR/F4P/TR:NONE SCOPY C C Updates : name version C C description : C C************************************************************************ BYTE INSTR(1),OUTSTR(1) C NRCH=LEN(INSTR) IF( LARG(3) ) 11,12,12 C THEN 11 IF( NRCHAR .LT. NRCH ) NRCH=NRCHAR C ENDIF 12 DO 100 I=1,NRCH OUTSTR(I)=INSTR(I) 100 CONTINUE OUTSTR(NRCH+1)=0 RETURN END