home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / EDLIST.CTL < prev    next >
Encoding:
Text File  |  1993-07-13  |  1.2 KB  |  73 lines
  1. loadsub(control\macros\ltagged.ctl)
  2.  
  3. say(&3&Please enter the name of the file to remove&12&: &14&(            )&15&*)
  4. back(13)
  5. menuask%nocr%%CRON%%LEN%12%(*)
  6. if (%RESP%)=(<CR>) then goto (rn)
  7. adddef (.%DEFEXT%)
  8.  
  9. setequal(a=%Resp%)
  10.  
  11. jump (DoCopy)
  12.  
  13. setequal(b=0)
  14. setequal(c=0)
  15.  
  16. inpopen(t1.%node%)
  17.  
  18. do
  19. inc(c)
  20. inpread
  21. if (%ARESP%)=(%VAR%A) then setequal(b=%VAR%C)
  22. notif (%ARESP%)=(%VAR%A) then appendto(tagged.%node%,%ARESP%)
  23. eofloop
  24.  
  25. inpclose
  26.  
  27. if (%VAR%B)=(0) then goto NoFRet
  28.  
  29. inpopen (t2.%node%)
  30.  
  31. setequal(c=0)
  32.  
  33. do
  34. inc(c)
  35. inpread
  36. notif (%VAR%C)=(%VAR%B) then appendto (tagged2.%node%,%ARESP%)
  37. eofloop
  38. inpclose
  39.  
  40. inpopen (f1.%node%)
  41.  
  42. setequal(c=0)
  43.  
  44. do
  45. inc(c)
  46. inpread
  47. notif (%VAR%C)=(%VAR%B) then appendto (free.%node%,%ARESP%)
  48. eofloop
  49. inpclose
  50.  
  51. say(&CR&&11&%VAR%A &2&has been removed from the list.&CR&)
  52. enter
  53. *rn
  54. say()
  55. return
  56.  
  57. *NoFRet
  58. fcopy (t2.%node%,tagged2.%node%)
  59. fcopy (f1.%node%,free.%node%)
  60. say (&CR&&12&File not found in tagged file list.&CR&)
  61. enter
  62. return
  63.  
  64. *DoCopy
  65. fcopy(tagged.%node%,t1.%node%)
  66. fcopy(tagged2.%node%,t2.%node%)
  67. fcopy(free.%node%,f1.%node%)
  68. zap(tagged.%node%)
  69. zap(tagged2.%node%)
  70. zap(free.%node%)
  71. say()
  72. ret
  73.