:()
:Prgm
:Lbl a
:
:Send {222,100}
:Get r
:Send {100,100}
:Get r
:Send {110,100}
:Get r
:Goto a
:
:EndPrgm