procedure sinit;
begin { sinit }
  overflow:=false;
  ssset('1.0E+0',sone);
  ssset('2.0E+0',stwo);
  ssset('5.0E-1',shalf);
end { sinit };

