xref: /original-bsd/usr.bin/pascal/libpc/MAX.c (revision 1f3a482a)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)MAX.c 1.4 06/10/81";
4 
5 #include "h00vars.h"
6 
7 long
8 MAX(width, reduce, min)
9 
10 	register long	width;		/* requested width */
11 	long		reduce;		/* amount of extra space required */
12 	long		min;		/* minimum amount of space needed */
13 {
14 	if (width <= 0) {
15 		ERROR("Non-positive format width: %D\n", width);
16 		return;
17 	}
18 	if ((width -= reduce) >= min)
19 		return width;
20 	return min;
21 }
22