XTSPING.m

XTSPING ;SFISC/RWF - PING SERVER ;8/11/92  15:02;10/20/92  3:49 PM

 ;;7.3;TOOLKIT;;Apr 25, 1995

 ;This server just sends back the message it receved.

A S XMSUB="PING reply to: "_XQSUB,XMY(XMFROM)="",XMTEXT="^XMB(3.9,"_XMZ_",2,"

 S XMDUZ="PING SERVER"

 N XMFROM,XMZ,XMREC,XMCHAN D ^XMD

 Q

XTSPING   ;SFISC/RWF - PING SERVER ;8/11/92  15:02;10/20/92  3:49 PM

 +1       ;;7.3;TOOLKIT;;Apr 25, 1995

 +2       ;This server just sends back the message it receved.

A          SET XMSUB="PING reply to: "_XQSUB

           SET XMY(XMFROM)=""

           SET XMTEXT="^XMB(3.9,"_XMZ_",2,"

 +1        SET XMDUZ="PING SERVER"

 +2        NEW XMFROM,XMZ,XMREC,XMCHAN

           DO ^XMD

 +3        QUIT