INTEGER FUNCTION LENGTH (STR) C C Return length of string ended by a zero C C STR = string ended by a zero C C Value of the function is the length of the string without the zero C BYTE STR(1) C C Scan for the zero byte C I = 1 10 IF (STR(I) .EQ. 0) GOTO 20 I = I + 1 GOTO 10 C C Return the length of the string C 20 LENGTH = I - 1 RETURN END