'===========================================================================
' Subject: CONVERT IP ADDRESS TO STRING      Date: 01-20-00 (14:27)       
' Author:  Dave Navarro, Jr.                 Code: PBCC, PBDLL            
' Origin:  dave@powerbasic.com             Packet: PBCC.ABC
'===========================================================================
' Convert a long integer representing an IP address to a displayable string
'
FUNCTION IpToString(BYVAL ip AS LONG) AS STRING

   LOCAL b AS BYTE PTR

   b = VARPTR(ip)
   FUNCTION = FORMAT$(@b[0]) & "." & FORMAT$(@b[1]) & "." & _
              FORMAT$(@b[2]) & "." & FORMAT$(@b[3])

END FUNCTION