![](/images/backgrounds/286549/hp-sunsoft-pascal-4-0-users-manual-549395272x1.png)
A
Example
The Pascal program, config.p, which defines the conditional variables one and
two
The output when you compile config.p without the
The output when you define the variable one
program config_example(output);
{This program demonstrates the use of the %config compiler directive. }
var
a:integer := maxint;
b:integer := minint;
%var one two
begin
writeln('Begin program.'); %if one %then
writeln('One is defined as ', a:2, '.'); %elseif two %then
writeln('Two is defined as ', b:2, '.'); %elseif %config %then
writeln('Nothing is defined.'); %endif
writeln('End program.') end. { config_example }
hostname% pc
Begin program. End program.
hostname% pc
Begin program.
One is defined as 32767.
End program.
248 | Pascal 4.0 User’s Guide |