Google
 

Trailing-Edge - PDP-10 Archives - integ_tools_tops20_v7_30-apr-86_dumper - tools/pop/pop.com
There are 3 other files named pop.com in the archive. Click here to see a list.
$!+
$!   Define pop :== @pop
$!
$!   then '$ pop' will exit the current subprocess.
$!
$!   Note that tpid was gotten with an f$getjpi in login.com
$!   so this won't work if you take login.com in your subprocesses
$!-
$ our_pid := 'f$getjpi(0, "PID")
$ if our_pid .nes. tpid then $logout
$ write sys$output "You are not in a subprocess"
$ exit