HP SunSoft Pascal 4.0 manual elseifdef Directive, Pascal program, 252

A

The Pascal program,

elseif.p

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

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 -configwith the argument blue

The output when you supply -configwith the argument red

hostname% pc -xl -config blue elseif.p hostname% a.out

The color is blue.

hostname% pc -xl-config red elseif.p hostname% a.out

The color is red.

The %elseifdef Directive

The %elseifdef directive provides an alternative action to the %ifdef directive.

252 Pascal 4.0 User’s Guide