Source position: GPCStrings.pas line 320
procedure Str255IntoStr31(
const s: Str255;
var theResult: Str31
);