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).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
| .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 |
Powered by SMF 1.1.18 |
SMF © 2013, Simple Machines
