top = Screen.LoadTextBG( )

Screen.Initialize( 1, top )

top:PrintXY( 0, 0, "Connecting.." )

if Wifi.ConnectWFC( ) then
sock = Wifi.InitTCP( "192.168.1.102", 9001 )
top:PrintXY( 0, 0, "Connected." )
sock:Send( "hi" )

while not Stylus.Down( ) do end
while Stylus.Down( ) do end
else
top:PrintXY( 0, 0, "Could not connect." )
end

top:PrintXY( 0, 1, "Disconnected." )

Wifi.Disconnect( )