home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / PB12A_1.ZIP / QUES.LZH / QS
Text File  |  1992-08-17  |  2KB  |  50 lines
  1. QUEST1QUEßSay (   Visiting Sysop's Questionnaire at %BBS% )
  2. Say (---------------------------------------------------------------------)
  3. Say ()
  4.  
  5. AppendTo (ques\quest1.ans,  )
  6. AppendTo (ques\quest1.ans,/:NAME/ answering questionaire at %TIME% on %DATE%)
  7. AppendTo (ques\quest1.ans,- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - )
  8.  
  9. YesNoAsk (Would you like to answer this questionaire? *)
  10. If (%Resp%)=(No) then Return
  11.  
  12. Ask (What is the name of your BBS?)
  13. AppendTo (ques\quest1.ans,Q1: Name: %Resp%)
  14.  
  15. Ask (Who are the sysops of this BBS?)
  16. AppendTo (ques\quest1.ans,Q2: Sysops: %Resp%)
  17.  
  18. YesNoAsk (Are you running the Powerboard BBS software? )
  19. If (%Resp%)=(Yes) then Goto (PB)
  20.  
  21. Ask (Which BBS software package are you currently using?)
  22. AppendTo (ques\quest1.ans,Q3: Using: %Resp%)
  23.  
  24. Ask (Would you consider running Powerboard? Reasons?)
  25. AppendTo (ques\quest1.ans,Q3: Consider running PB?: %Resp%)
  26.  
  27. *RestOfQuest
  28.  
  29. Ask (How many files do you currently have online?)
  30. AppendTo (ques\quest1.ans,Q4: %Resp%)
  31.  
  32. YesNoAsk (Would you like visiting Sysop's access here? *)
  33. If (%Resp%)=(No) then Goto (EndOfQuest)
  34.  
  35. log(--,Requested Visiting Sysop Access)
  36. AppendTo (ques\quest1.ans,Q5: Wants Visiting Sysop Access)
  37.  
  38. Goto (EndOfQuest)
  39.  
  40. *PB
  41. Say(Wise choice.  We hope you are enjoying the software as much as we are!)
  42. Say ()
  43. AppendTo (ques\quest1.ans,Q3:Using Powerboard BBS software)
  44. Goto (RestOfQuest)
  45.  
  46.  
  47. *EndOfQuest
  48. Log (--,User answered Questionaire #1)
  49. Return
  50.