Hi guys !

I try to make a little link port test with two balls which are moved with the arrows of the other calc. But when I push a key on each calc, the balls don't move.

Why ?

Now, no bug when I push a key on each calc, but only one white ball moves (on each calc, there is a black balle moved by the calc and a white ball moved by the other calc).

.MULTI

ClrHome
ClrDraw
ClrDrawr

0→A→C→D→X→Y
56→B

[3C7EFFFFFFFFFF7E3C→Pic1J1
[3C428181818181423C→Pic1J2

Repeat getkey(15)
 If getkey(2) and (X>0)
  X--
  1→C
 ElseIf getkey(3) and (X<88)
  X++
  2→C
 Else
  0→C
 End

 sub(GET)
 Send(C,500)
 sub(GET)

 DispGraphrClrDraw

End

ClrHome
ClrDraw

Lbl GET
Get→D
If D=1
 A--
ElseIf D=2
 A++
End
Pt-Off(X,Y,Pic1J1
Pt-Off(A,B,Pic1J2
Return

isn't it just because you store the value for both calcs in D ?
when you do that, the sent and gotten value are the same, since it's D for both calcs, get it?
i might be wrong

OOOH! What type of game?

Ok, the fact : I looked around the forum about link command, but I saw nowhere a complete code that used the port link so improved.
So today I worked on it.

My technique is initially to define a calculator server and a calculator client, in Boolean it mean 1 and 0. To specify if the calculator is server or client, I do it more or less randomly, because for the rest of the program I don't mind the order.
:.r1 is the number of swap you want to try it work, ussualy 10 is same than 200
:Lbl SYN
:Output(0,,"Synchronisation ...
:0→r2
:Repeat r2>r1 or getKey(15)
:If Get+1
:→r2
:End
:Send(r2,100)
:End
:Returnr2^2Now we have a server (0) and a client (1), and the first application is to separate server code and client code :
!If B
:SRV()
:Else
:CLT()
:EndMy first idea was to make a program where the server send and the client get each loop, here a funny example :
:.AXE
:[183C7EFFFF7E3C18]→Pic1
:0→X
:ClrHome
:SYN(200)→B
:Repeat getKey(15) or (B>1
:!If B
:SRV()
:Else
:CLT()
:End
:DispGraphClrDraw
:End
:Return

:.Program host
:Lbl SRV
:If X<96
:Pt-On(X,48,Pic1
:End
:X<192?X++,→X
:Send(X,5000)
:Return

:.Program client
:Lbl CLT
:If X>95
:Pt-On(X-96,48,Pic1
:End
:If Get+1:-1→X:End
:Return
NB : With real calculator there isn't this speed lag, here it's cause of wabbitemu mistake.

Now I thought about a way to send multiple bytes in both directions (for games such as Battleship, Chess, pokemon, and thousands more). My first solution is a system of roundtrip between server and client, after synchronizing calcs.
:.r1 ==> number of bytes to send
:Lbl ECH
:SYN(10)
:For(I,0,r1)
:!If B
:Send({L1+I},5000)
:GET()→{L2+I}
:Else
:GET()→{L2+I}
:Send({L1+I},10000)
:End
:End
:Return
:
:Lbl GET
:Repeat Get+1→r2
:If getKey(15)
:Goto ERR
:.ERR routine just leave program
:End
:End
:Returnr2-1And it work perfectly, but I find this routine not very optimized, so I decided to try another way by sending all at once to the server, then to the client... to be continued. 

PS : I can't test my code for the moment because of wabbitemu' mistakes...

Do I send the program to both calcs and then run the program on both?

EDIT: I tried it 10 times on each calculator and they said 190 each time. Also, I even have a bad cord and it worked! +1

EDIT2: If I can figure out how this code works, can I use it in Grammer? (My link protocol does not work for synchronising and whatnot )

I tried it 10 times on each calculator and they said 190 each time. Also, I even have a bad cord and it worked! +1

Really ? O_o
Ok Quigibo, I'll try it tomorrow.

wish youwould have told me that months ago Quigibo....
awesome