procedure sdone(f: string);
begin { sdone }
  if overflow then writeln(trim(f),': error - numeric overflow');
  writeln(trim(f),': done');
end { sdone };

