//โปรแกรมเพิ่มข้อมูลขาย 1 ระเบียน แต่รหัสขายให้รับจากแฟ้มอัตโนมัติ ไม่ต้องป้อนเข้า
use sale
go bottom
_sale = sale + 1
_cust = 0
_empl = 0
@ 5,5 say _sale
@ 6,5 get _cust
@ 7,5 get _empl
read
if updated()
   append blank
   replace sale with _sale, cust with _cust, empl with _empl
endif
inkey(0)