HP SunSoft Pascal 4.0 - Manual (Page 276)

252 Pascal 4.0 User’s Guide
A
Comments
If the expression in %if expression %then is false , pc skips over the %then
part and executes the %elseif part instead. expression consists of a
conditional variable and the optional boolean operators, and , or , and not .
See the %else listing for examples of expression.
Example
The %elseifdef Directive
The %elseifdef directive provides an alternative action to the %ifdef
directive.
The Pascal program,
elseif.p
program elseif_example(output);
{ This program demonstrates the use of the
%if, %then, and %elseif directives. }
%var blue red
begin
%if blue %then
writeln('The color is blue.');
%elseif red %then
writeln('The color is red.');
%endif
end. { elseif_example }
The output when you supply
-config with the argument
blue
hostname% pc -xl -config blue elseif.p
hostname% a.out
The color is blue.
The output when you supply
-config with the argument
red
hostname% pc -xl -config red elseif.p
hostname% a.out
The color is red.