home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / NEWASK.ZIP / NEWASK.PPS < prev   
Encoding:
Text File  |  1993-02-16  |  2.0 KB  |  67 lines
  1. string Answer,WhichMag,Referral1,Referral2,Software,Features1,Features2,AlphaNum
  2.  
  3. AlphaNum = " 0123456789.,;abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
  4.  
  5.  
  6. println "@CLS@@X38┌─────────────────────────────────────────────────────────────────────────────@X3B┐@X07"
  7. println "@X38│ @X3EIn researching the BBS market we are interested in finding out where or how @X3B│@X07"
  8. println "@X38│ @X3Eyou learned of PCBoard software or this BBS.                                @X3B│@X07"
  9. println "@X38│                                                                             @X3B│@X07"
  10. println "@X38│ @X31If you could volunteer that information it would be appreciated.            @X3B│@X07"
  11. println "@X38└@X3B─────────────────────────────────────────────────────────────────────────────┘@X07"
  12. println ""
  13.  
  14. Answer=NoChar()
  15. inputyn "Have you seen our advertisement for PCBoard software in a magazine",Answer,0Eh
  16. println
  17.  
  18. if (upper(left(Answer,1)) <> YesChar()) goto how
  19. inputstr "Which one",WhichMag,0Eh,60,AlphaNum,2+64+128
  20. fputln 0,"Q: Which magazine?"
  21. fput   0,"A: "
  22. fputln 0,WhichMag
  23.  
  24. :how
  25. println
  26. println "@X0EHow did you hear about PCBoard, or from whom?  (2 lines)"
  27. input "",Referral1
  28. println
  29. input "",Referral2
  30. println
  31. fputln 0,"Q: Referral Line 1"
  32. fput   0,"A: "
  33. fputln 0,Referral1
  34. fputln 0,"Q: Referral Line 2"
  35. fput   0,"A: "
  36. fputln 0,Referral2
  37.  
  38. :askbbs
  39. Answer=NoChar()
  40. println
  41. inputyn "Do you currently run a BBS" ,Answer,0Eh
  42. println
  43.  
  44. if (upper(left(Answer,1)) <> YesChar()) goto attract
  45. inputstr "What software are you currently using",Software,0Eh,30,AlphaNum,2+64+128
  46. fputln 0,"Q: Current BBS Software"
  47. fput   0,"A: "
  48. fputln 0,Software
  49.  
  50. :attract
  51. println
  52. println "@X0EWhat attracted you to PCBoard software?  (2 lines)"
  53. input "",Features1
  54. println
  55. input "",Features2
  56. println
  57. fputln 0,"Q: Features Line 1"
  58. fput   0,"A: "
  59. fputln 0,Features1
  60. fputln 0,"Q: Features Line 2"
  61. fput   0,"A: "
  62. fputln 0,Features2
  63.  
  64. println
  65. println "@X0FThank you for your responses."
  66. println
  67.