<pre>function upperCase aChar  put the charToNum of aChar into theChar  if ( theChar >= 97 ) and ( theChar <= 122 ) then return the numToChar of (theChar-32) -- a=97, z=122  if ( theChar >= 65 ) and ( theChar <= 90 ) then return aChar --  A=65, Z=90  return aCharend upperCase</pre>