Test.obn

   1 MODULE Test;
   2
   3 IMPORT Out;
   4
   5 CONST
   6   im1 = -1;
   7   bol = ~FALSE;
   8   set = { 1, 2, 3..6 };
   9   fm1 = -1.0;
  10   dm1 = -1.0D0;
  11
  12 BEGIN
  13   Out.Open;
  14
  15   Out.Int(im1, 0); Out.Ln;
  16   Out.Real(fm1, 0); Out.Ln;
  17   Out.LongReal(dm1, 0); Out.Ln;
  18
  19   IF 5 IN set THEN
  20     Out.String("SET: Ok"); Out.Ln;
  21   ELSE
  22     Out.String("INVALID SET"); Out.Ln;
  23     HALT(1);
  24   END;
  25
  26   IF bol THEN
  27     Out.String("BOOLEAN: Ok"); Out.Ln;
  28   ELSE
  29     Out.String("INVALID BOOLEAN"); Out.Ln;
  30     HALT(1);
  31   END;
  32 END Test.