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