HP SunSoft Pascal 4.0 - Manual (Page 275)

Pascal Preprocessor 251
A
Example
The %elseif Directive
The %elseif directive provides an alternative action to the %if directive.
Syntax
%if expression %then
.
.
%elseif expression %then
.
.
%endif
The Pascal program,
if_then_else.p
program if_then_else (output);
%var red
begin
%if red %then
writeln ('It is red.');
%else
writeln ('It is not red.')
%endif
end.
The output when you compile
if_then_else.p without the
-config
hostname% pc -xl if_then_else.p
hostname% a.out
It is not red.
The output when you supply
-config with the argument
red
hostname% pc -xl -config red if_then_else.p
hostname% a.out
It is red.