%externalstring(255)%fn Trim %alias "3L_IMP_TRIM"(%string(255)%name S,
                                               %integer Maximum)
   %result = S %if Length(S) <= Maximum
   %result = Substring(S, 1, Maximum)
%end
%endoffile