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 } 17