{ This program is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation; either version 2 of the License, or
  (at your option) any later version.

  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with this program; if not, write to the Free Software
  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
}


program Test;
  uses DOS, CRT, Defin, Config, Screen, Strings, Files;

  const
    AllDone: boolean = false;

  procedure UpdateSrcPanel;
  var
    l: integer;
  begin
    Panel[pSource].ClearScreen;
    Panel[pSource].Line1 := 1;
    l := 1;
    while (l <= NrLSrc) and (l <= Panel[pSource].Height) do begin
      Panel[pSource].OutText(1, l, Src[l]^);
      inc(l);
    end;
  end;

  procedure Command;
  var
    Cmd: string;
  begin
    Cmd := Panel[pCommand].GetCommand('Sim>');
    case upcase(Cmd[1]) of
      'L': begin
             LoadSource(copy(Cmd, 2, length(Cmd)-1));
             UpdateSrcPanel;
           end;
      'X': AllDone := true;
    end;
  end;

  begin
    InitInterface;
    repeat
      Command;
    until AllDone;
    clrscr;
  end.