--- freem/src/expr.c	2025/04/13 04:22:43	1.13
+++ freem/src/expr.c	2025/04/30 20:03:09	1.16
@@ -1,5 +1,5 @@
 /*
- *   $Id: expr.c,v 1.13 2025/04/13 04:22:43 snw Exp $
+ *   $Id: expr.c,v 1.16 2025/04/30 20:03:09 snw Exp $
  *    expression parser
  *
  *  
@@ -24,6 +24,15 @@
  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
  *
  *   $Log: expr.c,v $
+ *   Revision 1.16  2025/04/30 20:03:09  snw
+ *   Work on entryref parser
+ *
+ *   Revision 1.15  2025/04/30 14:41:03  snw
+ *   Further debugger work
+ *
+ *   Revision 1.14  2025/04/14 23:20:23  snw
+ *   Restore support for any 8-bit character in
+ *
  *   Revision 1.13  2025/04/13 04:22:43  snw
  *   Fix snprintf calls
  *
@@ -1688,8 +1697,6 @@ uparrow:
                 case 'c':           /* $CHARACTER */
 
                     {                        
-                        char chrtmp[256];
-                        long pnum;
                         short l, l1, m, n;
 
                         l1 = f;
@@ -1700,14 +1707,6 @@ uparrow:
                         n = 1;
                         l = 0;
 
-                        stcpy (chrtmp, a);
-                        stcnv_m2c (chrtmp);
-                        pnum = atol (chrtmp);
-
-                        if (pnum > 127) {
-                            merr_raise (MXNUM);
-                            return;
-                        }
                         
                         for (;;) {
                             
@@ -2992,6 +2991,13 @@ f20:
                         long l1, rouoldc;
                         short reload = FALSE;
 
+                        /*
+                        printf ("a = %s f = %d\r\n", a, f);
+                        for (i = arg; i < arg + f; i++) {
+                            printf ("argstck[%d] = '%s'\r\n", i, argstck[i]);
+                        }
+                        */
+                        
                         if (f > 3) {
                             merr_raise (FUNARG);
                             return;