Test.obn

   1 MODULE Test;
   2
   3 IMPORT Out;
   4
   5 BEGIN
   6   Out.String("A");
   7   Out.Char("A");
   8   Out.Ln;
   9   ASSERT("A" = 041X);
  10   ASSERT(041X = "A");
  11   ASSERT(ORD("A") = 041H);
  12   ASSERT(041H = ORD("A"));
  13   ASSERT("A" = "A");
  14 END Test.