Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!caip!rutgers!sri-spam!nike!ucbcad!ucbvax!decwrl!comet.dec.com!fulton
From: fulton@comet.dec.com (Cathy Fulton -- CXO Technical Training)
Newsgroups: net.micro.pc
Subject: Corrupted file in PIBTERM mailing
Message-ID: <6025@decwrl.DEC.COM>
Date: Sun, 19-Oct-86 09:25:49 EDT
Article-I.D.: decwrl.6025
Posted: Sun Oct 19 09:25:49 1986
Date-Received: Tue, 21-Oct-86 21:34:32 EDT
Sender: daemon@decwrl.DEC.COM
Organization: Digital Equipment Corporation
Lines: 49

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