home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RA / QUES_221.ZIP / SAMPLES.ZIP / BBSLIST.ZIP / BBSLIJST.Q-A < prev   
Encoding:
Text File  |  1990-11-25  |  6.1 KB  |  310 lines
  1.  
  2. :Menu
  3. clearscreen
  4. display "           ╔═══════════════════════════════════╗ |"
  5. display "           ║   INTERFACE Other BBS's List      ║ |"
  6. display "           ╠═══════════════════════════════════╣ |"
  7. display "           ║                                   ║ |"  
  8. display "           ║     [A]dd to the BBS list         ║ |"
  9. display "           ║     [D]ownload the List           ║ |"
  10. display "           ║     [H]elp with Abrev/Codes       ║ |"
  11. display "           ║     [L]ist Other BBS's            ║ |"
  12. display "           ║     [Q]uit                        ║ |"
  13. display "           ║                                   ║ |"
  14. display "           ╚═══════════════════════════════════╝ |"
  15. getchoice ADHLQ 31
  16. if 31 = "A"
  17. gotolabel Add
  18. endif
  19. if 31 = "D"
  20. gotolabel sendit
  21. endif
  22. if 31 = "H"
  23. gotolabel Help
  24. endif
  25. if 31 = "L"
  26. gotolabel List
  27. endif
  28. if 31 = "Q"
  29. display "|"
  30. display "|"
  31. quit
  32. endif
  33. quit
  34. :
  35.  
  36. :Add
  37. clearscreen
  38. changecolor 14
  39. display "What is the BBS Name (20 chars max)....? "
  40. changecolor 15
  41. ask 20 1
  42. changecolor 14
  43. display "BBS Phone Number ( ###-###-#### )..... ? "
  44. changecolor 15
  45. ask 12 2
  46. changecolor 14
  47. display "State or Province ( 2 chars max )..... ? "
  48. changecolor 15
  49. ask 2 3
  50. changecolor 14
  51. display "What is the Maximum Baud Rate ........ ? |"
  52. changecolor 7
  53. display "120[0]   [2]400   [4]800  [9]600  [1]9.2   [3]8.4 :"  
  54. changecolor 15
  55. getchoice 012349 4
  56. display "|"
  57. changecolor 14
  58. display "What are the Hours of Availability ... ? |"
  59. changecolor 7
  60. display "[A]ll/24hrs    [D]aytime only   [N]ights Only |"
  61. display "[S]trange Hrs  [V]ariable hrs   [W]eekends 24hrs "  
  62. changecolor 15
  63. getchoice ADNSVW 5
  64. changecolor 14
  65. display "|"
  66. display "What is the Access Status for the BBS. ? |"
  67. changecolor 7
  68. display "[C]ontrolled   [F]ee Charged   [O]pen   [P]rivate "
  69. changecolor 15
  70. getchoice CFOP 6
  71. changecolor 14
  72. display "|"
  73. display "What is the Sysop's Name (18 chars).. ? "
  74. changecolor 15
  75. ask 18 7
  76. changecolor 14
  77. display "BBS Software used (8 chars max)...... ? "
  78. changecolor 15
  79. ask 8 8
  80. changecolor 14
  81. display "The Month and Year you personally called |"
  82. display "  when this system was Online (mm/yy)..? "
  83. changecolor 15
  84. ask 5 9
  85. gotolabel showinfo
  86. :
  87.  
  88. :showinfo
  89. clearscreen
  90. Display "HERE'S THE INFORMATION YOU'VE SUPPLIED ! |"
  91. Display "|"
  92. display "1. BBS Name ..........: "
  93. listanswer 1
  94. display "2. BBS Phone Number ..: "
  95. listanswer 2
  96. display "3. State/Province ....: "
  97. listanswer 3
  98. display "4. Maximum Baud Rate .: "
  99. listanswer 4
  100. display "5. BBS Hours .........: "
  101. listanswer 5
  102. display "6. System Access .....: "
  103. listanswer 6
  104. display "7. Sysop's Name ......: "
  105. listanswer 7
  106. display "8. BBS Software ......: "
  107. listanswer 8
  108. display "9. Date Checked Online: "
  109. listanswer 9
  110. display "|"
  111. display "Select: [A]bort   [E]dit   [S]ave Info |"
  112. getchoice AES 20
  113. if 20 = "A"
  114. gotolabel menu
  115. endif
  116. if 20 = "E"
  117. gotolabel edit
  118. endif
  119. if 20 = "s"
  120. gotolabel saveit
  121. endit
  122. gotolabel menu
  123. :
  124.  
  125. :edit
  126. Display "|"
  127. changecolor 15
  128. Display "Which entry do you want to change ? (1-9) ? "
  129. changecolor 14
  130. ask 2 30
  131. if 30 = "1"
  132. gotolabel k1
  133. endif
  134. if 30 = "2"
  135. gotolabel k2
  136. endif
  137. if 30 = "3"
  138. gotolabel k3
  139. endif
  140. if 30 = "4"
  141. gotolabel k4
  142. endif
  143. if 30 = "5"
  144. gotolabel k5
  145. endif
  146. if 30 = "6"
  147. gotolabel k6
  148. endif
  149. if 30 = "7"
  150. gotolabel k7
  151. endif
  152. if 30 = "8"
  153. gotolabel k8
  154. endif
  155. if 30 = "9"
  156. gotolabel k9
  157. endif
  158.  
  159. display "|"
  160. changecolor 15
  161. display "Incorrect choice, please try again|"
  162. display "|"
  163. changecolor 7
  164. display "Press <ENTER>"
  165. ask 1 39
  166. gotolabel showinfo
  167. :
  168.  
  169. :k1
  170. clearscreen
  171. changecolor 14
  172. display "What is the BBS Name (20 chars max)....? "
  173. changecolor 15
  174. ask 20 1
  175. gotolabel showinfo
  176. :
  177.  
  178. :k2
  179. clearscreen
  180. changecolor 14
  181. display "BBS Phone Number ( ###-###-#### )..... ? "
  182. changecolor 15
  183. ask 12 2
  184. gotolabel showinfo
  185. :
  186.  
  187. :k3
  188. clearscreen
  189. changecolor 14
  190. display "State or Province ( 2 chars max )..... ? "
  191. changecolor 15
  192. ask 2 3
  193. gotolabel showinfo
  194. :
  195.  
  196.  
  197. :k4
  198. clearscreen
  199. changecolor 14
  200. display "What is the Maximum Baud Rate ........ ? |"
  201. changecolor 7
  202. display "120[0]   [2]400   [4]800  [9]600  [1]9.2   [3]8.4 |"  
  203. changecolor 15
  204. getchoice 012349 4
  205. gotolabel showinfo
  206. :
  207.  
  208. :k5
  209. clearscreen
  210. changecolor 14
  211. display "What are the Hours of Availability ... ? |"
  212. changecolor 7
  213. display "[A]ll/24hrs    [D]aytime only   [N]ights Only |"
  214. display "[S]trange Hrs  [V]ariable hrs   [W]eekends 24hrs "  
  215. changecolor 15
  216. getchoice ADNSVW 5
  217. gotolabel showinfo
  218. :
  219.  
  220. :k6
  221. clearscreen
  222. changecolor 14
  223. display "What is the Access Status for the BBS. ? |"
  224. changecolor 7
  225. display "[C]ontrolled   [F]ee Charged   [O]pen   [P]rivate |"
  226. changecolor 15
  227. getchoice CFOP 6
  228. gotolabel showinfo
  229. :
  230.  
  231. :k7
  232. clearscreen
  233. changecolor 14
  234. display "What is the Sysop's Name (18 chars).. ? "
  235. changecolor 15
  236. ask 18 7
  237. gotolabel showinfo
  238. :
  239.  
  240. :k8
  241. clearscreen
  242. changecolor 14
  243. display "BBS Software used (8 chars max)...... ? "
  244. changecolor 15
  245. ask 8 8
  246. gotolabel showinfo
  247. :
  248.  
  249. :k9
  250. clearscreen
  251. changecolor 14
  252. display "The Month and Year you personally called |"
  253. display "  when this system was Online (mm/yy)..? "
  254. changecolor 15
  255. ask 5 9
  256. gotolabel showinfo
  257. :
  258.  
  259.  
  260. :saveit
  261. output "#1L20 #2L12 #3L2 #4L1 #5L1 #6L1 #7L18 #8L8 #9L5 " f:\qbbs\misFILES\BBS.ASC
  262. gotolabel menu
  263. :
  264.  
  265. :List
  266. clearscreen
  267. displayfile BBSHDR
  268. displayfile BBS
  269. display "                             <<< PRESS RETURN >>>|"
  270. ask 0 39
  271. gotolabel menu
  272. :
  273.  
  274. :help
  275. clearsceen
  276. Displayfile BBSHLP
  277. display "|"
  278. display "                             <<< PRESS RETURN >>>|"
  279. ask 0 39
  280. gotolabel menu
  281. :
  282.  
  283. :sendit
  284. display "|"
  285. display "|"
  286. display "Select which Protocol to Download the BBS List with: |"
  287. display "[A]bort  [X]modem  [Y]modem  [Z]modem "
  288. getchoice axyz 15
  289. if 15 = "x"
  290. display "|"
  291. display "|"
  292. Display "Sending BBSLIST.ASC ... by xmodem|"
  293. run dsz.com sx f:\qbbs\misFILES\BBS.ASC
  294. endif
  295. if 15 = "y"
  296. display "|"
  297. display "|"
  298. Display "Sending BBSLIST.ASC ... by ymodem|"
  299. run dsz.com sb f:\qbbs\misFILES\BBS.ASC
  300. endif
  301. if 15 = "z"
  302. display "|"
  303. display "|"
  304. Display "Sending BBSLIST.ASC ... by zmodem|"
  305. run dsz.com sz -r f:\qbbs\misfiles\BBS.ASC 
  306. endif
  307.  
  308. gotolabel menu
  309. :
  310.