do lb1 i=21,83
x50=x0
ud n,x21
groups/grp{***x50}/sel001
ud n,x22
groups/grp{***x50}/sel002
sd x50,x21,x22
groups/overview
lb1
en d