InitNetwork() ExamineIPAddresses() NextIP = NextIPAddress() While NextIP Debug IPString(NextIP) NextIP = NextIPAddress() Wend