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