PROCEDURE Do;
VAR x, y: LONGINT; ch: CHAR;
BEGIN ch := CHR(65);
   x := 505 * ORD(ch);  (* first case *)
   Out.Int(x, 0);
   y := 505 * ORD(GetChar());  (* second case *)
   Out.Int(y, 0);
END Do;

* redundant code eliminated
BEGIN $ch := CHR(65);
* redundant code eliminated
        $x := 505 * ORD(ch);  (* first case *)
* variable "ch" has compile time defined value here
        x := 505 * ORD($ch);  (* first case *)
* variable "x" has compile time defined value here
        Out.Int($x, 0);
no errors, warnings  4, lines   21, time  0.06, new symfile

<*+ MAIN *>
MODULE test;
IMPORT Out;

PROCEDURE ["C"] / CreateFileMappingA* (hFile: LONGINT; lpAttributes: LONGINT;
flProtect, dwMaximumSizeHigh, dwMaximumSizeLow: LONGINT;
lpName-: ARRAY OF CHAR) : LONGINT;

PROCEDURE Tst;
   VAR send_id: LONGINT;
BEGIN
   send_id := CreateFileMappingA(-1, 0, 4, 0, 32600, "no-such-file.log");
   Out.String("After call "); Out.Int(send_id, 0); Out.Ln;
END Tst;

PROCEDURE Try;
BEGIN
   Out.String("Before Tst"); Out.Ln;
   Tst;
   Out.String("After Tst"); Out.Ln;
END Try;

BEGIN
     Try;
END test.

c:\XdsPrj\samples>xc =m test.ob2 +changesym +o2extensions
...
c:\XdsPrj\samples>test.exe
Before Tst
After call 64

#RTS: unhandled exception #3: invalid location