home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / SYSOP.MNU < prev    next >
Encoding:
Text File  |  1992-08-28  |  1.1 KB  |  65 lines
  1. *disp
  2. SetActivity (Sysop Menu)
  3. if (/EXPERT)=(Y) then goto (prompt)
  4. *sdisp
  5. Display (display\SYSOP,/:SEC/)
  6.  
  7. *prompt
  8. say(&CR&&14&│$7$&0&%CACT%$0$&14&│&7& You have &15&%LEFT% &7&minutes remaining, &15&%FNAME%.&3&)
  9. menuask %MIN1%(Please enter a selection from the &11&menu&12&: &15&*)
  10. BigIf (G:GOODBYE,H:HELP,?:SDISP,X:EXP,V:VIEWLOG,S:SHELL,K:KILL,D:DOWN,O:VNO,Q:QT,F:FIL,M:MS,E:ED)
  11. goto (badsel)
  12.  
  13. *badsel
  14. loadsub(control\macros\badsel.ctl)
  15. goto (disp)
  16.  
  17.  
  18. *GOODBYE
  19. LoadSub(CONTROL\MACROS\BYE.CTL)
  20. Goto(Disp)
  21.  
  22. *HELP
  23. Display(display\help\SYSOP,/:SEC/)
  24. Log (--,Viewed Sysop Menu Help)
  25. Goto (Disp)
  26.  
  27. *EXP
  28. LoadSub(CONTROL\MACROS\EXPERT.CTL)
  29. Goto(Disp)
  30.  
  31. *VIEWLOG
  32. LoadSub(CONTROL\MACROS\VIEWLOGS.CTL)
  33. Goto(Disp)
  34.  
  35. *SHELL
  36. EnufSec(100)
  37. IfNotTrue(Goto(BSel))
  38. LoadSub(CONTROL\MACROS\SHELL.CTL)
  39. Goto(Disp)
  40.  
  41. *KILL
  42. LoadSub(CONTROL\MACROS\KILLNODE.CTL)
  43. Goto(Disp)
  44.  
  45. *DOWN
  46. LoadSub(CONTROL\MACROS\NODEDOWN.CTL)
  47. Goto(Disp)
  48.  
  49. *VNO
  50. LoadSub(CONTROL\MACROS\VIEWNODE.CTL)
  51. Goto(Disp)
  52.  
  53. *QT
  54. LoadMem(CONTROL\MAIN.MNU)
  55.  
  56. *FIL
  57. LoadMem(CONTROL\FILES.MNU)
  58.  
  59. *MS
  60. LoadMem(CONTROL\MESS.MNU)
  61.  
  62. *ED
  63. LoadSub(CONTROL\UEDIT.CTL)
  64. Goto(Disp)
  65.