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