*! 1.0.1 NJC 4 July 2000
* 1.0.0 NJC 20 March 2000
program define _gincss
        version 6.0
        gettoken type 0 : 0
        gettoken g 0 : 0
        gettoken eqs 0 : 0
        syntax varlist(string) [if] [in] , Substr(str) [ Insensitive ]
	tempvar touse
        mark `touse' `if' `in'
	tokenize `varlist'
	if "`insensitive'" != "" {
		local substr = lower(`"`substr'"')
		local lower "lower"
	}
	quietly {
                gen byte `g' = 0    /* ignore user-supplied `type' */
                while "`1'" != "" {
       	                replace `g' = 1 /*
			*/ if index(`lower'(`1'),`"`substr'"') & `touse'
                        mac shift
                }
        }
end