$SAVE NOLIST rq$a$get$directory$entry: PROCEDURE( connection$t, entry$num, resp$mbox, except$ptr ) EXTERNAL; DECLARE connection$t TOKEN, entry$num WORD, resp$mbox TOKEN, except$ptr POINTER; END rq$a$get$directory$entry; $RESTORE