const chatPort : int := 5055
var choice : int
var netStream : int
var netAddress : string

var chars,chars2:array char of boolean
var x,y,x2,y2:int
x := 250
y := 200
x2 := 400
y2 := 400

loop
put "Enter 1 to run chat server"
put "Enter 2 to run chat session"
put "Choice: " ..
get choice
exit when choice = 1 or choice = 2
end loop



if choice = 1 then
View.Update
put "This machine is '", Net.LocalName, "' at net addresss ", Net.LocalAddress
put "Waiting for a connection... "
netStream := Net.WaitForConnection (chatPort, netAddress)
View.Update
else
put "Enter the address to connect to: " ..
get netAddress
netStream := Net.OpenConnection (netAddress, chatPort)
if netStream <= 0 then
put "Unable to connect to ", netAddress
return
end if
end if
%%%%%%%%%%%%%%%%%%%%%%%%%%

loop

Input.KeyDown (chars)

if chars (KEY_UP_ARROW) then     
    y := y + 10
end if
if chars (KEY_RIGHT_ARROW) then       
    x := x + 10
end if
if chars (KEY_LEFT_ARROW) then     
    x := x - 10
end if
if chars (KEY_DOWN_ARROW) then     
    y := y - 10
end if
Draw.FillOval (x, y, 4, 4, 13)

Input.KeyDown (chars2)

if chars2 ('w') then   
    y2 := y2 + 10
end if
if chars2 ('d') then     
    x2 := x2 + 10
end if
if chars2 ('a') then   
    x2 := x2 - 10
end if
if chars2 ('s') then   
    y2 := y2 - 10
end if
Draw.FillOval (x2, y2, 4, 4, 60)
delay (20)
cls
end loop