//โปรแกรมแก้ไขข้อมูล 10 ระเบียน
n = 1
while n <= 10
   _empl = 0
   @ 5,5 get _empl
   read
   use empl
   locate for empl = _empl
   if found()
    _emplname = emplname
    _empladdr = empladdr
    @ get _emplname
    @ get _empladdr
    read
    if updated()
    replace emplname with _emplname,empladdr with _empladdr
     n++
   endif
endif
end