Курсовая работа. / РЯП_Ксю / Other / Bosk_tjp / proga / src / DMP

program DMP;
(* FIX 1 *)
(*uses Crt, Grams;*)(* было *)
uses Crt, Grams, uAsm, uTrList;(* стало *)
(* end FIX 1 *)

var line: Integer;
begin
  ClrScr;
  SetF_in;
  c := ' ';
  w := Eof(f_in);
  if proc_PROG(c,w,0,eps,line) then begin
    WriteLn(f_out,'WELL DONE');
    WriteLn('WELL DONE');
    (* FIX 2 *)
    (* add *)
    printTriadList('triad_1.txt', TriadList);
    triada_to_asm;
    printTriadList('triad_2.txt', TriadList);
    (* end FIX 2 *)
  end else begin
    WriteLn(f_out,'ERROR: Unexpected symbol (line ',line,')');
    WriteLn('ERROR: Unexpected symbol (line ',line,')');
  end;
  Close(f_out);
  ReadLn;


end.