Graphics 800,600,16,2
SetBuffer BackBuffer()
AppTitle "Snake Multiplayer"
fx = 50
fy = 50
Dim feld(fx,fy)
x1 = fx-10:y1 = fy-10
x2 = 10:y2 = 10

Repeat
ClsColor 50,60,70:Cls
Color 175,175,175
For xx = 1 To fx:Line xx*10,0,xx*10,fy*10:Next
For yy = 1 To fy:Line 0,yy*10,fx*10,yy*10:Next
If KeyHit(200) Then y1 = y1 - 1
If KeyHit(208) Then y1 = y1 + 1
If KeyHit(203) Then x1 = x1 - 1
If KeyHit(205) Then x1 = x1 + 1
If x1 > fx-1 Then x1 = 0
If x1 < 0  Then x1 = fx-1
If y1 > fy-1 Then y1 = 0
If y1 < 0  Then y1 = fy-1
If KeyHit(17) Then y2 = y2 - 1
If KeyHit(31) Then y2 = y2 + 1
If KeyHit(30) Then x2 = x2 - 1
If KeyHit(32) Then x2 = x2 + 1
If x2 > fx-1 Then x2 = 0
If x2 < 0  Then x2 = fx-1
If y2 > fy-1 Then y2 = 0
If y2 < 0  Then y2 = fy-1

feld(x1,y1) = 1
feld(x2,y2) = 2
For xx = 1 To fx
For yy = 1 To fy
If feld(xx,yy) = 1 Then Color 255,0,0:Rect xx*10+2,yy*10+2,7,7
If feld(xx,yy) = 2 Then Color 0,0,255:Rect xx*10+2,yy*10+2,7,7
Next
Next
For xx = 1 To fx
For yy = 1 To fy
If feld(xx,yy) = 1 Then Color 255,0,0:Text 600,10," ROT : "+CountField(1)
If feld(xx,yy) = 2 Then Color 0,0,255:Text 600,30,"BLAU : "+CountField(2)
Next
Next
Flip
Until KeyHit(1)
End

Function CountField(W)
End Function

for x=0 to 50
for y=0 to 50
if feld(x,y)=w then bauer=bauer+1
next
next
return bauer

For xx = 1 To fx
For yy = 1 To fy
If feld(xx,yy) = 1 Then Color 255,0,0:Rect xx*10+2,yy*10+2,7,7 : rot = rot + 1
If feld(xx,yy) = 2 Then Color 0,0,255:Rect xx*10+2,yy*10+2,7,7 : blau = blau + 1
Next
Next