local success success = true local obj local ipOrHostname, millisecondsTimeOut local replyAddress, replyStatus, replyRoundTripTime, replyDataSize, replyData ipOrHostname = '68.180.206.184' && Altavista.com from http://www.ip-adress.com/whois/altavista.com millisecondsTimeOut = 1000 ? m.ipOrHostname do case case !m.success case !PingBits_Object(@m.obj) assert false success = false case !m.obj.Ping( ; m.ipOrHostname, ; m.millisecondsTimeOut, ; @m.replyAddress, ; @m.replyStatus, ; @m.replyRoundTripTime, ; @m.replyDataSize, ; @m.replyData ; ) ?? ' Failed' otherwise ?? ' ms= ', replyRoundTripTime, 'address = ', replyAddress, ' received: ', m.replyData endcase