HP Pascal/iX Reference Manual (31502-90022)

6-: 18
BEGIN
bow;
END;
BEGIN {outer}
writeln('Hi');
inner;
proc_parm;
END; {outer}
BEGIN { show_pstate }
outer(30, bow);
END. { show_pstate }
Output:
Hi
bow-wow
bow-wow