{
Report on data import to program.
}
procedure ViewImp(msg:String);
begin
 if iAnd(DebugFlags,dfViewImp)<>0 then
 if Length(msg)>0 then Writeln(DevName+' < '+msg);
end;
