home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / ENTERATT.CTL < prev    next >
Encoding:
Text File  |  1992-07-23  |  1.5 KB  |  64 lines
  1. Say(&14&Calculating free storage space...*)
  2. Zap(varr.%NODE%,%var%r)
  3. ClearMem
  4. FreeSpace(%CDRIVE%:)
  5. setequal(l=%aresp%)
  6. CmpVal(%ARESP%,%MINSPACE%)
  7. IfTrue (Goto (notenufs))
  8. eline(38)
  9.  
  10.   *pickprot
  11. Display (display\upPROTS1)
  12. MenuAsk (&3&Which transfer protocol would you like to use?&12&: &15&*)
  13. If (%RESP%)=(Q) Then Return
  14. Len(%RESP%)
  15. NotIf (%ARESP%)=(1) Then Goto (Pprob)
  16. Seek(protocol\%RESP%-AU.BT)
  17. IfTrue (Goto (Pok))
  18.  
  19.   *pprob
  20. loadsub(control\macros\badsel.ctl)
  21. Goto (pickprot)
  22.  
  23.    *Pok
  24. addcomma(%var%l)
  25. Say(&CR&&11&%ARESP% &15&bytes free.)
  26. SetEqual(r=%RESP%)
  27. cMenuAsk%cron% (&CR&&3&Please enter the &11&name &3&of the file to attach&12&:&15& *)
  28. If (%RESP%)=(<CR>) Then Return
  29. SetEqual(x=%RESP%)
  30. Seek(%ATTPAT%%var%x)
  31. IfTrue (Goto (alreadyhere))
  32. Say(&CR&&11&We're ready to receive the file.  Please start sending now.)
  33. If (%BAUD%)=(LOCAL) Then Goto (locul)
  34. FixFile(protocol\%var%r-au.bt,protocol\%var%r-au.bat)
  35. Exec(protocol\%var%r-au.BAT│)
  36. Kill(protocol\%var%r-au.bat)
  37. Goto (success)
  38.  
  39.   *locul
  40. MenuAsk (&3&Please enter the &10&path&3& for this file&12&: &15&*)
  41. fCopy(%RESP%\%var%x,%ATTPAT%%var%x)
  42. Goto (success)
  43.  
  44.   *success
  45. NotIf (%ARESP%)=(0) Then Goto (aborted)
  46. Log(--,Attach uploaded (%var%x))
  47. Display(display\attsucc)
  48. return
  49.  
  50.   *notenufs
  51. display(display\nospce)
  52. Return
  53.         
  54.   *aborted
  55. SetEqual(x=)
  56. FlushOut
  57. Log(--,Attach upload aborted (%var%x))
  58. Display(display\attabt)
  59. Return
  60.         
  61.   *alreadyhere
  62. Display (display\HERENOW)
  63. Goto (pok)
  64.