home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PIBTERM / PIBT41S1.ARC / DOXMODD2.MOD < prev    next >
Encoding:
Text File  |  1987-12-07  |  1.0 KB  |  38 lines
  1.  
  2. BEGIN (* Do_Xmodem_Download *)
  3.                                    (* Remember protocol type    *)
  4.  
  5.    Transfer_Protocol := Trans_Protocol;
  6.  
  7.                                    (* Save current comm parms and *)
  8.                                    (* reset for Xmodem            *)
  9.    Save_Comm_For_Xmodem;
  10.                                    (* Indicate files being received *)
  11.    Sending_Files := FALSE;
  12.                                    (* Perform transfer          *)
  13.    CASE Transfer_Protocol Of
  14.  
  15.       Xmodem_Chk:     Receive_Xmodem_File( FALSE );
  16.  
  17.       Modem7_CRC,
  18.       Telink:         Receive_Modem7_File( TRUE );
  19.  
  20.       Modem7_Chk:     Receive_Modem7_File( FALSE );
  21.  
  22. {     SeaLink, }
  23.       Ymodem_G,
  24.       Ymodem_Batch:   Receive_Ymodem_File;
  25.  
  26.       Xmodem_1K,
  27.       Xmodem_1KG,
  28. {     WXmodem, }
  29.       Xmodem_Crc:     Receive_Xmodem_File( TRUE );
  30.  
  31.       ELSE ;
  32.  
  33.    END  (* CASE *);
  34.                                    (* Reset comm parms back *)
  35.    Restore_Comm_For_Xmodem;
  36.  
  37. END   (* Do_Xmodem_DownLoad *);
  38.