var window_2 : int := Window.Open ("title:Rcon")
var window_1 : int := Window.Open ("title:Server Window")

const max_connection : int := 16
var port : int
var stream : int
var address : array 1 .. max_connection of string
var connected : array 1 .. max_connection of boolean := init (
    false, false, false, false,
    false, false, false, false,
    false, false, false, false,
    false, false, false, false)

process Welcome
    put : stream, "<server> Welcome to server"
end Welcome

process send_server
    var input : string
    loop
        Window.Select (window_2)
        get input
        Window.Select (window_1)
        put "<server> ", input
        for a : 1 .. 16
            if connected (a) = true then
                put : stream, "<server> ", input
            end if
        end for
    end loop
end send_server

process Find
    for a : 1 .. max_connection
        stream := Net.WaitForConnection (port, address (a))
        put : stream, "<server> ", address (a), " has joined server"
        put address (a), " has joined the server"
        connected (a) := true
        fork Welcome
    end for
end Find

Window.Select (window_1)
put "Enter Port: " ..
get port

put "Welcome"
put "running on:"
put "IP: ", Net.LocalAddress
put "Port: ", port

fork Find
fork send_server