1	SUB Upper_Case(A$)					
2	!	Convert the input string, from Fortran to upper case	
	!	do not remove spaces or whatnot, just upper case as
	!	the return string length must not change.

3	A$=EDIT$(A$,32%)			! Convert to upper case
	END SUB