//โปรแกรมแสดงข้อมูลจากแฟ้มขาย แต่เลือกเฉพาะพนักงานชาย จากแฟ้มพนักงาน
n = 1
sele 1; use empl
sele 2; use sale
while !eof()
   _empl = empl
   sele 1
   locate for empl = _empl
   if emplsex = "m"
   sele 2
   @ n,5 say str(sale)+str(empl)
   n++
   else
   sele 2
   endif
   skip
end