MODULE OVERLAY1;

VAR
  I : EXTERNAL INTEGER;	(* LOCATED IN THE ROOT *)

PROCEDURE OVL1;	(* ONE OF POSSIBLY MANY PROCEDURES IN THIS MODULE *)
BEGIN
  WRITELN('In overlay 1, I=',I)
END;

MODEND.