//โปรแกรมอ่านข้อมูลพิมพ์แบบสรุปว่าวันนี้ขายได้เงินเท่าใด
sele 1;use saledetial
sele 2;use sale
set filter to sdate = date()
go top
while !eof()
   _sale = sale
   skip
end
n = 0
sele 1
set filter to sale = _sale
go top
while !eof()
   n = n + (price*quan)
  skip
end
? date(),n