home *** CD-ROM | disk | FTP | other *** search
/ Lion Share / lionsharecd.iso / rasbqbbs / qatest10.zip / ACCESS.Q-A < prev    next >
Text File  |  1991-10-12  |  4KB  |  176 lines
  1. PostInfo
  2. ClearScreen
  3. ChangeColor 15 0
  4. Display "                               The RodentWare BBS|"
  5. Display "                             New User Questionnaire|"
  6. Display "|"
  7. ChangeColor 11 0
  8. Display "                     ["
  9. ChangeColor 10 0
  10. Display "------------------------------"
  11. ChangeColor 11 0
  12. Display "]|"
  13. ChangeColor 15 0
  14. Display "Enter your full name: "
  15. Ask 30 1
  16. Display "|"
  17. ChangeColor 11 0
  18. Display "                                     ["
  19. ChangeColor 10 0
  20. Display "------------------------------"
  21. ChangeColor 11 0
  22. Display "]|"
  23. ChangeColor 15 0
  24. Display "Enter your mailing address (4 lines): "
  25. Ask 30 2
  26. Display "|"
  27. ChangeColor 11 0
  28. Display "                                     ["
  29. ChangeColor 10 0
  30. Display "------------------------------"
  31. ChangeColor 11 0
  32. Display "]|"
  33. ChangeColor 15 0
  34. Display "Enter your mailing address (line 2):  "
  35. Ask 30 3
  36. Display "|"
  37. ChangeColor 11 0
  38. Display "                                     ["
  39. ChangeColor 10 0
  40. Display "------------------------------"
  41. ChangeColor 11 0
  42. Display "]|"
  43. ChangeColor 15 0
  44. Display "Enter your mailing address (line 3):  "
  45. Ask 30 4
  46. Display "|"
  47. ChangeColor 11 0
  48. Display "                                     ["
  49. ChangeColor 10 0
  50. Display "------------------------------"
  51. ChangeColor 11 0
  52. Display "]|"
  53. ChangeColor 15 0
  54. Display "Enter your mailing address (line 4):  "
  55. Ask 30 5
  56. Display "|"
  57. ChangeColor 11 0
  58. Display "               ["
  59. ChangeColor 10 0
  60. Display "--"
  61. ChangeColor 11 0
  62. Display "]|"
  63. ChangeColor 15 0
  64. Display "Enter your age: "
  65. Ask 2 6
  66. Display "|"
  67. ChangeColor 11 0
  68. Display "                                ["
  69. ChangeColor 10 0
  70. Display "--------"
  71. ChangeColor 11 0
  72. Display "]|"
  73. ChangeColor 15 0
  74. Display "Enter your birthdate (mm-dd-yy): "
  75. Ask 8 7
  76. Display "|"
  77. ChangeColor 11 0
  78. Display "                        ["
  79. ChangeColor 10 0
  80. Display "-"
  81. ChangeColor 11 0
  82. Display "]|"
  83. ChangeColor 15 0
  84. Display "Enter your gender (M/F): "
  85. Ask 1 8
  86. Display "|"
  87. ChangeColor 11 0
  88. Display "                                             ["
  89. ChangeColor 10 0
  90. Display "-------------"
  91. ChangeColor 11 0
  92. Display "]|"
  93. ChangeColor 15 0
  94. Display "Enter your VOICE phone number (xxx-xxx-xxxx): "
  95. Ask 13 9
  96. Display "|"
  97. ChangeColor 11 0
  98. Display "                                             ["
  99. ChangeColor 10 0
  100. Display "-------------"
  101. ChangeColor 11 0
  102. Display "]|"
  103. ChangeColor 15 0
  104. Display "Enter your MODEM phone number (xxx-xxx-xxxx): "
  105. Ask 13 10
  106. Display "|"
  107. ChangeColor 11 0
  108. Display "                                             ["
  109. ChangeColor 10 0
  110. Display "------------------------------"
  111. ChangeColor 11 0
  112. Display "]|"
  113. ChangeColor 15 0
  114. Display "If SysOp, enter your BBS name ([Enter]=none): "
  115. Ask 30 11
  116. Display "|"
  117. ChangeColor 11 0
  118. Display "                                          ["
  119. ChangeColor 10 0
  120. Display "---------------"
  121. ChangeColor 11 0
  122. Display "]|"
  123. ChangeColor 15 0
  124. Display "If FIDONET node, enter your Zone:Net/Node: "
  125. Ask 15 12
  126. Display "|"
  127. ClearScreen
  128. Display "               Name: "
  129. ListAnswer 1
  130. Display "          Address 1: "
  131. ListAnswer 2
  132. Display "          Address 2: "
  133. ListAnswer 3
  134. Display "          Address 3: "
  135. ListAnswer 4
  136. Display "          Address 4: "
  137. ListAnswer 5
  138. Display "                Age: "
  139. ListAnswer 6
  140. Display "          Birthdate: "
  141. ListAnswer 7
  142. Display "             Gender: "
  143. ListAnswer 8
  144. Display "        Voice Phone: "
  145. ListAnswer 9
  146. Display "        Modem Phone: "
  147. ListAnswer 10
  148. Display "           BBS name: "
  149. ListAnswer 11
  150. Display "            Fidonet: "
  151. ListAnswer 12
  152. ChangeColor 15 0
  153. Display "|Save these answers (Y/N)? "
  154. GetChoice YN 20
  155. If 20 = "Y"
  156. OutputAnswer "               Name: " 1
  157. OutputAnswer "          Address 1: " 2
  158. OutputAnswer "          Address 2: " 3
  159. OutputAnswer "          Address 3: " 4
  160. OutputAnswer "          Address 4: " 5
  161. OutputAnswer "                Age: " 6
  162. OutputAnswer "          Birthdate: " 7
  163. OutputAnswer "             Gender: " 8
  164. OutputAnswer "        Voice Phone: " 9
  165. OutputAnswer "        Modem Phone: " 10
  166. OutputAnswer "         BBS name &: " 11
  167. OutputAnswer "          Fidonet &: " 12
  168. SetSecurity 5
  169. SetFlag A1 OFF
  170. SetFlag A3 ON
  171. EndIf
  172. Quit
  173. ;
  174. ; Created using QuestGen v2.0, Copyright (C) 1990 RodentWare
  175. ;
  176.