IMPLEMENTATION MODULE myproc;
(*---------------------------------------------------------
File name: myproc.pm
Author: AG
Date: 5/31/05 

Procedure Implementation Module.
*)
(*---------------------------------------------------------
		PROCEDURE
----------------------------------------------------------*)
	PROCEDURE twoplus(VAR i: INTEGER);
(*---------------------------------------------------------
		PROCEDURE MAIN
----------------------------------------------------------*)
(*myproc: 2x + 1
*)
	BEGIN
		i:= 2*i + 1;
	END twoplus;
END myproc.