(* There are three procedures in this file.  Probably two of them could be
     combined, but it was simpler this way for now.  Anyway, these set up
     the displays for send and receive mode, and updates the display after
     a packet is sent or received.
  *)


  procedure displayt; (* display the send and receive states *)


    begin
      gotoxy(1,1);
      writeln('Turbo Pascal Kermit Version ', version:3:1);
      gotoxy(5,7);
      write('Bytes transferred: ');
      gotoxy(40,7);
      write('Bytes to transfer: ');
      gotoxy(5,3);
      write('Packets Sent:');
      gotoxy(5,5);
      write('Retries:');
    end;

  procedure displayr; (* display the send and receive states *)

    begin
      gotoxy(1,1);
      writeln('Turbo Pascal Kermit Version ', version:3:1);
      gotoxy(5,7);
      write('Bytes transferred: ');
      gotoxy(5,3);
      write('Packets Received:');
      gotoxy(5,5);
      write('Retries:');
    end;

  procedure update(packets_sent,packets_bad : integer); (* update the display *)

    begin
      gotoxy(24,3);
      write(packets_sent:6);
      gotoxy(24,5);
      write(packets_bad:6);
      gotoxy(24,7);
      write((buffer_num * 128):6);
    end;