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*);