COLOROPT.PRG

394 B 7279ff085e7a733c… 
***  Special version of ISOPT that checks for the option in the first 3
***  characters of the option (like in "BB=W+", looks for "BB=" and returns
***  "W+".
PARAMETERS opt_val_look, color_return

i = 0
DO WHILE i < numopts
	i = i + 1
	IF LEN(opt[i]) > 3
		IF LEFT(opt[i], 3) = opt_val_look
			color_return = RIGHT(opt[i], LEN(opt[i]) - 3)
			RETURN
		ENDIF
	ENDIF
ENDDO
RETURN