Hi and welcome to the Life Disappointment Survey. Your answers will be held in the strictest confidence by our old-school, born-to-rule HTML and JavaScript technology. `*Stylised vector image of a padlock*`
Have you been or are you currently disappointed with life? We value your feedback highly.
[[Continue->Question 1]] How good has life turned out to be, compared to what you expected?
(set: $choices to (array: "Very good", "Fairly good", "Not so good","No good"))
(set: $choice to "")
(set: $c1 to false)
(set: $c2 to false)
(set: $c3 to false)
(set: $c4 to false)
(checkbox: 2bind $c1,$choices's 1st)
(checkbox: 2bind $c2,$choices's 2st)
(checkbox: 2bind $c3,$choices's 3st)
(checkbox: 2bind $c4,$choices's 4st)
|Link>[[[Submit->Question 2]]]
(hide:?Link)
(live: 100ms)
[
(if: $c1 is true)[(if: $choice is not $choices's 1st)[(set: $c2 to false)(set:$c3 to false)(set:$c4 to false)(set: $choice to $choices's 1st)]]
(if: $c2 is true)[(if: $choice is not $choices's 2st)[(set: $c1 to false)(set:$c3 to false)(set:$c4 to false)(set: $choice to $choices's 2st)]]
(if: $c3 is true)[(if: $choice is not $choices's 3st)[(set: $c1 to false)(set:$c2 to false)(set:$c4 to false)(set: $choice to $choices's 3st)]]
(if: $c4 is true)[(if: $choice is not $choices's 4st)[(set: $c1 to false)(set:$c2 to false)(set:$c3 to false)(set: $choice to $choices's 4st)]]
(if: $choice is not "")[(show:?Link)]
]Are there some aspects of life that are particularly disappointing?
(set: $choices to (array: "Many", "A few", "One or two","None"))
(set: $choice to "")
(set: $c1 to false)
(set: $c2 to false)
(set: $c3 to false)
(set: $c4 to false)
(checkbox: 2bind $c1,$choices's 1st)
(checkbox: 2bind $c2,$choices's 2st)
(checkbox: 2bind $c3,$choices's 3st)
(checkbox: 2bind $c4,$choices's 4st)
|Link>[[[Submit->Question 3]]]
(hide:?Link)
(live: 100ms)[
(if: $c1 is true)[(if: $choice is not $choices's 1st)[(set: $c2 to false)(set:$c3 to false)(set:$c4 to false)(set: $choice to $choices's 1st)]]
(if: $c2 is true)[(if: $choice is not $choices's 2st)[(set: $c1 to false)(set:$c3 to false)(set:$c4 to false)(set: $choice to $choices's 2st)]]
(if: $c3 is true)[(if: $choice is not $choices's 3st)[(set: $c1 to false)(set:$c2 to false)(set:$c4 to false)(set: $choice to $choices's 3st)]]
(if: $c4 is true)[(if: $choice is not $choices's 4st)[(set: $c1 to false)(set:$c2 to false)(set:$c3 to false)(set: $choice to $choices's 4st)]]
(if: $choice is not "")[(show:?Link)]
]Of the things that have disappointed you, what did you have the highest hopes for at the start?
(input-box:"=XX=")
|Link>[[[Submit->Question 4]]]Of the things that have disappointed you, which has turned out the worst?
(input-box:"=XX=")
|Link>[[[Submit->Question 5]]]Although this is not possible, if you could rewind time and change one thing, what would it be?
(input-box:"=XX=")
|Link>[[[Submit->Question 6]]]Although this is almost certainly not possible, if you could change one thing about the world today, what would it be?
(input-box:"=XX=")
|Link>[[[Submit->Ending]]]Thank you for your answers. They will not be taken into consideration at all, by anyone.