Test.obn

   1 MODULE Test;
   2
   3 IMPORT Out;
   4
   5 TYPE
   6   Name = ARRAY 16 OF CHAR;
   7
   8 VAR
   9   key : ARRAY 128 OF Name;
  10   name : Name;
  11
  12 BEGIN
  13   IF name > name THEN Out.Ln; END;
  14 END Test.