// โปรแกรมอ่านข้อมูลจากแฟ้มพนักงานขายมาพิมพ์เลือกเฉพาะพนักงานชาย
use empl
while ! eof()
   if emplsex = "m"
    ?empl,emplname
   endif
   skip
end
inkey(0)