var window1 := Window.Open ("title: Website Orgainizer")
var fileID, connection : int
var msg, address, IP : string
var name := "Website's IP's.txt" %text file

put "Enter the address you wish to retrieve their hosts IP address."
get address %address to connect to

if File.Exists (name) then
    open : fileID, name, get
    loop
        exit when eof (fileID)
        get : fileID, msg : * %gets all information from the text file
    end loop
    close : fileID
end if

open : fileID, name, put, get, mod
loop
    exit when eof (fileID)
    get : fileID, msg
    if (msg = address) then %checks the address variable if it's already been entered
        close : fileID
        Window.Close (window1)
        var window2 := Window.Open ("title:Display Websites")
        open : fileID, name, get
        loop
            exit when eof (fileID)
            get : fileID, msg : *
            for i : 5 .. 8 %used to read 4 matching characters
                if msg (i) = address (i) and msg (i + 1) = address (i + 1) then
                    colour (brightred)
                else
                    colour (black)
                end if
            end for
            put msg
        end loop
        close : fileID
        return     %returns true if address was entered
    end if
end loop

connection := Net.OpenConnection (address, 25)     %if address wasn't entered then connects and enters it
IP := Net.HostAddressFromName (address)
if not (IP = "") then     %determines if the site exists before recording it
    locate (2, 1)
    put ""
    put address, " = ", IP
    put : fileID, address, " = ", IP
    put "Address successfully entered!"
else
    put "Address does not exist!"
end if