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