4.3BSD - /usr/src/ucb/pascal/pdx/test/block.p

   1: program blocktest(input, output);
   2: procedure A;
   3:     procedure B;
   4:     begin
   5:         writeln('in procedure B');
   6:     end;
   7: begin
   8:     writeln('in procedure A');
   9:     B;
  10: end;
  11: 
  12: begin
  13:     writeln('in main program');
  14:     A;
  15: end.