//โปรแกรมแสดงข้อมูลจากแฟ้มขาย แต่แสดงชื่อลูกค้า และพนักงาน แบบใช้ฟังก์ชัน
n = 1
sele 1; use cust
sele 2; use empl
sele 3; use sale
while !eof()
   @ n,5 say str(sale)+str(cust)+cname(cust)+str(empl)+ename(empl)
   n++
   skip
end
function cname
param _cust
   sele 1
   locate for cust = _cust
   _custname = custname
   sele 3
return _custname
function ename
param _empl
   sele 2
   locate for empl = _empl
   _emplname = emplname
   sele 3
return _emplname