xref: /original-bsd/usr.bin/pascal/libpc/CHR.c (revision 1f3a482a)
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