home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / source / doxmodu2.mod < prev    next >
Encoding:
Text File  |  1987-12-07  |  1.0 KB  |  38 lines
  1. BEGIN (* Do_Xmodem_Upload *)
  2.                                    (* Remember protocol type    *)
  3.  
  4.    Transfer_Protocol := Trans_Protocol;
  5.  
  6.                                    (* Save comm parms and reset *)
  7.                                    (* for Xmodem                *)
  8.    Save_Comm_For_Xmodem;
  9.                                    (* Indicate file being sent *)
  10.    Sending_Files := TRUE;
  11.                                    (* Perform transfer *)
  12.    CASE Transfer_Protocol OF
  13.  
  14.       Xmodem_Chk   : Send_Xmodem_File( FALSE );
  15.  
  16. {     WXmodem, }
  17.       Xmodem_CRC   : Send_Xmodem_File( TRUE  );
  18.  
  19.       Telink,
  20.       Modem7_CRC   : Send_Modem7_File( TRUE  );
  21.  
  22.       Modem7_Chk   : Send_Modem7_File( FALSE );
  23.  
  24. {     SeaLink, }
  25.       Ymodem_G,
  26.       Ymodem_Batch : Send_Ymodem_File( TRUE  );
  27.  
  28.       Xmodem_1K,
  29.       Xmodem_1KG   : Send_Ymodem_File( FALSE );
  30.  
  31.       ELSE ;
  32.  
  33.    END  (* Case *);
  34.                                    (* Reset comm parms to saved values *)
  35.    Restore_Comm_For_Xmodem;
  36.  
  37. END   (* Do_Xmodem_Upload *);
  38.