$save nolist

str$cmp: PROCEDURE(str_ptr1, str_ptr2) BYTE EXTERNAL;

	DECLARE		/* params */

		str_ptr1    POINTER,
		str_ptr2	POINTER,
		result		byte;
END str$cmp;		

$restore˙