home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RA / QUES_221.ZIP / SAMPLES.ZIP / VOTEDOOR.ZIP / VOTEDOOR.Q-A < prev   
Encoding:
Text File  |  1990-08-24  |  1.9 KB  |  102 lines
  1. clearscreen
  2. outputlog "User entered Quesdoor's votedoor"
  3.  
  4. :hoofd
  5. clearscreen
  6. display "              "
  7. changecolor 14 4
  8. display "               -----> VOTE DOOR <------             "
  9. changecolor 15 0
  10. output " "
  11. output " "
  12. output "                        [ L ]   List questions"
  13. output "                        [ V ]   Vote"
  14. output "                        [ A ]   Add a question"
  15. output "                        [ H ]   Help"
  16. output "                        [ Q ]   Return to bbs..."
  17. output " "
  18. changecolor 14 0
  19. display "                      What's your choice: "
  20. changecolor 15 0
  21. ask 1 10
  22. :
  23.  
  24. if 10 = "L"
  25. clearscreen
  26. display "           "
  27. changecolor 14 4
  28. display "     ------> VOTE DOOR <------        Questions.      "
  29. changecolor 7 0
  30. output " "
  31. output " "
  32. display "            You can vote on the following questions:|"
  33. changecolor 15 0
  34. output " "
  35. showquestions vote
  36. output " "
  37. changecolor 14 0
  38. display "Press [ENTER]"
  39. changecolor 15 0
  40. ask 0 1
  41. gotolabel hoofd
  42. endif
  43.  
  44.  
  45. if 10 = "H"
  46. clearscreen
  47. display "                 "
  48. changecolor 14 4
  49. display "        ------>  VOTEDOOR  <-------       "
  50. changecolor 7 0
  51. displayfile votedoor
  52. changecolor 14 0
  53. display "Press [ENTER]"
  54. ask 0 1
  55. gotolabel hoofd
  56. endif
  57.  
  58.  
  59. if 10 = "V"
  60. outputlog "User voted in Quesdoor's Votedoor"
  61. clearscreen
  62. votequestion vote
  63. output " "
  64. gotolabel hoofd
  65. endif
  66.  
  67.  
  68.  
  69. if 10 = "A"
  70. outputlog "User added a new question in Quesdoor's Votedoor"
  71. clearscreen
  72. display "          "
  73. changecolor 14 4
  74. display "       ------> VOTEDOOR <------     Add Question     "
  75. changecolor 7 0
  76. output " "
  77. output " "
  78. askquestion vote
  79. clearscreen
  80. gotolabel hoofd
  81. endif
  82.  
  83.  
  84.  
  85. if 10 = "Q"
  86. clearscreen
  87. delete votedoor.asw
  88. quit
  89. endif
  90.  
  91.  
  92.  
  93. clearscreen
  94. output " "
  95. changecolor 15 
  96. output " Wrong choice, please try again !"
  97. changecolor 14
  98. output " "
  99. display " Press [ENTER]"
  100. ask 0 1
  101. gotolabel hoofd
  102.