procedure IncFacI;
begin
  if Param >= 10 then
    IncCoarseDiv:=10;
  else
    IncCoarseDiv:=10000;
    if Param >= 0.01 then
      IncCoarseDiv:=1000;
    endif;
    if Param >= 0.1 then
      IncCoarseDiv:=100;
    endif;
    if Param >= 1 then
      IncCoarseDiv:=10;
    endif;
  endif;
  IncFineDiv:=IncCoarseDiv*100;
{$IFDEF DEBUG}
   write(Serout, 'IncFacI');
   SerCRLF;
{$ENDIF}
end;

procedure IncFacR;
begin
  IncCoarseDiv:=10;
  If Param>=10 then
     IncCoarseDiv:=1;
  endif;
  If Param>=100 then
     IncCoarseDiv:=0.1;
  endif;
  If Param>=1000 then
     IncCoarseDiv:=0.01;
  endif;
  IncFineDiv:=IncCoarseDiv*100;
{$IFDEF DEBUG}
   write(Serout, 'IncFacR');
   SerCRLF;
{$ENDIF}
end;