//โปรแกรมเพิ่มข้อมูล 10 ระเบียน
cls
for n = 1 to 10
   _empl = 0
   _emplname = space(15)
   _empladdr = space(40)
   @ 10,5 get _empl
   @ 11,5 get _emplname
   @ 12,5 get _empladdr
   read
   if updated()
   use empl
    append blank
    replace empl with _empl,emplname with _emplname,empladdr with _empladdr
   endif
next
inkey(0)