home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / BULLET.TYP < prev    next >
Encoding:
Text File  |  1992-07-10  |  1.1 KB  |  45 lines
  1. SetActivity(Bulletins Menu)
  2.  
  3.   *Disp
  4. if (/EXPERT)=(Y) then linefeed(1)
  5. If (/EXPERT)=(Y) Then Goto(prompt)
  6.   *Sdisp
  7. Display(Display\blt,/:SEC/)
  8.  
  9.   *Prompt
  10. DefPause($7$&0&[Send more text?]$0$&3& (&11&S&3&)top, (&11&N&3&)onstop or (&11&C&3&)ontinue?&12&: &7&)
  11. DefPif(s:stop,n:nonstop,g:goodbye)   ;define our pause prompt...
  12. Say(&14&│$7$&0&%CACT%$0$&14&│&7& You have &15&%LEFT% &7&minutes remaining, &15&%FNAME%.)
  13. MenuAsk%MIN1%(&3&Please enter a selection from the &11&menu&12&: &15&*)
  14.  BigIf (q:loadmain,g:goodbye,x:expert,h:help,?:sdisp,n:new)
  15. Number(%RESP%) ;is it a number?!
  16. IfNotTrue ( Goto (bsel))
  17. Log(--,Bulletin %RESP% Read.)
  18. Display (Display\Bull%RESP%)
  19. goto (disp)
  20.  
  21.   *Loadmain
  22. LoadMem(control\main.mnu)
  23.         
  24.   *Expert
  25. loadsub(control\macros\expert.ctl)
  26. goto (disp)
  27.  
  28.   *help
  29. Log(--,Viewing Bulletins Menu Help)
  30. Display (Display\help\BULL,/:SEC/)
  31. Goto (disp)
  32.  
  33.   *new
  34. LoadSub(control\macros\newbull.ctl)
  35. enter
  36. goto (disp)
  37.  
  38.   *goodbye
  39. LoadSub(control\macros\bye.ctl)
  40. Goto (disp)
  41.  
  42.   *bsel
  43. LoadSub(control\macros\badsel.ctl)
  44. Goto (disp)
  45.