> >tmm=0 >tmf=0 >tcm=0 >tcf=0 >tim=0 >tif=0 >tom=0 >tof=0 > >Sele Emp >Set Filter To Resign = .f. >Go Top > >Do While !Eof() >Do Case > Case Sex='M' .And. Race ='Malay' > Tmm=tmm+1 > > Case Sex='F' .And. Race = 'Malay' > tmf=tmf+1 > > Case Sex='M' .And. Race='Chinese' > tcm=tcm+1 > > Case Sex='F' .And. Race='Chinese' > tcf=tcf+1 > > Case Sex='M' .And. Race='India' > tim=tim+1 > > Case Sex='F' .And. Race='India' > tif=tif+1 > > Case Sex='M' .And. Race='Other' > tom=tom+1 > > Case Sex='F' .And. Race='Other' > tof=tof+1 >EndCase >Skip >EndDo > >Return (tmm,tmf,tcm,tcf,tim,tif,tom,tof) >EndFunc>------------------------------------------------------------------