%begin
%routine jim(%name x)
%integer i,j,k
**x; **=i
**x+4; **=j
**x-4; **=k
write(i,5); write(j,5)
write(k,5)
%end
%integer p
p=10
write(addr(p),5); newline
jim(p)
%endofprogram

%begin
%endofprogram

