* Copyright (c) 1980 The Regents of the University of California.
* %sccs.include.redist.c%
* @(#)fproc.p 5.1 (Berkeley) %G%
procedure print(function frtn :integer);
write(frtn:3,' formal routine =');
procedure lvl1(function form: integer);
writeln(' non-local jump');
if (loc = 4) or (loc = 8) then
1: write('Stack frame:',loc:3,' formal print =');
writeln('This should print levels 0-3, with formal values of 4.');
writeln('Level 4 should jump to level 8.');
writeln('Finally levels 8-10 should print with formal values of -1.');