home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / MACSIG.MNU < prev    next >
Encoding:
Text File  |  1992-07-03  |  4.6 KB  |  200 lines
  1. setequal(/resp=4)
  2. loadsub(control\macros\chg.ctl,goto (sela))
  3. say()
  4. notif (/:EXPERT/) = (Y) then goto (disp)
  5.  
  6. *prompt
  7. say()
  8. setactivity (Mac Sig Prompt)
  9.  
  10. Say(&CR&&14&│$7$&0&Mac Sig$0$%Yellow%│&7& You have &15&%LEFT% &7&minutes remaining, *)
  11. MenuAsk %MIN1%(&15&%FNAME%.&CR&&3&Please enter a selection from the &11&menu&12&: &15&*)
  12. BigIf (g:goodbye,q:main,h:help,?:sdisp,x:exp,s:bstats,f:files,m:messages,p:page,y:stats,@:sysmen,who:who,c:tomcomment,i:info)
  13.  
  14. goto (badsel)
  15.  
  16. *bstats
  17. clearscr
  18. say(&14&Powerboard Bulletin Board System &11& Version &1&%VER%&CR&)
  19. say(&4&You are in the $7$&12&Mac Sig$0$&4& of this board.&CR&)
  20. say(&2&Your &12&Mac Sysop&2& is &7&Tom Schmitt.&CR&)
  21. say(&10&This BBS Opened on &7&%SINCE%&CR&)
  22. addvar(%CALLERS%+1=t)
  23. say(&15&You are caller number &7&%var%T)
  24. say(&15&And you have &4&%LEFT% &15&minutes remaining, &9&%FNAME%&CR&)
  25. say(&13&Message areas last updated: &5&%MSGUP%&CR&)
  26. say(&13&File areas last updated: &5&%FILUP%)
  27. say()
  28. say()
  29. say()
  30. enter
  31. goto (disp)
  32.  
  33. *disp
  34. if (/EXPERT)=(Y) then goto (prompt)
  35. *sdisp
  36. setactivity(Mac Menu Display)
  37. clearscr
  38. say(&15&Mac Sig Main Menu Options&12&:&2& &CR&)
  39. say( (&12&C&2&)omment to Tom                     Mac (&12&F&2&)iles Menu)
  40. say( (&12&I&2&)nfo about the Mac Sig                 (&12&Who&2&)'s on the other node?)
  41. say( (&12&G&2&)oodbye                                (&12&Q&2&)uit to the Main Menu)
  42. say( (&12&H&2&)elp with this menu                   E(&12&X&2&)pert mode toggle)
  43. say( (&12&Y&2&)our Stats                             (&12&M&2&)essage Menu)
  44. say( (&12&P&2&)age your sysop (%SYSOP%)&CR&&CR&)
  45. goto (prompt)
  46.  
  47. *main
  48. say()
  49. loadmem(control\MAIN.MNU)
  50.  
  51. *exp
  52. loadsub(control\macros\expert.ctl)
  53. goto (disp)
  54.  
  55. *help
  56. setactivity(Quest. Menu Help)
  57. display (display\help\ques/:SEC/)
  58. goto (disp)
  59.  
  60. *goodbye
  61. loadsub(control\macros\bye.ctl)
  62. goto (disp)
  63.  
  64. *badsec
  65. *badsel
  66. loadsub(control\macros\badsel.ctl)
  67. goto (disp)
  68.  
  69. *files
  70. say()
  71. loadmem(control\MACFILE.MNU)
  72.  
  73. *messages
  74. say()
  75. loadmem(control\MACMESS.MNU)
  76.  
  77. *page
  78. say(&14&)
  79. say(Paging %SYSOP% for a chat, one moment please...)
  80. setequal(a=/:CHATREQ/)
  81. addvar(%var%a+1=a)
  82. setequal(/chatreq=%var%a)
  83. checkhours
  84. if (%ARESP%)=(No) then goto (badhours)
  85. if (%CHAT%)=(No) then goto (notHere)
  86. setequal(n=OK)
  87. inpopen (pagebell.dat)
  88. localwrite(1,%Y%,27,0,Paging Sysop!  Press (SPACEBAR) to accept page!)
  89. if (%ARESP%)=(ERROR) then goto (nothere)
  90. setequal(h=0)
  91. *stpage
  92. if (&n)=(PROB) then goto (absound)
  93. inpread
  94. sound (%ARESP%)
  95. *absound
  96. localkey(30)
  97. notif (%ARESP%)=(No) then goto (spacehit)
  98. fendif (notHere)
  99. goto (stpage)
  100. *spacehit
  101. localwrite(1,%Y%,27,0,                                                  )
  102. localwrite(1,%Y%,27,0,)
  103. inpclose
  104. sysopchat
  105. goto (disp)
  106. *nothere
  107. localwrite(1,%Y%,27,0,                                                  )
  108. localwrite(1,%Y%,27,0,)
  109. say()
  110. inpclose
  111. requested (Chat Requested)
  112. display (display\page)
  113. log(--,Chat with Sysop Requested)
  114. goto (disp)
  115. *badhours
  116. say()
  117. requested (Chat Requested)
  118. display (display\hours)
  119. log(--,Chat with Sysop Requested)
  120. goto (disp)
  121.  
  122. *stats
  123. loadsub(control\macros\stats.ctl)
  124. goto (disp)
  125.  
  126. *top
  127. loadmem(control\TOP.MNU)
  128.  
  129. *sysmen
  130. enufsec(100)
  131. if (%ARESP%)=(No) then goto (badsec)
  132. say()
  133. loadmem(control\SYSOP.MNU)
  134.  
  135. *who
  136. enufsec(100)
  137. if (%ARESP%)=(No) then goto (badsec)
  138. seek(whoison.dat)
  139. if (%ARESP%)=(No) then goto (badsel)
  140. say()
  141. setequal(w=0)
  142. size(whoison.dat)
  143. display(display\who)
  144. divvar(%ARESP%/131=y)
  145. do
  146. addvar(%var%w+1=w)
  147. nodestat(%var%w)
  148. say(&11&%var%w&15&    %NAVAIL%&7&  %NNAME% %NFROM% %NBAUD%&12&%NACTIVITY%)
  149. if (&w)=(&y) then goto (ewho)
  150. loop
  151. *ewho
  152. say()
  153. say()
  154. enter
  155. say()
  156. goto (disp)
  157.  
  158. *tomcomment
  159. SetEqual(o=/:LASTMSG/)
  160. Zap(lconf.%NODE%)
  161. Say(&CR&&3&Would you like to leave&11& Scott Brown&3& a comment? &9&[   ]&14&*)
  162. Back(4)
  163. AppendTo(lconf.%NODE%,/:LASTMSG/)
  164. YesNoAsk(*)
  165. If (%RESP%)=(No) Then goto (disp)
  166. If (&q)=(10) Then goto (lve)
  167. Say(&CR&&3&What is this comment about?%hRed%:&11&(                 )&15&*)
  168. Back(18)
  169. SetFill(Question)
  170. cAsk%CRON%%LEN17%(*)
  171. if (%RESP%)=(<CR>) then goto (disp)
  172. SetEqual(b=%RESP%)
  173. SetActivity(Leaving comment...)
  174. Log(--,Leaving Comment Re: %RESP%)
  175. Say()
  176. Combine(Comment Re: +%var%b=b)
  177.         
  178.         *lve
  179. SetEqual(a=Scott Brown)
  180. SeekUser(%var%a)
  181. SetEqual(c=%NDNUMB%)
  182. SetEqual(o=/:LASTMSG/)
  183. SetEqual(/lastmsg=1)
  184. SelArea(1)
  185. SetEqual(y=0)
  186. If (%ARESP%)=(No) Then SetEqual(c=0)
  187. InitTxt
  188. SetEqual(k=30)
  189. LoadSub(control\macros\menter.ctl)
  190. InpLine(lconf.%NODE%,1)
  191. SetEqual(/lastmsg=%ARESP%)
  192. SelArea(%ARESP%)
  193. goto (disp)
  194.  
  195. *info
  196. clearscr
  197. display(display\info)
  198. say()
  199. goto (disp) 
  200.