//โปรแกรมอ่านข้อมูลจากแฟ้มพนักงานมาพิมพ์ หาผลรวมภาษี
ntax = 0
nttax = 0
use empl
while ! eof()
   ntax = emplsal * 0.07 * 12
   nttax = nttax + ntax
   ?empl,emplsal,ntax
   skip
end
?"ผลรวมภาษี = ",nttax
inkey(0)