home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / pibterm / pibt41s3.arc / PIBUPLOD.MOD < prev    next >
Encoding:
Text File  |  1987-11-11  |  1.3 KB  |  26 lines
  1. (*----------------------------------------------------------------------*)
  2. (*           PibUpLoad --- Control routine for uploads/downloads        *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE PibUpLoad( Transfer_Protocol : Transfer_Type );
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  PibUpload                                            *)
  10. (*                                                                      *)
  11. (*     Purpose:    Controls uploading of files to remote hosts.         *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        PibUpLoad( Transfer_Protocol : Transfer_Type );               *)
  16. (*                                                                      *)
  17. (*           Transfer_Protocol --- type of transfer to do               *)
  18. (*                                                                      *)
  19. (*----------------------------------------------------------------------*)
  20.  
  21. BEGIN (* PibUpLoad *)
  22.  
  23.    PibUpDown( Transfer_Protocol , 'S' );
  24.  
  25. END   (* PibUpLoad *);
  26.