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