-----------------------------------

ecliptical

Mon Dec 19, 2005 2:20 pm


ViewHTML Procedure

-----------------------------------

Open's a Website and renders the HTML in a red-green combo to make a little easier to view. 

I don't know that much about page redirects and such...so for some websites Turings Net. functions seem to go to the 302/301 redirect sites... I don't know how to work around this...

IF this could be corrected i guess we could see the start of some web based apps...perhaps...

procedure ViewHTML (url : string)
    var netStream : int
    var net_line : string (1)
    netStream := Net.OpenURLConnection (url)
    if netStream