home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / pibterm / pibt3sp1 / doxmodd1.pas < prev    next >
Pascal/Delphi Source File  |  1985-09-11  |  2KB  |  32 lines
  1. (*----------------------------------------------------------------------*)
  2. (*        Do_Xmodem_Download --- Controls Xmodem downloads              *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. OVERLAY PROCEDURE Do_Xmodem_Download( Transfer_Protocol : Transfer_Type );
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Do_Xmodem_Download                                   *)
  10. (*                                                                      *)
  11. (*     Purpose:    Controls Xmodem-family downloads                     *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Do_Xmodem_DownLoad( Transfer_Protocol : Transfer_Type );      *)
  16. (*                                                                      *)
  17. (*           Transfer_Protocol --- type of transfer to do               *)
  18. (*                                                                      *)
  19. (*     Calls:   Receive_Ascii_File                                      *)
  20. (*              Receive_Xmodem_File                                     *)
  21. (*              Receive_Kermit_File                                     *)
  22. (*              Receive_Modem7_File                                     *)
  23. (*              Async_Reset_Port                                        *)
  24. (*                                                                      *)
  25. (*     Remarks:                                                         *)
  26. (*                                                                      *)
  27. (*        This routine exists solely to ensure overlaying of the Xmodem *)
  28. (*        code with the Kermit code.                                    *)
  29. (*                                                                      *)
  30. (*----------------------------------------------------------------------*)
  31.  
  32. ə