   (void) env;
   int result = integer(first(args));
   #if defined(checkoverflow)
-  if (result == 32767) error(PSTR("'1+' arithmetic overflow"));
+  if (result == INT_MAX) error(PSTR("'1+' arithmetic overflow"));
   #endif
   return number(result + 1);
 }

  { string136, fn_gc, 0, 0 },
  { string137, fn_room, 0, 0 },
  { string138, fn_saveimage, 0, 1 },
  { string139, fn_loadimage, 0, 0 },
  { string140, fn_cls, 0, 0 },
  { string141, fn_pinmode, 2, 2 },
  { string142, fn_digitalread, 1, 1 },


char nthchar (object *string, int n) {
  object *arg = cdr(string);
  int top;
  if (sizeof(int) == 4) { top = n>>2; n = 3 - (n&3); }
  else { top = n>>1; n = 1 - (n&1); }
  for (int i=0; i<top; i++) {
    if (arg == NULL) return 0;
    arg = car(arg);
  }
  if (arg == NULL) return 0;
  return (arg->integer)>>(n*8) & 0xFF;
}

// Lookup variable in environment
