xref: /csrg-svn/usr.bin/pascal/libpc/CHR.c (revision 1642)
1*1642Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*1642Smckusick 
3*1642Smckusick static char sccsid[] = "@(#)CHR.c 1.1 10/30/80";
4*1642Smckusick 
5*1642Smckusick #include "h01errs.h"
6*1642Smckusick 
7*1642Smckusick CHR(value)
8*1642Smckusick 
9*1642Smckusick 	long	value;
10*1642Smckusick {
11*1642Smckusick 	if (value < 0 || value > 127) {
12*1642Smckusick 		ERROR(ECHR, value);
13*1642Smckusick 		return;
14*1642Smckusick 	}
15*1642Smckusick 	return value;
16*1642Smckusick }
17