{
Process standard input...
while StdIn_Readln(StdIn_Line) do StdIn_Process(StdIn_Line);
}
{
Analyse data coming from standard input.
}
procedure StdIn_Process(Data:string);
var cmd,arg:String; b:Boolean;
begin
 if iAnd(DebugFlags,dfViewImp)<>0 then ViewImp('CON: '+Data);
 {
 "@cmd=arg" or "@cmd args" commands:
 }
 cmd:='';
 arg:='';
 if Length(Data)>0 then
 if Data[1]='@' then begin
  cmd:=ExtractWord(1,Data);
  arg:=Copy(Data,Pos(cmd,Data)+Length(cmd)+1);
  {}
  if IsSameText(cmd,'@Help') then begin
   ShowHelp(true);
   Data:='';
  end;
  {}
  if IsSameText(cmd,'@DebugFlags') then begin
   if not IsNan(rVal(arg)) then DebugFlags:=Round(rVal(arg));
   Success(cmd+'='+Str(DebugFlags));
   Data:='';
  end;
  {}
  if Length(Data)>0 then begin
   Trouble(' Unrecognized command "'+Data+'".');
   Data:='';
  end;
 end;
 cmd:='';
 arg:='';
end;
