Test.obn

   1 MODULE Test;
   2
   3 VAR
   4   i : SHORTINT;
   5   s : SET;
   6
   7 PROCEDURE X;
   8 END X;
   9
  10 BEGIN
  11   i := SHORT(12345);
  12 END Test.