/************************************************************************
*	upcase	-convert a string to upper case				*
*									*
*	usage:	call upcase(from,to)					*
*	where:	from	=the string to convert				*
*		to	=the converted string				*
************************************************************************/
subroutine upcase(from,to)
character from(ARB),to(ARB)
integer i

for(i = 1;from(i) ^= EOS;i = i + 1)
	if(from(i) >= LET_A & from(i) <= LET_Z)
		to(i) = from(i) - (LET_A-BIG_A)
	else
		to(i) = from(i)
to(i) = EOS
return
end