ZJFOO ;ISF/RWF - GTM Routine to JOB an arbitrary entry point ;5/9/2002
 ;;8.0;KERNEL;**275**;Jul 10, 1995
 ;To run under VMS,
 ;  mumps ZJFOO.M
 ;  link ZJFOO.OBJ
 ;  In a com file
 ;  $ forfoo="$" + f$parse("user$:[gtmmgr.r]ZJFOO.exe")
 ;  $ forfoo "argument"
 ;To run under Linux
 ;  mumps ZJFOO.m
 ;  chmod u+x,g+x ZJFOO.o
 ;  In shell script
 ;  $gtm_dist/mumps -run ZJFOO "argument"
 ;
 ;Set the interupt
 S $ETRAP="D ^%ZTER HALT",$ZINTERRUPT="I $$JOBEXAM^ZU($ZPOSITION)"
 I $L($ZCMDLINE) J @$ZCMDLINE Q
 Q