X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=Test.obn;h=950aa0a9ca7e9993974152c16cfff3bc01beb0fc;hb=f34b0f1f6a54eda1ad328576e48d92b96ad160ac;hp=6fae5299c4ceb508ddf3708622d39e419e562a12;hpb=4e58c0e61815196bcf87405ab9d070631bc72f90;p=dsw-obn.git diff --git a/Test.obn b/Test.obn index 6fae529..950aa0a 100644 --- a/Test.obn +++ b/Test.obn @@ -1,3 +1,14 @@ MODULE Test; +IMPORT Out; + +TYPE + Name = ARRAY 16 OF CHAR; + +VAR + key : ARRAY 128 OF Name; + name : Name; + +BEGIN + IF name > name THEN Out.Ln; END; END Test.