Re: Fun trick

On 1/8/2025 3:42 PM, John Reagan wrote:

And the compiler also supports the Extended Pascal TO BEGIN DO and TO END DO statements.  TO BEGIN DO is just the same as [INITIALIZE] but allows any statement.  TO END DO is an exit handler (registered with an initialization routine).

$ type prg.pas
program prg(input,output);
[external]
procedure say; external;
begin
     writeln('2');
     say;
     writeln('4');
end.
$ type lib.pas
module lib(input, output);
[global]
procedure say;
begin
     writeln('3');
end;
to begin do writeln('1');
to end do writeln('5');
end.
$ pas lib
$ link/share=libshr lib + sys$library:starlet/lib/incl=lib$initialize + sys$input/opt
SYMBOL_VECTOR=(say=PROCEDURE)
$
$ define/nolog libshr sys$disk:[]libshr
$ pas prg
$ link prg + sys$input/opt
libshr/share
$
$ run prg
1
2
3
4
5
Arne