- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXTSPING 295 printed Feb 19, 2025@00:08:15 Page 2
- 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