{
Report on trouble.
}
procedure Trouble(msg:String);
var b:Boolean;
begin
 if iAnd(DebugFlags,dfTrouble)<>0 then
 if Length(msg)>0 then Writeln(DevName+' ! '+msg);
 if RunCount=1 then errors:=errors+1 else b:=FixError(errorcode);
end;
