home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / LISTV10.ZIP / LISTER.20X < prev    next >
Encoding:
Text File  |  1996-04-13  |  5.0 KB  |  196 lines
  1. ; RA-Lister v1.0 - RA 2.0x version
  2. ; (C) 1996 by Jason Raphael (1:284/22)
  3.  
  4. Exec *c /c lister.bat add
  5. :START
  6. Assign 29 
  7. Assign 30
  8. Display "                                 RA-Lister v1.0                                 "
  9. Display "||                              V) View BBS listing"
  10. Display "|                              A) Add BBS to listing"
  11. Display "|                              Q) Quit RA-Lister"
  12. Display "||Type your selection now (V,A,Q)-> "
  13. GetChoice VAQ 1
  14.  
  15. If 1 = "V"
  16. ClearScreen
  17. DisplayFile LISTER
  18. Goto START
  19. EndIf
  20.  
  21. If 1 = "A"
  22. Goto ADDBBS
  23. EndIf
  24.  
  25. If 1 = "Q"
  26. Goto END
  27. EndIf
  28.  
  29. :ADDBBS
  30. Display "                                 RA-Lister v1.0                                 "
  31. Display "|What is the name of the BBS?|"
  32. Ask 30 20
  33. If 20 = ""
  34. Display "|Abort this entry? <y/n> "
  35. GetChoice YN 15
  36. If 15 = "Y"
  37. Goto ABORTED
  38. EndIf
  39. If 15 = "N"
  40. Assign 15 .
  41. Goto ADDBBS
  42. EndIf
  43. :PHONENUM
  44. Display "                                 RA-Lister v1.0                                 "
  45. Display "|What is the phone number of the BBS? (xxx-xxx-xxxx)|"
  46. Ask 12 21                              
  47. If 21 = ""
  48. Display "|Abort this entry? <y/n> "
  49. GetChoice YN 15
  50. If 15 = "Y"
  51. Goto ABORTED
  52. EndIf
  53. If 15 = "N"
  54. Assign 15 .
  55. Goto PHONENUM
  56. EndIf
  57. :BAUD
  58. Display "                                 RA-Lister v1.0                                 "
  59. Display "|What is the maximum baud rate of the BBS?|"
  60. Ask 5 22
  61. If 22 = ""
  62. Display "|Abort this entry? <y/n> "
  63. GetChoice YN 15
  64. If 15 = "Y"
  65. Goto ABORTED
  66. EndIf
  67. If 15 = "N"
  68. Assign 15 .
  69. Goto BAUD
  70. EndIf
  71. Display "                                 RA-Lister v1.0                                 "
  72. Display "|Answer Y or N to the following questions."
  73. Display "||Does the BBS have..."
  74. Display "|Online games? <y/n> "
  75. GetChoice YN 23
  76. If 23 = "Y"
  77. Assign 23 Online games
  78. EndIf
  79. If 23 = "N"
  80. Assign 23 [No online games]
  81. EndIf
  82. Display "|Files available to download? <y/n> "
  83. GetChoice YN 24
  84. If 24 = "Y"
  85. Assign 24 Files 
  86. EndIf
  87. If 24 = "N"
  88. Assign 24 [No files]
  89. EndIf
  90. Display "|Multinode chat? <y/n> "
  91. GetChoice YN 25
  92. If 25 = "Y"
  93. Assign 25 Multinode chat 
  94. EndIf
  95. If 25 = "N"
  96. Assign 25 [No multinode chat]
  97. EndIf
  98. Display "|A message base? <y/n> "
  99. GetChoice YN 26
  100. If 26 = "Y"
  101. Assign 26 Message base 
  102. EndIf
  103. If 26 = "N"
  104. Assign 26 [No message base]
  105. EndIf
  106. Display "|Any message networks, such as FidoNet? <y/n> "
  107. GetChoice YN 27
  108. If 27 = "Y"
  109. Assign 27 Message network(s) 
  110. EndIf
  111. If 27 = "N"
  112. Assign 27 [No message networks]
  113. EndIf
  114. Display "                                 RA-Lister v1.0                                 "
  115. Display "|Please enter any additional comments about the BBS now.  This might include any" 
  116. Display "|special features or unique items online.  You have three lines, no word wrap."
  117. Display "|You may omit this section if you wish by pressing ENTER on the first blank line.||" 
  118. Ask 55 28
  119. If 28 = ""
  120. Assign 28 [No comment entered]
  121. Goto VERIFY
  122. EndIf
  123. Ask 55 29
  124. Ask 55 30
  125. :VERIFY
  126. ClearScreen
  127. Display "                                 RA-Lister v1.0                                 "
  128. Display "|Information entered:|"
  129. Display "BBS name: " 
  130. ListAnswer 20
  131. Display "Phone number: " 
  132. ListAnswer 21
  133. Display "Maximum baud rate: " 
  134. ListAnswer 22
  135. Display "Features include: " 
  136. ListAnswer 23
  137. Display "                  "
  138. ListAnswer 24
  139. Display "                  "
  140. ListAnswer 25
  141. Display "                  "
  142. ListAnswer 26
  143. Display "                  "
  144. ListAnswer 27
  145. Display "Comments: " 
  146. ListAnswer 28
  147. ListAnswer 29
  148. ListAnswer 30
  149. Display "|Is this correct? <y/n>"
  150. GetChoice YN 31
  151. If 31 = "Y"
  152. Goto CORRECT
  153. EndIf
  154. If 31 = "N"
  155. Display "|Edit, abort, or continue? <E,A,C> "
  156. GetChoice EAC 15
  157. If 15 = "E"
  158. Assign 15 .
  159. Goto ADDBBS
  160. EndIf
  161. If 15 = "A"
  162. Goto ABORTED
  163. EndIf
  164. If 15 = "C"
  165. Assign 15 .
  166. Goto VERIFY
  167. EndIf
  168.  
  169. :CORRECT
  170. OutputAnswer "BBS name: " 20
  171. OutputAnswer "Phone number: " 21
  172. OutputAnswer "Maximum baud rate: " 22
  173. OutputAnswer "Features include: " 23
  174. OutputAnswer "                  " 24
  175. OutputAnswer "                  " 25
  176. OutputAnswer "                  " 26
  177. OutputAnswer "                  " 27
  178. OutputAnswer "Comments: " 28
  179. OutputAnswer "          " 29
  180. OutputAnswer "          " 30
  181. Display "|Entry has been added, and will be visible after exiting and re-entering|"
  182. Display "RA-Lister."
  183. Display "||Press ENTER to continue.."
  184. WaitEnter
  185. Goto START
  186.  
  187. :ABORTED
  188. Assign 15 .
  189. Display "|Aborted."
  190. Display "||Press ENTER to continue.."
  191. WaitEnter
  192. Goto START
  193.  
  194. :END
  195. Quit
  196.