INTEGER FUNCTION LEN( STRING ) C*********************************************************************** C C Description : Returns the length of a given string C C Arguments : STRING = BYTE array close by a NULL-byte C Funval = number of characters until NULL-byte 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 : LEN.FTN C C Package : RSX-LIBRARY C C Compilation/ C taskbuilding : FOR/F4P/TR:NONE LEN C C Updates : name version C C description : C C************************************************************************ BYTE STRING(1) C LEN=0 10 I=LEN+1 IF( STRING(I) .NE. 0 ) 11,12,12 C THEN 11 LEN=I GOTO 10 C ENDIF 12 RETURN END