home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / SZY110-2.ZIP / SETUP.ZIP / NEWUSER.Q-A < prev    next >
Text File  |  1995-03-28  |  11KB  |  554 lines
  1. ; ***************************************
  2. ; **                                   **
  3. ; **       NewUser Questionnaire       **
  4. ; **                                   **
  5. ; **  Copyright (C) Peter Davies 1995  **
  6. ; **                                   **
  7. ; ** Maybe be freely modified and used **
  8. ; **    for use with Ezycom ONLY!      **
  9. ; **                                   **
  10. ; **  Thanks to Robert Wilson for the  **
  11. ; **    basis of this questionnaire    **
  12. ; **                                   **
  13. ; ***************************************
  14.  
  15. PostInfo
  16. ClearScreen
  17.  
  18. capitalize FIRSTLETTER
  19. setvars "*G" 1
  20.  
  21. if 1 = 0
  22.   goto ASC
  23. endif
  24.  
  25. :ANS
  26.  
  27. gosub displaynewuser
  28.  
  29. gosub getage
  30. gosub getstreet
  31. gosub getpostcode
  32. gosub getcomputer
  33. gosub getmodem
  34. gosub getinterests
  35. gosub gethearabout
  36.  
  37. changecolour 15 0
  38. gotoxy 2 21
  39. Display "                                                           "
  40. gotoxy 2 21
  41. Display "  Do you run a BBS? [y/N]"
  42. Getchoice YN 40
  43.  
  44. If 40 <> "N"
  45.    gosub displaybbs
  46.  
  47.    gosub getbbsname
  48.    if 14 = ""
  49.       gosub getbbsphone
  50.    endif
  51.    gosub getbbshours
  52.    gosub getnetaka
  53.    gosub getbbstheme
  54. endif
  55.  
  56. goto enterprompt
  57.  
  58. :Loop
  59.  
  60. if 2 = 1
  61.    gosub getfullname
  62. endif
  63.  
  64. if 2 = 2
  65.    gosub getage
  66. endif
  67.  
  68. if 2 = 3
  69.    gosub getstreet
  70. endif
  71.  
  72. if 2 = 4
  73.    gosub getsuburb
  74. endif
  75.  
  76. if 2 = 5
  77.    gosub getpostcode
  78. endif
  79.  
  80. if 2 = 6
  81.    gosub getvoice
  82. endif
  83.  
  84. if 2 = 7
  85.    gosub getcomputer
  86. endif
  87.  
  88. if 2 = 8
  89.    gosub getmodem
  90. endif
  91.  
  92. if 2 = 9
  93.    gosub getinterests
  94. endif
  95.  
  96. if 2 = 10
  97.    gosub gethearabout
  98. endif
  99.  
  100. If 40 <> "N"
  101.  
  102.    if 2 = 11
  103.       gosub getbbsname
  104.    endif
  105.  
  106.    if 2 = 12
  107.       gosub getbbsphone
  108.    endif
  109.  
  110.    if 2 = 13
  111.       gosub getbbshours
  112.    endif
  113.  
  114.    if 2 = 14
  115.       gosub getnetaka
  116.    endif
  117.  
  118.    if 2 = 15
  119.       gosub getbbstheme
  120.    endif
  121.  
  122. endif
  123.  
  124. :enterprompt
  125.  
  126. changecolour 11 0
  127. gotoxy 2 21
  128. display "                                                            "
  129. gotoxy 2 21
  130. display "Enter number to change, or [Enter] to continue -->"
  131. Ask 2 2
  132.  
  133. if 2 <> ""
  134.   goto Loop
  135. else
  136.    gotoxy 2 21
  137.    display "                                                            "
  138.    gotoxy 2 21
  139.    display "Are Answers Correct? <Y/N>"
  140.    GetChoice YN 2
  141.    gotoxy 2 23
  142.    if 2 = "Y"
  143.       goto End
  144.    else
  145.       if 2 = "N"
  146.          goto Loop
  147.       endif
  148.    endif
  149. endif
  150.  
  151. :ASC
  152. display "|What is your name please?|"
  153. Ask 60 3
  154. Display "|What is your age please?|"
  155. Ask 60 4
  156. Display "|What is your Street Number & Name Please?|"
  157. Ask 60 5
  158. Display "|What is your Suburb & State please?|"
  159. Ask 60 6
  160. Display "|What is your Postcode please?|"
  161. Ask 60 7
  162. Display "|What is your VOICE contact number please?|"
  163. Ask 60 8
  164. Display "|What is your computer type please?|"
  165. Ask 60 9
  166. Display "|What is your modem type & max baud rate please?|"
  167. Ask 60 10
  168. Display "|What are your other interests (Besides BBSing)?|"
  169. Ask 60 11
  170. Display "|Where did you hear about this BBS?|"
  171. Ask 60 12
  172. Display "|Do you run a BBS? [Y/N]"
  173. Getchoice YN 40
  174. If 40 <> "N"
  175.    Display "||What is your BBS name please?|"
  176.    Ask 60 13
  177.    Display "|What is the BBS phone number please?|"
  178.    Ask 60 14
  179.    Display "|What is it's online hours,Please?|"
  180.    Ask 60 15
  181.    Display "|Please enter any Net Addresses?|"
  182.    Ask 60 16
  183.    Display "|What is the main 'THEME' of your BBS?|"
  184.    Ask 60 17
  185. endif
  186.  
  187. :End
  188.  
  189. changecolour 14 0
  190. Display "||Saving responses..."
  191. OutputAnswer "Name           : " 3
  192. OutputAnswer "Age            : " 4
  193. setvars " f" 2
  194. OutputAnswer "* AGE should BE: " 2
  195. OutputAnswer "Street         : " 5
  196. OutputAnswer "Suburb,State   : " 6
  197. OutputAnswer "Postcode       : " 7
  198. OutputAnswer "Phone #        : " 8
  199. OutputAnswer "Computer       : " 9
  200. OutputAnswer "Modem & Baud   : " 10
  201. OutputAnswer "Interests      : " 11
  202. OutputAnswer "Heard BBS      : " 12
  203. OutputAnswer ""
  204.  
  205. If 13 <> ""
  206.  
  207.    OutputAnswer "BBS Info"
  208.    OutputAnswer "BBS name       : " 13
  209.    OutputAnswer "Phone #        : " 14
  210.    OutputAnswer "Online hours   : " 15
  211.    OutputAnswer "Net address    : " 16
  212.    OutputAnswer "Features       : " 17
  213.    OutputAnswer ""
  214.  
  215. endif
  216.  
  217. :Quit
  218. Quit
  219.  
  220. :getfullname
  221.    changecolour 11 0
  222.    gotoxy 2 21
  223.    display "Please enter your FULL name                                  "
  224.    changecolor 9 0
  225.    :q3
  226.    gotoxy 20 3
  227.    ask 60 3
  228.    if 3 = ""
  229.       goto q3
  230.    endif
  231. return getfullname
  232.  
  233. :getage
  234.    changecolour 11 0
  235.    gotoxy 2 21
  236.    display "Please state your AGE                                        "
  237.    changecolor 9 0
  238.    :q4
  239.    gotoxy 20 4
  240.    ask 60 4
  241.    if 4 = ""
  242.       goto q4
  243.    endif
  244. return getage
  245.  
  246. :getstreet
  247.    changecolour 11 0
  248.    gotoxy 2 21
  249.    display "Please enter your Street NAME & NUMBER ONLY                 "
  250.    changecolor 9 0
  251.    :q5
  252.    gotoxy 20 5
  253.    ask 60 5
  254.    if 5 = ""
  255.       goto q5
  256.    endif
  257. return getstreet
  258.  
  259. :getsuburb
  260.    changecolour 11 0
  261.    gotoxy 2 21
  262.    display "Please enter your SUBURB & STATE ONLY                       "
  263.    changecolor 9 0
  264.    :q6
  265.    gotoxy 20 6
  266.    ask 60 6
  267.    if 6 = ""
  268.       goto q6
  269.    endif
  270. return getsuburb
  271.  
  272. :getpostcode
  273.    changecolour 11 0
  274.    gotoxy 2 21
  275.    display "Please enter your POSTCODE ONLY                             "
  276.    changecolor 9 0
  277.    :q7
  278.    gotoxy 20 7
  279.    ask 60 7
  280.    if 7 = ""
  281.       goto q7
  282.    endif
  283. return getpostcode
  284.  
  285. :getvoice
  286.    changecolour 11 0
  287.    gotoxy 2 21
  288.    display "Please enter your VOICE contact number                      "
  289.    changecolor 9 0
  290.    :q8
  291.    gotoxy 20 8
  292.    ask 60 8
  293.    if 8 = ""
  294.       goto q8
  295.    endif
  296. return getvoice
  297.  
  298. :getcomputer
  299.    changecolour 11 0
  300.    gotoxy 2 21
  301.    display "Please enter your computer Type & Configuration             "
  302.    changecolor 9 0
  303.    :q9
  304.    gotoxy 20 9
  305.    ask 60 9
  306.    if 9 = ""
  307.       goto q9
  308.    endif
  309. return getcomputer
  310.  
  311. :getmodem
  312.    changecolour 11 0
  313.    gotoxy 2 21
  314.    display "Please enter your Modem type & Baud rate                    "
  315.    changecolor 9 0
  316.    :q10
  317.    gotoxy 20 10
  318.    ask 60 10
  319.    if 10 = ""
  320.       goto q10
  321.    endif
  322. return getmodem
  323.  
  324. :getinterests
  325.    changecolour 11 0
  326.    gotoxy 2 21
  327.    display "Please enter any other interests you have (Besides BBSing)? "
  328.    changecolor 9 0
  329.    :q11
  330.    gotoxy 20 11
  331.    ask 60 11
  332.    if 11 = ""
  333.       goto q11
  334.    endif
  335. return getinterests
  336.  
  337. :gethearabout
  338.    Changecolour 11 0
  339.    gotoxy 2 21
  340.    display "Where did you hear about this Ezycom BBS?                   "
  341.    Changecolor 9 0
  342.    :q12
  343.    gotoxy 20 12
  344.    ask 60 12
  345.    if 12 = ""
  346.       goto q12
  347.    endif
  348. return gethearabout
  349.  
  350. :getbbsname
  351.    changecolour 11 0
  352.    gotoxy 2 21
  353.    display "Please enter your BBS name                                "
  354.    changecolor 9 0
  355.    gotoxy 20 15
  356.    ask 60 13
  357. return getbbsname
  358.  
  359. :getbbsphone
  360.    changecolour 11 0
  361.    gotoxy 2 21
  362.    display "Please enter the BBS phone number                           "
  363.    changecolor 9 0
  364.    gotoxy 20 16
  365.    ask 60 14
  366. return bbsphone
  367.  
  368. :getnetaka
  369.    changecolour 11 0
  370.    gotoxy 2 21
  371.    display "Please enter any Network Addresses                          "
  372.    changecolor 9 0
  373.    gotoxy 20 18
  374.    ask 60 16
  375. return getnetaka
  376.  
  377. :getbbshours
  378.    changecolour 11 0
  379.    gotoxy 2 21
  380.    display "Please enter BBS online hours                               "
  381.    changecolor 9 0
  382.    gotoxy 20 17
  383.    ask 60 15
  384. return getbbshours
  385.  
  386. :getbbstheme
  387.    changecolour 11 0
  388.    gotoxy 2 21
  389.    display "Please enter the main 'THEME' of your BBS                 "
  390.    changecolor 9 0
  391.    gotoxy 20 19
  392.    ask 60 17
  393. return bbstheme
  394.  
  395. :displaynewuser
  396.    ClearScreen
  397.    changecolour 14 0
  398.    display "┌────────────────────────┤"
  399.    changecolour 10 0
  400.    setvars "O" 2
  401.    display "* New User Questionaire *"
  402.    changecolour 14 0
  403.    display "├──────────────────────────┐|"
  404.    display "└─────────────────────────────────────────────────────────────────────────────┘|"
  405.    changecolour 9 0
  406.    display " ("
  407.    changecolour 11 0
  408.    display "1"
  409.    changecolour 9 0
  410.    display ")"
  411.    changecolour 15 0
  412.    display "  Name        :"
  413.    setvars "A" 3
  414.    changecolour 9 0
  415.    displayasw 3
  416.    changecolour 9 0
  417.    display " ("
  418.    changecolour 11 0
  419.    display "2"
  420.    changecolour 9 0
  421.    display ")"
  422.    changecolour 15 0
  423.    display "  Age         :|"
  424.    changecolour 9 0
  425.    display " ("
  426.    changecolour 11 0
  427.    display "3"
  428.    changecolour 9 0
  429.    display ")"
  430.    changecolour 15 0
  431.    display "  No. & Street:|"
  432.    changecolour 9 0
  433.    display " ("
  434.    changecolour 11 0
  435.    display "4"
  436.    changecolour 9 0
  437.    display ")"
  438.    changecolour 15 0
  439.    display "  Suburb,State:"
  440.    setvars "B" 6
  441.    changecolour 9 0
  442.    displayasw 6
  443.    changecolour 9 0
  444.    display " ("
  445.    changecolour 11 0
  446.    display "5"
  447.    changecolour 9 0
  448.    display ")"
  449.    changecolour 15 0
  450.    display "  Postcode    :|"
  451.    changecolour 9 0
  452.    display " ("
  453.    changecolour 11 0
  454.    display "6"
  455.    changecolour 9 0
  456.    display ")"
  457.    changecolour 15 0
  458.    display "  Phone Number:"
  459.    setvars "E" 8
  460.    changecolour 9 0
  461.    displayasw 8
  462.    changecolour 9 0
  463.    display " ("
  464.    changecolour 11 0
  465.    display "7"
  466.    changecolour 9 0
  467.    display ")"
  468.    changecolour 15 0
  469.    display "  Computer    :|"
  470.    changecolour 9 0
  471.    display " ("
  472.    changecolour 11 0
  473.    display "8"
  474.    changecolour 9 0
  475.    display ")"
  476.    changecolour 15 0
  477.    display "  Modem / Baud:|"
  478.    changecolour 9 0
  479.    display " ("
  480.    changecolour 11 0
  481.    display "9"
  482.    changecolour 9 0
  483.    display ")"
  484.    changecolour 15 0
  485.    display "  Interests?  :|"
  486.    changecolour 9 0
  487.    display " ("
  488.    changecolour 11 0
  489.    display "10"
  490.    changecolour 9 0
  491.    display ")"
  492.    changecolour 15 0
  493.    display " Heard of BBS:"
  494.    gotoxy 1 20
  495.    changecolour 14 0
  496.    display "┌─────────────────────────────────────────────────────────────────────────────┐|"
  497.    display "│                                                                             │|"
  498.    display "└─────────────────────────────────────────────────────────────────────────────┘"
  499. return displaynewuser
  500.  
  501. :displaybbs
  502.    gotoxy 1 13
  503.    changecolour 14 0
  504.    display "┌─────────────────────────────────────────────────────────────────────────────┐|"
  505.    display "└─────────────────────┤"
  506.    changecolour 10 0
  507.    display "* Fellow Sysop Information *"
  508.    changecolour 14 0
  509.    display "├──────────────────────────┘|"
  510.    changecolour 9 0
  511.    display " ("
  512.    changecolour 11 0
  513.    display "11"
  514.    changecolour 9 0
  515.    display ")"
  516.    changecolour 15 0
  517.    display " BBS Name    :|"
  518.    changecolour 9 0
  519.    display " ("
  520.    changecolour 11 0
  521.    display "12"
  522.    changecolour 9 0
  523.    display ")"
  524.    changecolour 15 0
  525.    display " Phone Number:"
  526.    setvars "D" 14
  527.    changecolour 9 0
  528.    displayasw 14
  529.    changecolour 9 0
  530.    display " ("
  531.    changecolour 11 0
  532.    display "13"
  533.    changecolour 9 0
  534.    display ")"
  535.    changecolour 15 0
  536.    display " Online hours:|"
  537.    changecolour 9 0
  538.    display " ("
  539.    changecolour 11 0
  540.    display "14"
  541.    changecolour 9 0
  542.    display ")"
  543.    changecolour 15 0
  544.    display " Net Address :|"
  545.    changecolour 9 0
  546.    display " ("
  547.    changecolour 11 0
  548.    display "15"
  549.    changecolour 9 0
  550.    display ")"
  551.    changecolour 15 0
  552.    display " Main Theme  :"
  553. return displaybbs
  554.