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