%external %routine %spec To Upper %alias "IMP_TO_UPPER" ( %string(*) %name S )
%external %routine %spec To Lower %alias "IMP_TO_LOWER" ( %string(*) %name S )
%external %routine %spec To Mixed %alias "IMP_TO_MIXED" ( %string(*) %name S )
%external %routine %spec Dot Ctrl %alias "IMP_DOT_CTRL" ( %string(*) %name S )
%end %of %file