home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / MESS.MNU < prev    next >
Encoding:
Text File  |  1992-08-17  |  1.8 KB  |  101 lines
  1. *disp
  2. SetActivity (Message Menu)
  3. if (/EXPERT)=(Y) then goto (prompt)
  4.  
  5. *sdisp
  6. Display (Display\MESS,/:SEC/)
  7.  
  8. *prompt
  9. if (/Expert)=(Y) then linefeed(1)
  10. say(&14&│$7$&0&%CACT%$0$&14&│&7& You have &15&%LEFT% &7&minutes remaining, &15&%FNAME%.&CR&&7&You are currently in the &9&%AREANAME%&7& message area.)
  11. menuask %MIN1%(&3&Please enter a selection from the &11&menu&12&: &15&*)
  12. BigIf (G:GOODBYE,H:HELP,?:SDISP,X:EXP,J:CHANGE,S:SEARCH,SEL:SELECT,M:READER,COPY:COPY,SC:SCAN,Q:MAINMN,R:READMN,E:ENTERMN,F:FILESMN,A:SL0)
  13. goto (bsel)
  14.  
  15. *bsel
  16. loadsub(control\macros\badsel.ctl)
  17. goto (disp)
  18.  
  19.  
  20.  
  21. *GOODBYE
  22. EnufSec(10)
  23. IfNotTrue(Goto(BSel))
  24. LoadSub(CONTROL\MACROS\BYE.CTL)
  25. Goto(Disp)
  26.  
  27. *HELP
  28. EnufSec(10)
  29. IfNotTrue(Goto(BSel))
  30. Display(display\help\MESS,/:SEC/)
  31. Log (--,Viewed Message Menu Help)
  32. Goto (Disp)
  33.  
  34. *EXP
  35. EnufSec(10)
  36. IfNotTrue(Goto(BSel))
  37. LoadSub(CONTROL\MACROS\EXPERT.CTL)
  38. Goto(Disp)
  39.  
  40. *CHANGE
  41. EnufSec(10)
  42. IfNotTrue(Goto(BSel))
  43. LoadSub(CONTROL\MACROS\CHG.CTL)
  44. Goto(Disp)
  45.  
  46. *SEARCH
  47. EnufSec(10)
  48. IfNotTrue(Goto(BSel))
  49. LoadSub(CONTROL\MACROS\SEARCHM.CTL)
  50. Goto(Disp)
  51.  
  52. *SELECT
  53. EnufSec(10)
  54. IfNotTrue(Goto(BSel))
  55. LoadSub(CONTROL\MACROS\SELECT.CTL)
  56. Goto(Disp)
  57.  
  58. *READER
  59. EnufSec(20)
  60. IfNotTrue(Goto(BSel))
  61. LoadSub(CONTROL\MACROS\MREADER.CTL)
  62. Goto(Disp)
  63.  
  64. *COPY
  65. EnufSec(100)
  66. IfNotTrue(Goto(BSel))
  67. LoadSub(CONTROL\MACROS\MCOPY.CTL)
  68. Goto(Disp)
  69.  
  70. *SCAN
  71. EnufSec(10)
  72. IfNotTrue(Goto(BSel))
  73. LoadSub(CONTROL\MACROS\SCANM.CTL)
  74. Goto(Disp)
  75.  
  76. *MAINMN
  77. EnufSec(10)
  78. IfNotTrue(Goto(BSel))
  79. LoadMem(CONTROL\MAIN.MNU)
  80.  
  81. *READMN
  82. EnufSec(10)
  83. IfNotTrue(Goto(BSel))
  84. LoadSub(CONTROL\READ.CTL)
  85. Goto(Disp)
  86.  
  87. *ENTERMN
  88. EnufSec(10)
  89. IfNotTrue(Goto(BSel))
  90. LoadSub(CONTROL\MACROS\ENTER.CTL)
  91. Goto(Disp)
  92.  
  93. *FILESMN
  94. EnufSec(10)
  95. IfNotTrue(Goto(BSel))
  96. LoadMem(CONTROL\FILES.MNU)
  97.  
  98. *SL0
  99. LoadSub(CONTROL\MACROS\ABAND.CTL)
  100. Goto(Disp)
  101.