note, replace the -> with arrow using
the STO> key on calculator

:Lbl A
:{222,100}->L
:0->x
:Outpt("CBLSEND",L)
:Input "CBLGET",x
:{100,100}->L
:0->x
:Outpt("CBLSEND",L)
:Input "CBLGET",x
:{110,100}->L
:0->x
:Outpt("CBLSEND",L)
:Input "CBLGET",x
:Goto a