source: FOIAVistA/trunk/r/ZZOTHER/ZFOO.m@ 868

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

initial load of FOIAVistA 6/30/08 version

File size: 508 bytes
Line 
1ZFOO ;ISF/RWF - GTM Routine to invoke an arbitrary entry point ;5/9/2002
2 ;;8.0;KERNEL;**275**;Jul 10, 1995
3 ;To run under VMS,
4 ; mumps ZFOO.M
5 ; link ZFOO.OBJ
6 ; In a com file
7 ; $ forfoo="$" + f$parse("user$:[gtmmgr.r]ZFOO.exe")
8 ; $ forfoo "argument"
9 ;To run under Linux
10 ; mumps ZFOO.m
11 ; chmod u+x,g+x ZFOO.o
12 ; In shell script
13 ; $gtm_dist/mumps -run ZFOO "argument"
14 ;
15 ;Set the interupt
16 S $ETRAP="D ^%ZTER HALT",$ZINTERRUPT="I $$JOBEXAM^ZU($ZPOSITION)"
17 I $L($ZCMDLINE) D @$ZCMDLINE Q
18 Q
Note: See TracBrowser for help on using the repository browser.