1: /* Copyright (c) 1979 Regents of the University of California */ 2: 3: static char sccsid[] = "@(#)CHR.c 1.4 11/12/82"; 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: return; 14: } 15: return (char)value; 16: }