Repeat
 Cls
 If draw = 1 then
  For i=1 to 10
   Text 50,i*20,i
   Text 10,i*20,Rand(100,999)
  Next
 Endif
 Flip
 Delay 10
Until KeyHit(1)

If Host_IP$ <> "" Then
  ;Starte Login
  WriteByte Stream, cmd_login
  WriteString Stream, Name

  ;Warte auf Antwort
  ping = MilliSecs()
  status = 0
  While Not status
    If ReadAvail(Stream)
      action = ReadByte(Stream)
      Select action
        Case cmd_ping
          WriteByte Stream, cmd_ping
          ping = MilliSecs()
        Case cmd_login_passed
          status = 1
          ServerName = ReadString(Stream)
        Case cmd_login_failed
          status = -1
      End Select
      WaitEvent 1
    EndIf
    Delay 100
    If MilliSecs()-ping > 5000 Then Exit
  Wend
  If status = 0 Then
    SetGadgetText ifo, "Server gibt keine Antwort auf Login-Versuch"
    CloseTCPStream(Stream)
    Failed = True
  End If
  If status = -1 Then
    SetGadgetText ifo, "Server gibt keine Authorisierung"
    CloseTCPStream(Stream)
    Failed = True
  End If
  If status = 1 Then
    SetGadgetText ifo, "Erfolgreich eingeloggt"
    ping = MilliSecs()
    Failed = False
  End If
  If Failed Then Goto Start
End If