//โปรแกรมอ่านข้อมูลมาพิมพ์ เลือกเพศพนักงาน จากค่ารับเข้า
_sex = space(1)
@ 10,5 say "get sex :" get _sex
read
use empl
set filter to emplsex = _sex
go top
while !eof()
   ? empl,emplname
   skip
end
inkey(0)