COMMON: fix backslash escape regression

Author: chrisws

samples/distro-examples/tests/strings.bas

@@ -176,3 +176,8 @@ if expect != seq(0, 2*pi, 360/15+1) then throw "SEQ error"
 
 s="Hello\033There"
 if (27 != asc(mid(s, 6, 1))) then throw "err"
+s="This\033T\ha\t\The\"Other"
+rem ThisnT\ha\t\The"Other - non escaping '\' should appear verbatim
+if len(s) != 21 then throw "escape error"
+s="Hello\03There"
+if len(s) != 13 then throw "escape error"

src/common/scan.c

@@ -3924,18 +3924,21 @@ const char *format_numeric_text(const char *str, char **output) {
   int value = 0;
   int digits = 0;
 
-  while (isdigit(*str)) {
-    value = (value << 3) + (*str - '0');
+  while (isdigit(*result)) {
+    value = (value << 3) + (*result - '0');
     digits++;
-    str++;
+    result++;
   }
 
   if (digits == 3 && value > V_JOIN_LINE && value < 256) {
     **output = value;
-    (*output)++;
+  } else {
+    **output = *str;
     result = str;
   }
 
+  (*output)++;
+
   return result;
 }
 

src/platform/android/app/src/main/assets/main.bas

@@ -102,12 +102,12 @@ sub do_about()
   if (char_w * 45 < xmax) then
     print "   ____          _______  ___   _____________"
     print "  / ____ _ ___ _/ / / _ )/ _ | / __/  _/ ___/"
-    print " _\\ \\/  ' / _ `/ / / _  / __ |_\\ \\_/ // /"
-    print "/___/_/_/_\\_,_/_/_/____/_/ |_/___/___/\\___/"
+    print " _\ \/  ' / _ `/ / / _  / __ |_\ \_/ // /__  "
+    print "/___/_/_/_\_,_/_/_/____/_/ |_/___/___/\___/  "
   else
-    print " __           _      ___ _  "
-    print "(_ ._ _  _.|||_) /\\ (_ |/  "
-    print "__)| | |(_||||_)/--\\__)|\\_"
+    print " __           _      ___ _"
+    print "(_ ._ _  _.|||_) /\ (_ |/ "
+    print "__)| | |(_||||_)/--\__)|\_"
   endif
   print
   color 7,0