11642Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21642Smckusick 3*9136Smckusick static char sccsid[] = "@(#)CHR.c 1.4 11/12/82"; 41642Smckusick 5*9136Smckusick char ECHR[] = "Argument to chr of %D is out of range\n"; 61642Smckusick 72997Smckusic char 81642Smckusick CHR(value) 9*9136Smckusick unsigned long value; 101642Smckusick { 11*9136Smckusick if (value > 127) { 12*9136Smckusick ERROR(ECHR, value); 131642Smckusick return; 141642Smckusick } 152997Smckusic return (char)value; 161642Smckusick } 17