10 dim oqp(681, 481), x(2), y(2), xmod(2)
20 xmod(1) = 28
30 xmod(2) = 26
40 x(2) = 639
50 open window 640, 480
60 for i = 1 to 2
70 setrgb 1,255*(i-1),0,255*(2-i)
80 dot x(i),y(i)
90 if(peek("port"+str$(i))=16) xmod(i)=19
100 if(peek("port"+str$(i))=32) xmod(i)=28
110 if(peek("port"+str$(i))=128) xmod(i)=26
120 if(peek("port"+str$(i))=64) xmod(i)=35
130 x(i) = x(i) + and(xmod(i),7) - 3
140 y(i) = y(i) + and(xmod(i),56)/8 - 3
150 if (oqp(x(i) + 1, y(i) + 1) = 1 or x(i) < 0 or x(i) >= 640 or y(i) < 0 
or y(i) >= 480) goto 190
160 oqp(x(i) + 1, y(i) + 1) = 1 next i
170 pause .03
180 goto 60
190 text 300,300,"PERDU"
200 goto 190