program dummies
args var1
tempvar `var1'1
gen ``var1'1'=subinstr(`var1', " ", "_", .)
levelsof ``var1'1', local(fun)
foreach part of local fun {
gen `part'=``var1'1'=="`part'"
}
end