procedure ssset(s: longstring; var x: scalar);
begin { ssset }
  srset(s,x.u);
  x.l:=x.u;
  if trunc then begin
    if x.l.si<0 then rtowinfty(x.l) else rtowinfty(x.u);
  end;
end { ssset };

