X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=Test.obn;h=f0552a93a06abbaed7841faf482aae3f99251f7f;hb=c535b4be889716bfd37a4f0dd888f398534bc306;hp=0b020f71a79862e5a3510e07528b982ea6a21749;hpb=879793eaf1d6378593f78a192f2961670f686530;p=dsw-obn.git diff --git a/Test.obn b/Test.obn index 0b020f7..f0552a9 100644 --- a/Test.obn +++ b/Test.obn @@ -1,11 +1,15 @@ MODULE Test; -IMPORT - Out, - System; +IMPORT Out; + +VAR + i : INTEGER; BEGIN Out.Open; - Out.String("Hello World!"); Out.Ln; - System.Halt(1); + i := 48; + FOR i := 32 TO i DO + Out.Int(i, 0); Out.Char(' '); + END; + Out.Ln; END Test.