var fileID, connection : int
var msg, address, IP : string
var name := "Website's IP's.txt"

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

if File.Exists (name) then
    open : fileID, name, get
    loop
        exit when eof (fileID)
        get : fileID, msg : *
    end loop
    close : fileID
end if

/********CONNECTION BLOCK******************/
connection := Net.OpenConnection (address, 25)
IP := Net.HostAddressFromName (address)
put address, " = ", IP
/******************************************/

open : fileID, name, put, get, mod
loop
    exit when eof (fileID)
    get : fileID, msg
    if (msg = address) then
        locate (2, 1)
        put msg
        return
    end if
end loop
put : fileID, address, " = ", IP
close : fileID