home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / FILES.MNU < prev    next >
Encoding:
Text File  |  1992-09-02  |  2.9 KB  |  143 lines
  1. ;MODIFIED for The Swing BBS: DP command (Download Powerboard)
  2.  
  3.         *disp
  4. setactivity(Files Menu)
  5. if (/expert)=(Y) then linefeed(1)
  6. if (/EXPERT)=(Y) then goto (prompt)
  7.  
  8. *sdisp
  9. display (display\file,/:SEC/)
  10.  
  11.         *prompt
  12. say(&14&│$7$&0&%CACT%$0$&14&│&7& You have &15&%LEFT% &7&minutes remaining, &15&%FNAME%.)
  13. say(&9&%AREANAME%&7& Conference, &9&%FILNAME%&7& File Area.)
  14. menuask %MIN1%(&3&Please enter a selection from the &11&menu&12&: &15&*)
  15.  BigIf (g:goodbye,h:help,?:sdisp,x:exp,q:main,c:change,l:list,r:read,v:zview,n:new,d:down,u:up,m:move,j:join)
  16.  bigif (del:deltagged,tag:tagfiles,list:ltagged,s:search,w:wild,a:aband,dp:dpo)
  17. goto (badsel)
  18.  
  19. *dpo
  20. enufsec(50)
  21. ifnottrue(goto (badsel))
  22. loadsub(control\macros\zippb.ctl)
  23. goto (disp)
  24.  
  25. *aband
  26. enufsec(10)
  27. ifnottrue(goto (badsel))
  28. loadsub(control\macros\aband.ctl)
  29. goto (disp)
  30.  
  31.         *join
  32. enufsec(10)  ;check security
  33. IfNotTrue (goto (badsel))
  34. loadsub(control\macros\chg.ctl)
  35. goto (disp)
  36.  
  37.         *move
  38. enufsec(90)
  39. ifnottrue (goto (badsel))
  40. loadsub(control\macros\move.ctl)
  41. goto (disp)
  42.  
  43.         *down
  44. enufsec(10)
  45. ifnottrue (goto (badsel))
  46. loadsub(control\macros\DOWN.CTL)
  47. selfarea(/:LASTDOWN/)
  48. goto (disp)
  49.         
  50.         *up
  51. enufsec(20)
  52. ifnottrue (goto (badsel))
  53. loadsub(control\macros\up.ctl)
  54. goto (disp)
  55.  
  56.         *new
  57. enufsec(10)
  58. ifnottrue (goto (badsel))
  59. loadsub(control\macros\NEW.CTL)
  60. goto (disp)
  61.  
  62.         *ltagged
  63. enufsec(10)
  64. ifnottrue (goto (badsel))
  65. loadsub(control\macros\ltagged.ctl)
  66. goto (disp)
  67.  
  68.         *deltagged
  69. enufsec(10)
  70. ifnottrue (goto (badsel))
  71. loadsub(control\macros\deltag.ctl)
  72. goto (disp)
  73.  
  74.         *tagfiles
  75. enufsec(10)
  76. IfNotTrue (goto (badsel))
  77. loadsub(control\macros\tfiles.ctl)
  78. goto (disp)
  79.  
  80.         *Zview
  81. enufsec(10)
  82. ifnottrue (goto (badsel))
  83. loadsub(control\macros\zview.ctl)
  84. goto (disp)
  85.  
  86.         *main
  87. enufsec(10)
  88. ifnottrue (goto (badsel))
  89. defpause($7$&0&[Send more text?]$0$&3& (&11&S&3&)top, (&11&N&3&)onstop or (&11&C&3&)ontinue?&12&: &7&)
  90. defPif(s:stop,n:nonstop)
  91. loadmem(control\main.MNU)
  92.         
  93.         *read
  94. enufsec(10)
  95. ifnottrue (goto (badsel))
  96. loadsub(control\macros\fread.ctl)
  97. goto (disp)
  98.  
  99.         *list
  100. enufsec(10)
  101. ifnottrue (goto (badsel))
  102. loadsub(control\macros\flist.ctl)
  103. goto (disp)
  104.  
  105.         *wild
  106. loadsub(control\macros\Wsearch.ctl)
  107. goto (disp)
  108.  
  109.         *search
  110. enufsec(10)
  111. ifnottrue (goto (badsel))
  112. loadsub(control\macros\SEARCH.CTL)
  113. goto (disp)
  114.  
  115.         *change
  116. enufsec(10)
  117. ifnottrue (goto(badsel))
  118. loadsub(control\macros\change.ctl)
  119. goto (disp)
  120.  
  121.         *exp
  122. enufsec(10)
  123. ifnottrue (goto (badsel))
  124. loadsub(control\macros\expert.ctl)
  125. goto (disp)
  126.  
  127.         *help
  128. enufsec(10)
  129. ifnottrue (goto (badsel))
  130. log(--,Viewing Files Menu Help)
  131. display (display\help\file,/:SEC/)
  132. goto (disp)
  133.  
  134.         *goodbye
  135. enufsec(10)
  136. ifnottrue (goto (badsel))
  137. loadsub(control\macros\bye.ctl)
  138. goto (disp)
  139.  
  140.         *badsel
  141. loadsub(control\macros\badsel.ctl)
  142. goto (disp)
  143.