Курсовая работа. / РЯП_Ксю / 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.