###############################
# unicrond.icn - the Unicron server daemon
# Author: Laurel Cutting
# Contributors: Clinton Jeffery, Mike Kemp
###############################



link server

procedure main(av)
    
    
    server := Server()
    
    if av[i := 1 to *av] == ("-port" | "-p") then
       { server.port := integer(av[i+1]) }
    
    server.open_net()
    server.run()
    server.close_net()
    
  
end # proc main()