//โปรแกรมเพิ่มข้อมูล จนกว่าค่ารับเข้าเป็น 0
n=1
while n<>0
   _emplname = space(20)
   _empladdr = space(40)
   @ 5,5 get n
   read
   @ 6,5 get _emplname
   @ 7,5 get _empladdr
   read
   if updated()
    use empl
    append blank
    replace empl with n,emplname with _emplname,empladdr with _empladdr
   endif
end