Test.obn

   1 MODULE Test;
   2
   3 IMPORT
   4   Out,
   5   System;
   6
   7 TYPE
   8   RBase = RECORD END;
   9   R = RECORD (RBase) END;
  10
  11 BEGIN
  12   Out.Open;
  13   IF FALSE THEN
  14     Out.String("Hello World!"); Out.Ln;
  15   END;
  16   System.Halt(1);
  17 END Test.