![](/images/backgrounds/286549/hp-sunsoft-pascal-4-0-users-manual-549395106x1.png)
5
This example makes global public using the define attribute of the variable declaration.
The program unit,
defvar_prog.p
The module unit, defvar_mod.p, which makes global public using the define attribute
program defvar_prog;
var
global: extern integer;
procedure proc; external;
begin
global := 1;
writeln('From MAIN, before PROC: ', global); proc;
writeln('From MAIN, after PROC: ', global); end. { defvar_prog }
module defvar_mod;
var
global : define integer;
procedure proc;
begin
writeln('From PROC: ',global); global := global + 1;
end; { proc }
82 | Pascal 4.0 User’s Guide |