%vars
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
var name : string
var yes : boolean := true
var no : boolean := false
var answer:string
var status : int
%name status


%**********************************CHAT PROGRAM**********************************
put "What would you like your nickname to be?"
get name:*

%put "So you would like your nickname to be ", name
%get answer
% if yes then
%put "Ok good we dont have to make any changes ^^"
% elsif no  then
%put "Ok then lets try it again..."
cls
%end if
%end if
%end loop

%chat
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)
else
    put "What is the IP of the computer you want to connect to?"
    get address
    stream := Net.OpenConnection (address, PORT)
end if
cls
put "Connected to ", address

loop
    if hasch then
        get message : *
        put name%,": "..
        put stream, message
    end if
    if Net.LineAvailable (stream) then
        get : stream, msgBack : *
        put msgBack
    end if
end loop