`Network Test

INPUT "Name: ",name$
INPUT "IP: ",IP$
INPUT "Status (H/C): ",status$

status$ = UPPER$(status$)
maxPlayers = 2

IF status$ = "C"
   connected = TJoin(IP$,name$)
ELSE
   connected = THost(IP$,maxPlayers,name$)
ENDIF

IF NOT connected THEN END

TYPE clientT
   name$
ENDTYPE
DIM client(maxPlayers) AS clientT

BACKDROP ON:SYNC ON:SYNC RATE 0

DO

   INC sendDelay,1
   IF sendDelay >= 5
      sendDelay = 0
      TPutString "aaaaa"

      REPEAT
         msg = TGetMessage()
         IF msg
            END
         ENDIF
      UNTIL NOT msg
   ENDIF

   FOR x = 1 TO maxPlayers
      TEXT 0,x*15,"||"+client(x).name$
   NEXT x

   TSYNC
   SYNC

LOOP