home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / DOWNATT.CTL < prev    next >
Encoding:
Text File  |  1992-07-08  |  1.2 KB  |  51 lines
  1. setactivity(Downloading Files)
  2.  
  3.         *pickprot
  4. display (display\dnPROTS1)
  5. MenuAsk (&3&Which transfer protocol would you like to use?&12&: &15&*)
  6. if (%RESP%)=(Q) then goto (aborted)
  7. len(%RESP%)
  8. notif (%ARESP%)=(1) then goto (Pprob) ;no batch protocols allowed...
  9. seek(protocol\%RESP%-Ad.BT)
  10. iftrue (goto (Pok))
  11.  
  12.         *pprob
  13. loadsub(control\macros\badsel.ctl)
  14. goto (pickprot)
  15.  
  16.         *Pok
  17. setequal(r=%RESP%)
  18. setequal(x=%MSGATTNAME%)
  19. size(%ATTPAT%%var%x)
  20. ttime(%ARESP%)
  21. cmpval(%TTIM%,/:LEFT/)
  22. if (%ARESP%)=(No) then goto (notenuftime)
  23. say(&11&)
  24. say(We're ready to send the file.  Please start receiving now.)
  25. fixfile(protocol\%var%r-ad.bt,protocol\%var%r-ad.bat)
  26. exec(protocol\%var%r-ad.BAT│)
  27. kill(protocol\%var%r-ad.bat)
  28.  
  29.         *success
  30. notif (%ARESP%)=(0) then goto (aborted)
  31. log(--,Attach downloaded (%var%x))
  32. inpline(varr.%NODE%,1)  ;restore var :r
  33. setequal(r=%ARESP%)
  34. display(display\attsucc1)
  35. Return
  36.  
  37.         *notenuftime
  38. display(display\NODLTIME)
  39. inpline(varr.%NODE%,1)
  40. setequal(r=%ARESP%)
  41. Return
  42.  
  43.         *aborted
  44. log(--,Attach download aborted (%var%x))
  45. setequal(x=)
  46. flushout
  47. inpline(varr.%NODE%,1)
  48. setequal(r=%ARESP%)
  49. display(display\attabt1)
  50. Return
  51.