:Lbl A
:{222,100}->L1
:Send(L1)
:Get(R)
:{100,50}->L1
:Send(L1)
:Get(R)
:{120,50}->L1
:Send(L1)
:Get(R)
:Goto A