$SAVE NOLIST rq$c$get$output$pathname: PROCEDURE( path$name$ptr, path$name$max, dafault$output$ptr, except$ptr ) BYTE EXTERNAL; DECLARE path$name$ptr POINTER, path$name$max WORD, dafault$output$ptr POINTER, except$ptr POINTER; END rq$c$get$output$pathname; $RESTORE