HP SunSoft Pascal 4.0 - Manual (Page 279)

Pascal Preprocessor 255
A
Example
The %endif Directive
The %endif directive indicates the end of a %if or %ifdef directive. See the
sections on %if and %ifdef for more information on this directive.
The %error Directive
The %error directive causes the compiler to print a string on the standard
output and treat it as an error.
The Pascal program,
enable.p . This example sets
the conditional variable two to
true , which is equivalent to
setting the -config option to
two on the command-line.
program enable_example(output);
{ This program demonstrates the use of
the %enable compiler directive. }
var
a: integer;
b: integer;
%var one, two
%enable two
begin
%if one %then
a := maxint;
writeln('One is defined as ', a:2, '.');
%endif
%if two %then
b := minint;
writeln('Two is defined as ', b:2, '.');
%endif
end. { enable_example }
The commands to compile and
output
enable.p
hostname% pc -xl enable.p
hostname% a.out
Two is defined as -32768.