source: FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTSPING.m@ 1094

Last change on this file since 1094 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 288 bytes
Line 
1XTSPING ;SFISC/RWF - PING SERVER ;8/11/92 15:02;10/20/92 3:49 PM
2 ;;7.3;TOOLKIT;;Apr 25, 1995
3 ;This server just sends back the message it receved.
4A S XMSUB="PING reply to: "_XQSUB,XMY(XMFROM)="",XMTEXT="^XMB(3.9,"_XMZ_",2,"
5 S XMDUZ="PING SERVER"
6 N XMFROM,XMZ,XMREC,XMCHAN D ^XMD
7 Q
Note: See TracBrowser for help on using the repository browser.