Source position: GPCStrings.pas line 310
procedure Str31IntoStr63(
const s: Str31;
var theResult: Str63
);