<pre>function allCAPS aString  repeat with x = 1 to the number of chars of aString    put upperCase(char x of aString) into char x of aString  end repeat  return aStringend allCAPS</pre>