function Upcase(SaveTarget)
* Function to convert to upper case strings that exceed 32767 bytes.
* [UPCASE (c) 1993 Andrew McLaughlin.  All rights reserved.]
Target = SaveTarget
Out = ""
loop while len(Target) do
   Out := upcase(Target[1,32767])
   Target = Target[32768,len(Target)]
repeat
return(Out)
end