regression fixed

Author: omiq

basic

@@ -1127,9 +1127,20 @@ static struct value eval_function(const char *name, char **p)
     arg = eval_expr(p);
     skip_spaces(p);
 
-    /* Most functions expect exactly one argument in parentheses, but some
-     * (like MID$) can accept multiple. We leave ')' handling to each case.
+    /* Functions that accept multiple arguments (MID$, LEFT$, RIGHT$) parse
+     * their full argument list themselves and are responsible for consuming
+     * the closing ')'. For all other intrinsics we expect exactly one
+     * argument and consume ')' here so the caller resumes after it.
      */
+    if (code != FN_MID && code != FN_LEFT && code != FN_RIGHT) {
+        if (**p == ')') {
+            (*p)++;
+        } else {
+            runtime_error("Missing ')'");
+            return make_num(0.0);
+        }
+        skip_spaces(p);
+    }
 
     switch (code) {
     case FN_SIN:
@@ -1265,6 +1276,8 @@ static struct value eval_function(const char *name, char **p)
                     return make_str("\033[7m");
                 case 146: /* reverse off */
                     return make_str("\033[27m");
+                case 13:  /* carriage return -> newline */
+                    return make_str("\n");
                 /* Base colors */
                 case 144: /* black */
                     return make_str("\033[30m");

basic.c

@@ -0,0 +1,21 @@
+REM Test PRINT / semicolon / escape-sequence behaviour
+
+REM CASE 1: Plain text with and without semicolons
+PRINT "A"
+PRINT "B";
+PRINT "C"
+
+REM CASE 2: Color escapes and names, all with semicolons
+PRINT CHR$(28);
+PRINT "RED";
+PRINT CHR$(5);
+
+REM CASE 3: Color escapes and names, last one without semicolon
+PRINT CHR$(159);
+PRINT "CYAN"
+
+REM CASE 4: Explicitly use carriage return
+PRINT "A";CHR$(13);"B";CHR$(13);"C"
+
+END
+