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