//โปรแกรมแสดงข้อมูลจากแฟ้มขาย แต่แสดงชื่อลูกค้า แบบไม่ใช้ฟังก์ชัน
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