/*****
******
**      TITLE:                  STRUPPER - CONVERT STRING TO UPPER CASE ROUTINE
**	SYSTEM:			COMMON DEC
**	ENTRY POINT:		STRUPPER
**	SOURCE FILE:		STRUPPER.C
**	PROGRAMMER:		Wayne E. Baisley
**	SOFTWARE TREE:		ZSYSLB.STS
**      DATE:                   November 3, 1983
**
**	REVISIONS:	DATE	PROGRAMMER		DESCRIPTION
**			----	--------------	-----------------------------
**
**         1)         11/03/83  W. E. Baisley   Original release.
**
******
*****/
	
#include <ctype.h>
	
char *strupper (s)
	
char *s;

{

	register char *cp = s;
	register char c;

	while (c = *cp)	{

		if (islower(c))
			*cp++ = c & 0137;
		else
			cp++;

	}

	return (s);
	
}
/*	CMS GENERATION  CMS REPLACEMENT HISTORY 	*/


/*	CMS GENERATION *1 COMPILER 17-JUL-1984 10:56:48 "[.pccaccnt]"	*/
