{
Report on data export from program.
}
procedure ViewExp(msg:String);
begin
 if iAnd(DebugFlags,dfViewExp)<>0 then
 if Length(msg)>0 then Writeln(DevName+' > '+msg);
end;
