WorkForm
P R E S E N T I N G
T H E
R E S E A R C H
----------------------
M A C H I N E
-------------------
Press <Tab> when ready
Good
. Would you like to win tickets for two to the West End show of your choice? (Compliments of Pulse Train)
SINGLE CHOICE
Please type your first name in the the box below.
Name :
Thanks
I hope you didn't find that too hard. Now I would like to know your LAST NAME as well, just in case you win the prize.
Lastname :
If you win the prize, we will buy the tickets for you. Below is a list of some of the top West End shows that we can get tickets for. Please indicate your FIRST choice.
SINGLE CHOICE
Just in case we can't get tickets for
, we would like to know your SECOND choice.
SINGLE CHOICE
And just to be doubly certain we get you something, in case both
and
are sold out, what is your third choice of show?
SINGLE CHOICE
Thanks
. In case you are the lucky winner, can you give us the name of the person you would like to take to
?
Friend :
, what nights of the week would you and
be available to attend
. (Or
or
, if
is sold out). Please indicate all acceptable evening.
MULTIPLE CHOICE
compute nights count(night); if nights == 0;
Sorry, I need to know that. Please indicate at least one night of the week.
Press <Tab> when ready
GOTO night; elseif nights>>1;
Because you indicated
nights, I need to know the preferred night.
SINGLE CHOICE
else;
As you only indicated
, you don't give us much choice, but we'll do our best to get you your tickets.
Press <Tab> when ready
endif;
Is there any particular reason why you think that you and
would enjoy
more than the others?
the SINGLE
SINGLE CHOICE
Thank you very much
. I hope you enjoyed your demonstration of the CATI side of the RESEARCH MACHINE.
Your prize draw number is
. Please remember it.
I hope that you and
will get to enjoy
if you are our lucky winner. Good--bye now.
Press <Tab> when ready
SentForm
Prize....=
Name.....=
Lastname.=
Show.....=
Second...=
Third....=
Friend...=
Night....=
Bestnight=
Why......=
The end of the 2nd Form
SystForm
%a......=
%serial.=
%formask=