CaseToUPPER:

##s = strlen( $$1 );
while( ##s > 0 ){

##s = ##s - 1;
##code = ascii( midstr( $$1, ##s, 1 ) );
if( ##code > 96 && ##code < 123 )##code = ##code - 32;
$$str = char( ##code ) + $$str;

}
return $$str;