module gameServer
    export OpenURLConnection
    procedure OpenURLConnection (url : string)
        var line : string (1)
        var netStream : int
        netStream := Net.OpenConnection (url, 80)
        if netStream <= 0 then
            put "Unable to connect to ", url
            return
        end if
        var HEADER : string := "GET /index.html "
        put : netStream, HEADER
        loop
            get : netStream, line : 1
            delay (10)
            put line ..
        end loop
        Net.CloseConnection (netStream)
    end OpenURLConnection
end gameServer
put "Working"
gameServer.OpenURLConnection ("http://www.yahoo.com")