home *** CD-ROM | disk | FTP | other *** search
- clearscreen
- outputlog "User entered Quesdoor's votedoor"
-
- :hoofd
- clearscreen
- display " "
- changecolor 14 4
- display " -----> VOTE DOOR <------ "
- changecolor 15 0
- output " "
- output " "
- output " [ L ] List questions"
- output " [ V ] Vote"
- output " [ A ] Add a question"
- output " [ H ] Help"
- output " [ Q ] Return to bbs..."
- output " "
- changecolor 14 0
- display " What's your choice: "
- changecolor 15 0
- ask 1 10
- :
-
- if 10 = "L"
- clearscreen
- display " "
- changecolor 14 4
- display " ------> VOTE DOOR <------ Questions. "
- changecolor 7 0
- output " "
- output " "
- display " You can vote on the following questions:|"
- changecolor 15 0
- output " "
- showquestions vote
- output " "
- changecolor 14 0
- display "Press [ENTER]"
- changecolor 15 0
- ask 0 1
- gotolabel hoofd
- endif
-
-
- if 10 = "H"
- clearscreen
- display " "
- changecolor 14 4
- display " ------> VOTEDOOR <------- "
- changecolor 7 0
- displayfile votedoor
- changecolor 14 0
- display "Press [ENTER]"
- ask 0 1
- gotolabel hoofd
- endif
-
-
- if 10 = "V"
- outputlog "User voted in Quesdoor's Votedoor"
- clearscreen
- votequestion vote
- output " "
- gotolabel hoofd
- endif
-
-
-
- if 10 = "A"
- outputlog "User added a new question in Quesdoor's Votedoor"
- clearscreen
- display " "
- changecolor 14 4
- display " ------> VOTEDOOR <------ Add Question "
- changecolor 7 0
- output " "
- output " "
- askquestion vote
- clearscreen
- gotolabel hoofd
- endif
-
-
-
- if 10 = "Q"
- clearscreen
- delete votedoor.asw
- quit
- endif
-
-
-
- clearscreen
- output " "
- changecolor 15
- output " Wrong choice, please try again !"
- changecolor 14
- output " "
- display " Press [ENTER]"
- ask 0 1
- gotolabel hoofd
-