| 
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
 
 |