//โปรแกรมแก้ไขข้อมูลจนกว่าค่ารับเข้าเป็น 0
n = 1
while n<>0
   @ 5,5 get n
   read
   use empl
   locate for empl = n
   if found()
    _emplname = emplname
    _empeaddr = empladdr
    @ 6,5 get _emplname
    @ 7,5 get _empladdr
    read
   if updated()
    replace emplname with _emplname,empladdrl with _empladdr
   endif
   endif
end