Print "Drücken Sie [1], um ein Spiel zu erstellen."
Print "Drücken Sie [2], um an einem Spiel teilzunehmen."
Wahl = Input("Ihre Wahl: ")
Name$ = "test"

If Wahl=2 Then IP$ = Input  ("IP-Adresse des Hosts: ")
If Wahl=1 Then Spiel = HostNetGame(Name$)
If Wahl=2 Then Spiel = JoinNetGame(Name$, IP$)
If Spiel=0 Then Print("Fehler beim Starten eines Netzwerk-Spiels !")
If Spiel=1 Then Print("Spiel als Client gestartet.")
If Spiel=2 Then Print("Spiel als Host gestartet.")
SpielerNr = CreateNetPlayer(Str$(MilliSecs()))
If RecvNetMsg() = 1 Then Position$ = NetMsgData$()
;
Graphics 600,450,16,2
SetBuffer BackBuffer()
Repeat
 Cls
 X2 = MouseX()
 Y2 = MouseY()
 If (X2 <> X1) Or (Y2 <> Y1) Then
  Position$ = Str$(X2) + "," + Str$(Y2)
  SendNetMsg 1, Position , SpielerNr, 0
  X1=X2
  Y1=Y2
 EndIf

 If RecvNetMsg() = 1 Then
  Position$ = NetMsgData$()
  X0 = Int(Position$)
  Y0 = Int( Mid$(Position$, Instr(Position,",") +1) )
 EndIf

 Color 0,0,255
 Oval X0,Y0, 10,10
 Color 255,0,0
 Oval X2,Y2, 10,10

 Flip
Until KeyHit(1)