s=getioline
bx=hasaddress_s("x",s)
by=hasaddress_s("y",s)
if bx then
    global1=getvalue_s("x",s)
end if
if by  then
    global2=getvalue_s("y",s)
end if
'puts the last value if not there
if bx=false then
    s=rear_s("X"+cstr(global1),s)
end if
if by=false then
    s=rear_s("Y"+cstr(global2),s)
end if

s=rotate_s(10,s)
setioline(s)