1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)CHR.c 1.5 01/09/89"; 4 5 char ECHR[] = "Argument to chr of %D is out of range\n"; 6 7 char 8 CHR(value) 9 unsigned long value; 10 { 11 if (value > 127) { 12 ERROR(ECHR, value); 13 } 14 return (char)value; 15 } 16