var stream : int := 0 % Used for sending data
var msgBack : string % The message that gets sent back and forth
var address : string % IP address for each computer
var message : string  % Message that you send
var status : int % Status host/client

const PORT := 5555 % Port to connect through

put "What would you like to do?"
put "1:Host"
put "2:Join"

get status

if status = 1 then
    stream := Net.WaitForConnection (PORT, address) % Wait for a user to connect
else
    put "What is the IP of the computer you want to connect to?"
    get address
    stream := Net.OpenConnection (address, PORT) % Connect to the IP inputted
end if
cls
put "Connected to ", address

loop
    if hasch then % If key pressed
        get message : *  % store all input in var message when enter is pressed
        put : stream, message  % Send the message over the stream
    end if
    if Net.LineAvailable (stream) then % If a line of text has been sent
        get : stream, msgBack : * % grab the line of text
        put msgBack % print it to the screen
    end if
end loop