One possible starting point would be

FUNCTION PingTest
   LOCAL x
   RUN ping fred >c:\temp\ping.txt
   x=FILETOSTR("c:\temp\ping.txt")
   RETURN 'Reply'$x
ENDFUNC

It needs some extra work.

i.e. Delete the file ping.txt
Loop and test for ping.txt after the RUN before continuing

HTH