program interpreter;

{$mode delphi}

uses
  Execute, Source, Parser;

var
  ProgramCode: TProgramCode;
begin
  FillChar(ProgramCode, SizeOf(TProgramCode), 0);

  WriteLn('Parsing started');
  ProgramCode.BaseDir := '../interpreter3';
  ParseProgram(@ProgramCode);
  WriteLn('Parsing finished');

  WriteLn('Execution started');
  ExecuteProgram(@ProgramCode);
  WriteLn('Execution finished');
end.