LOGICAL FUNCTION SCOMP (SRC1, SRC2) C C Compare two strings C C SRC1 = first comparand byte string ended by a zero C SRC2 = second comparand byte string ended by a zero C C Value of function is TRUE for equal, FALSE for not equal C Compare returns FALSE if string lengths are not the same C BYTE SRC1(1), SRC2(1) C C Compare until either string ends in zero byte or does not match C I = 1 10 IF (SRC1(I) .EQ. 0 .AND. SRC2(I) .EQ. 0) GOTO 20 IF (SRC1(I) .NE. SRC2(I)) GOTO 30 I = I + 1 GOTO 10 C C Return success C 20 SCOMP = .TRUE. RETURN C C Return failure C 30 SCOMP = .FALSE. RETURN C END