--- ray/src/cal/rcalc.c	2003/06/08 12:03:09	1.5
+++ ray/src/cal/rcalc.c	2003/08/01 14:14:23	1.8
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char RCSid[] = "$Id: rcalc.c,v 1.5 2003/06/08 12:03:09 schorsch Exp $";
+static const char RCSid[] = "$Id: rcalc.c,v 1.8 2003/08/01 14:14:23 schorsch Exp $";
 #endif
 /*
  *  rcalc.c - record calculator program.
@@ -15,11 +15,8 @@ static const char RCSid[] = "$Id: rcalc.c,v 1.5 2003/0
 
 #include  "platform.h"
 #include  "calcomp.h"
+#include  "rterror.h"
 
-#ifdef  CPM
-#define  getc           agetc   /* text files only, right? */
-#endif
-
 #define  isnum(c)       (isdigit(c) || (c)=='-' || (c)=='.' \
 				|| (c)=='+' || (c)=='e' || (c)=='E')
 
@@ -616,7 +613,7 @@ getfield(                             /* get next fiel
 register struct field  *f
 )
 {
-	static char  buf[MAXWORD+1];            /* no recursion! */
+	static char  buf[RMAXWORD+1];            /* no recursion! */
 	int  delim, inword;
 	double  d;
 	char  *np;
@@ -661,7 +658,7 @@ register struct field  *f
 				*cp++ = ipb.chr;
 				scaninp();
 			}
-		} while (inword && cp < &buf[MAXWORD]);
+		} while (inword && cp < &buf[RMAXWORD]);
 		*cp = '\0';
 		if (f->f.sv->val == NULL)
 			f->f.sv->val = savqstr(buf);	/* first setting */
@@ -690,7 +687,7 @@ register struct field  *f
 				*cp++ = ipb.chr;
 				scaninp();
 			}
-		} while (inword && cp < &buf[MAXWORD]);
+		} while (inword && cp < &buf[RMAXWORD]);
 		*cp = '\0';
 		d = np==NULL ? 0. : atof(np);
 		if (!vardefined(f->f.nv))