X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=Test.obn;h=0f09bade1d5103f0fca051137c9cc8b9dd5656e5;hb=0b724e12457f2507d398c51dc35200d833ce9362;hp=67a35e4ef616fb5f76e91b2f1cf9a5b60eb0ffbc;hpb=ba1a55241f3841d1254317d76d45322c85fb687b;p=dsw-obn.git

diff --git a/Test.obn b/Test.obn
index 67a35e4..0f09bad 100644
--- a/Test.obn
+++ b/Test.obn
@@ -1,14 +1,13 @@
 MODULE Test;
 
-IMPORT Out;
+IMPORT CPStrings, Out;
+
+VAR
+  s : ARRAY 80 OF CHAR;
 
 BEGIN
-  Out.String("A");
-  Out.Char("A");
-  Out.Ln;
-  ASSERT("A" = 041X);
-  ASSERT(041X = "A");
-  ASSERT(ORD("A") = 041H);
-  ASSERT(041H = ORD("A"));
-  ASSERT("A" = "A");
+  CPStrings.IntToString(123456789, s);
+  Out.String(s); Out.Ln;
+  CPStrings.RealToString(321.123456, s);
+  Out.String(s); Out.Ln;
 END Test.