home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / XBBS_118.ZIP / SAMPLES.ZIP / MAIN.SMP < prev    next >
Encoding:
Text File  |  1989-12-18  |  3.6 KB  |  127 lines
  1. ;This is a commented simple main menu file to show how the simpler
  2. ;things in XBBS are done in some detail.
  3. ;
  4. ;You'll probably want to delete the comments (; lines) from this
  5. ;file before you actually use it.
  6. ;This is a very simple menu file that doesn't use any of the advanced
  7. ;options available in XBBS.  It is intended only as a starting place.
  8. ;
  9. ;First the main menu prompt
  10. ;This next line makes the print yellow for ANSI users
  11. ~[0;1;33m
  12.  
  13. ;Here's the actual prompt text
  14. Main (? for menu): ;Next we need to input a key into variable 0
  15. 0I1 0 1 1 1 ;Input 1 key, no pw mask, capitalize, hot, any printable char
  16.  
  17. ;Now we process the key in var 0
  18. ;First we trap the question mark or no-input ([Enter]) and go to a menu
  19. ;if either is in var 0...the menu is at label lMenu
  20. 0C=
  21. lMenu
  22. 0C=?
  23. lMenu
  24. ;Next we look for a Q to Quit and go to label lQuit if we find it
  25. 0C=Q
  26. lQuit
  27. ;Now we'll check for an M and go to label lMessageAreas if we find it
  28. 0C=M
  29. lMessageAreas
  30. ;Next, U for Upload/Download areas
  31. 0C=U
  32. lFileAreas
  33. ;F for Feedback to sysop
  34. 0C=F
  35. lFeedBack
  36. ;L for Library, a Door (so you can see how to spawn a door)
  37. 0C=L
  38. lLibrary
  39. ;C for Configure, where the user can change some of his parameters
  40. 0C=C
  41. lConfigure
  42.  
  43. ;Ok, if we get to here the user hit something we don't have an option 
  44. ;for, so let's tell him so and fall through to the menu...
  45. ;Make the next line flashing red for ANSI users
  46. ~[0;1;5;33m
  47. Sorry, I don't know what 0P means...
  48. ;Here's the menu we promised...
  49. lMenu
  50.  
  51. ;Make the next line red for ANSI users
  52. ~[0;1;33m
  53. You must need a menu.  If not, hit [S]top...
  54. ;We'll make the menu green for ANSI users, what the heck...
  55. ~[0;2;32m
  56.  
  57.         Commands available at Main Menu:
  58.         ===============================
  59. ~[0;1;32m
  60. [C]onfigure                 Change some of your parameters
  61. [F]eedback                  Leave Feedback to the SysOp
  62. [L]ibrary                   Text files on various subjects
  63. [M]essage Areas             Messages from other users
  64. [Q]uit                      Logoff the system
  65. [U]pload/Download Areas     File areas
  66.  
  67. ;Now we jump back to the start of this menu
  68. jMain.XBS
  69.  
  70. ;Here's where we send them to the Files.XBS menu if they hit [U]
  71. lFileAreas
  72. ;Gosub to Files.XBS
  73. JFiles.XBS
  74. ;Restart this menu on return
  75. jMain.XBS
  76.  
  77. ;Here's where users go when they die...er, quit...
  78. lQuit
  79. ;We'll make sure they didn't hit [Q]uit by accident...
  80. ;Bright white for ANSI users...maybe they'll pay attention...
  81. ~[0;1;37m
  82.  
  83. Are you sure you want to quit? (y-N) 0I1 0 1 1 5
  84. ;If they hit "Y", get rid of 'em (goto lLogoff)
  85. 0C=Y
  86. lLogoff
  87. ;Otherwise, restart this menu, musta been a mistake
  88.  
  89. jMain.XBS
  90. lLogoff
  91.  
  92. ;Read Goodbye file which logs them off with x
  93. jGoodbye.XBS
  94.  
  95. ;Here's one way to invoke Doors from XBBS.  This is a Spawn of
  96. ;Library.EXE with the following arguments: Commport, Width, Length,
  97. ;Graphics and Baud
  98. lLibrary
  99. ESLibrary.EXE C*p W*w L*l G*G B*B
  100. ;Restart this menu when finished
  101. jMain.XBS
  102.  
  103. ;Message areas comin' at ya...
  104. lMessageAreas
  105. ;Invoke Bulls-mode with file C:\XBBS\MESS\MSGAREAS.XBS and uploading 
  106. ;either reply packets or messages ok (1+2=3)
  107. *C:\XBBS\MESS\MSGAREAS.XBS 3
  108. ;Restart this menu afterwards
  109. jMAIN.XBS
  110.  
  111. ;Here's where we do the feedback option
  112. lFeedBack
  113. ;Gosub to FDBK.XBS
  114. JFdbk.XBS
  115. ;On return, restart this menu
  116. jMain.XBS
  117.  
  118. ;Here's the configuration option
  119. lConfigure
  120. ;Gosub to Configur.XBS
  121. JConfigur.XBS
  122. ;On return, restart this menu
  123. jMain.XBS
  124.  
  125. ;That's it for the guided tour; look at the other menus in the MENU
  126. ;archive for more information.
  127.