Sun Microsystems SunSoft Pascal 4.0 User Manual page 281

The Pascal program,
exit_directive.p
The commands to compile and
execute exit_directive.p
Comments
If the compiler encounters an %exit directive within an include file, it stops
processing the include file, but continues processing the source file in which
it is included. In effect, %exit is equivalent to an end-of-file marker.
When the compiler processes an %exit directive within an %if or %ifdef
construct, it closes all %if or %ifdefs before it stops processing the current
file.
Example
program exit_directive(output);
begin
writeln('Hello, world!')
end. { exit_directive }
%exit
Everything after the %exit is ignored.
So you can put anything here.
hostname% pc -xl exit_directive.p
hostname% a.out
Hello, world!
The %if Directive
The %if directive is a conditional branching directive.
Syntax
%if expression %then
.
.
%end if
Pascal Preprocessor
A
257