/**/
ARG H
IF H='' THEN DO
   SAY 'You can pass full URL - RING will extract host name and ping it'
   SAY 'Also you can use abbreviations, for example, RING CDROM will'
   SAY 'ping WWW.CDROM.COM'
   EXIT 1
END
IF POS('//',H)>0 THEN PARSE VAR H '//' H
IF POS('/',H)>0 THEN PARSE VAR H H '/'
IF POS('.',H)=0 THEN h='www.'||h||'.com'
LOWER H
SAY 'Ringing' H
'C:\WINDOWS\COMMAND\PING' H