Print exponent symbol as ⏨.

Update test of output encoding.

Author: sergev

encoding.cpp

@@ -36,7 +36,7 @@ static const bool GOST_LATIN = true; // default latin
 static const unsigned short gost_to_unicode_cyr[256] = {
     /* 000-007 */ 0x30,   0x31,   0x32,   0x33,   0x34,   0x35,   0x36,   0x37,
     /* 010-017 */ 0x38,   0x39,   0x2b,   0x2d,   0x2f,   0x2c,   0x2e,   0x20,
-    /* 020-027 */ 0x65,   0x2191, 0x28,   0x29,   0xd7,   0x3d,   0x3b,   0x5b,
+    /* 020-027 */ 0x23e8, 0x2191, 0x28,   0x29,   0xd7,   0x3d,   0x3b,   0x5b,
     /* 030-037 */ 0x5d,   0x2a,   0x2018, 0x2019, 0x2260, 0x3c,   0x3e,   0x3a,
     /* 040-047 */ 0x0410, 0x0411, 0x0412, 0x0413, 0x0414, 0x0415, 0x0416, 0x0417,
     /* 050-057 */ 0x0418, 0x0419, 0x041a, 0x041b, 0x041c, 0x041d, 0x041e, 0x041f,
@@ -51,7 +51,7 @@ static const unsigned short gost_to_unicode_cyr[256] = {
 static const unsigned short gost_to_unicode_lat[256] = {
     /* 000-007 */ 0x30,   0x31,   0x32,   0x33,   0x34,   0x35,   0x36,   0x37,
     /* 010-017 */ 0x38,   0x39,   0x2b,   0x2d,   0x2f,   0x2c,   0x2e,   0x20,
-    /* 020-027 */ 0x65,   0x2191, 0x28,   0x29,   0xd7,   0x3d,   0x3b,   0x5b,
+    /* 020-027 */ 0x23e8, 0x2191, 0x28,   0x29,   0xd7,   0x3d,   0x3b,   0x5b,
     /* 030-037 */ 0x5d,   0x2a,   0x2018, 0x2019, 0x2260, 0x3c,   0x3e,   0x3a,
     /* 040-047 */ 0x41,   0x0411, 0x42,   0x0413, 0x0414, 0x45,   0x0416, 0x0417,
     /* 050-057 */ 0x0418, 0x0419, 0x4b,   0x041b, 0x4d,   0x48,   0x4f,   0x041f,

tests/expect_e64_simple.txt

@@ -85,6 +85,6 @@
  GOST ENCODING
  14 34 56701 02 143 6543
  567076543210
-  +3141592653577390e+01
+  +3141592653577390⏨+01
  ИTM ENCODING
  29CBB8FAC688

tests/session_test.cpp

@@ -930,8 +930,8 @@ _(
     writeln(' ', chr(20в), chr(25в), chr(26в), chr(27в));
     writeln(' ', chr(30в), chr(31в), chr(32в), chr(33в));
     writeln(' ', chr(34в), chr(35в), chr(36в), chr(37в));
-    writeln(' ', chr(40в), chr(41в), chr(61в), chr(101в));
-    writeln(' ', chr(43в), chr(100в), chr(134в), chr(136в));
+    writeln(' ', chr(43в), chr(44в), chr(45в), chr(46в));
+    writeln(' ', chr(77в), chr(100в), chr(134в), chr(136в));
 _).
 *library:22
 *execute
@@ -942,9 +942,13 @@ _).
  ‘―↑⏨
  ≠°÷’
  ⊃≡∨¬
-  !1A
- ≠°|‾
+ ≠◇%∧
+ ↑°‾|
 )";
+    // Note: in PRINT8 routine, ISO symbol 0136 '^' is converted
+    // to GOST symbol 0130 '|'.
+    // But in OS Dubna, it's converted to GOST 0131 '―'.
+
     output = extract_after_execute(output);
     check_output(output, expect);
 }