I made this in a few seconds, after it starts saying only "Xenocythe" a couple of times, post how many times you had to press space until you got a question that made sense!
Also, post the wackiest question you were asked!
I got 9 tries. "Where was xenocythe die?"
Print "The Wacky Question Generator! Made in 5 seconds!"
suspend for key
cls
aone$="What "
atwo$="Who "
athree$="Where "
afour$="How "
afive$="When "
bone$="did "
btwo$="is "
bthree$="was "
bfour$="were "
bfive$="are "
done$="you "
dtwo$="I "
dthree$="he "
dfour$="she "
dfive$="Xenocythe "
eone$="die?"
etwo$="eat?"
ethree$="move?"
efour$="program?"
efive$="do?"
do
varone=rnd(5) : vartwo=rnd(5) : varthree=rnd(5) : varfour=rnd(5)
if varone=1 then wordone$=aone$:if varone=2 then wordone$=atwo$
if varone=3 then wordone$=athree$:if varone=4 then wordone$=afour$
if varone=5 then wordone$=afive$
if vartwo=1 then wordtwo$=bone$:if varone=2 then wordtwo$=btwo$
if vartwo=3 then wordtwo$=bthree$:if varone=4 then wordtwo$=bfour$
if vartwo=5 then wordtwo$=bfive$
if varthree=1 then wordthree$=done$:if varthree=2 then wordthree$=dtwo$
if varthree=3 then wordthree$=dthree$:if varthree=4 then wordthree$=dfour$
if varthree=5 then wordthree$=dfive$
if varfour=1 then wordfour$=eone$:if varfour=2 then wordfour$=etwo$
if varfour=3 then wordfour$=ethree$:if varfour=4 then wordfour$=efour$
if varfour=5 then wordfour$=efive$
Set cursor 200,200
Print wordone$,wordtwo$,wordthree$,wordfour$
suspend for key
cls
loop
