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