procedure error(n:integer);
begin
writeln(>****>,> >:cc-1,>!>,n:2);
writeln(fa1,>****>,> >:cc-1,>!>,n:2);
err|=err+1
end(*error*);
procedure getsym;
var i,j,k:integer;
procedure getch;
begin
if cc=ll
then
begin
if eof(fin)
then
begin
write(>program incomplete>);
goto 99
end;
ll|=0;
cc|=0;
write(cx:4,> >);
write(fa1,cx:4,> >);
while not eoln(fin) do
begin
ll|=ll+1;
read(fin,ch);
write(ch);
write(fa1,ch);
line[ll]|=ch
end;
writeln;
ll|=ll+1;
read(fin,line[ll]);
writeln(fa1);
end;
cc|=cc+1;
ch|=line[cc]
end (*getch*);
|