1(* 2 * Copyright (c) 1980, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 * 7 * @(#)block.p 8.1 (Berkeley) 06/06/93 8 *) 9 10program blocktest(input, output); 11procedure A; 12 procedure B; 13 begin 14 writeln('in procedure B'); 15 end; 16begin 17 writeln('in procedure A'); 18 B; 19end; 20 21begin 22 writeln('in main program'); 23 A; 24end. 25