FUNCTION in_set,set,char
;
; Returns 1 (=TRUE) if 'char' is an element of the string contained
; in 'set'.
;
IF STRLEN(char) EQ 0 THEN MESSAGE,'char is an empty string'
RETURN,(STRPOS(set,char)+1)<1
END