🚀 go-pugleaf

The intended audience for this message is those persons to whom I
mailed the sources to PIBTERM.

I recently discovered that one of the files in my mailing was corrupted.
That file was PIBDWLOC.PAS.  So, here it is intact:

-------------------------------------------------------------------------
BEGIN (* PibDownLoad *)
                                   (* Use file time provided by sender *)
                                   (* by default.                      *)
   Use_Time_Sent := TRUE;
                                   (* Get protocol if necessary *)

   IF Transfer_Protocol = None THEN
      Transfer_Protocol := Get_Download_Protocol;

                                   (* Perform transfer          *)
   CASE Transfer_Protocol Of

      Ascii:          Receive_Ascii_File;

      Xmodem_Chk,
      Modem7_CRC,
      Telink,
      Modem7_Chk,
      Ymodem_Batch,
      Ymodem,
      Xmodem_Crc:     Do_Xmodem_Download( Transfer_Protocol );

      Kermit:         Receive_Kermit_File;

      ELSE ;

   END  (* CASE *);
                                   (* Indicate end of transfer *)
   IF ( NOT Silent_Mode ) THEN
      FOR I := 1 TO Transfer_Bells DO
         BEGIN
            WRITE( CHR( BELL ) );
            DELAY( 250 );
         END;

END   (* PibDownLoad *);
---------------------------------------------------------------------

- Cathy

uucp: ...decvax!decwrl!dec-rhea!dec-comet!fulton
ARPA: fulton%comet.DEC@decwrl