home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / k / kermft10.zip / UPLOAD.SCR < prev   
Text File  |  1992-10-04  |  1KB  |  54 lines
  1. ; This will call the appropriate external file transfer protocols
  2. ; Glauber 13sep92
  3.  
  4. ; edit next line so that it matches your system
  5. define progpath c:\kermit\gsz
  6.  
  7. define gszparms pB4096 pV1 
  8.  
  9. :top
  10.  
  11. cls
  12.  
  13. echo {\009  ╔════════════════════╗}
  14. echo {\009  ║  UPLOAD PROTOCOLS: ║}
  15. echo {\009  ╟────────────────────╢}
  16. echo {\009  ║     1. Zmodem      ║}
  17. echo {\009  ║                    ║}
  18. echo {\009  ║     2. YModem      ║}
  19. echo {\009  ║                    ║}
  20. echo {\009  ║     3. XModem      ║}
  21. echo {\009  ╚════════════════════╝}
  22. echo {\009}
  23. ask user {\009  Please choose (1|2|3)\009}
  24. ask what {\009  File(s) to upload:\009}
  25.  
  26. if equal \m(user) 1 goto zmodem
  27. if equal \m(user) 2 goto ymodem
  28. if equal \m(user) 3 goto xmodem
  29. if equal \m(user) z goto zmodem
  30. if equal \m(user) y goto ymodem
  31. if equal \m(user) x goto xmodem
  32. if equal \m(user) zmodem goto zmodem
  33. if equal \m(user) ymodem goto ymodem
  34. if equal \m(user) xmodem goto xmodem
  35. goto top
  36.  
  37.  
  38. :zmodem
  39. echo {\009  OK, Zmodeming \m(what)}
  40. run \m(progpath) \m(gszparms) sz -mrr \m(what)
  41. pop
  42.  
  43.  
  44. :ymodem
  45. echo {\009  OK, Ymodeming} \m(what)}
  46. run \m(progpath) \m(gszparms) sb \m(what)
  47. pop
  48.  
  49.  
  50. :xmodem
  51. echo {\009  OK, Xmodeming \m(what)}
  52. run \m(progpath) \m(gszparms) sx \m(what)
  53. pop
  54.