I've done this before long ago, but this version is much better.
20-Line Compressed:
Sync On
Dim Start$(3) : Start$(1)="Who" : Start$(2)="Where" : Start$(3)="How"
Dim Second$(2) : Second$(1)=" is" : Second$(2)=" was"
Dim Third$(6) : Third$(1)=" your" : Third$(2)=" my" : Third$(3)=" his" : Third$(4)=" her" : Third$(5)=" their" : Third$(6)=" our"
Dim Fourth$(8) : Fourth$(1)=" stupid" : Fourth$(2)=" fat" : Fourth$(3)=" retarded" : Fourth$(4)=" blind" : Fourth$(5)=" ugly"
Fourth$(6)=" scary" : Fourth$(7)=" dead" : Fourth$(8)=" drunk"
Dim Last$(10) : Last$(1)=" dog?" : Last$(2)=" cat?" : Last$(3)=" dad?" : Last$(4)=" mom?" : Last$(5)=" brother?" : Last$(6)=" sister?"
Last$(7)=" monkey?" : Last$(8)=" giraffe?" : Last$(9)=" cousin?" : Last$(10)=" friend?"
GenerateRandomQuestion:
cls
Question$=Start$(Rndm(3))+Second$(Rndm(2))+Third$(Rndm(6))+Fourth$(Rndm(8))+Last$(Rndm(10))
Do
Text 20,80,"Your random question is '"+Question$+"'"
Text 80,130,"Press the space bar to generate another random question."
If spacekey()=1 then goto GenerateRandomQuestion
Sync
Loop
Function Rndm(num)
random=1+(rnd(num-1))
EndFunction random
60-Line Uncompressed:
Sync On
Dim Start$(3)
Start$(1)="Who"
Start$(2)="Where"
Start$(3)="How"
Dim Second$(2)
Second$(1)=" is"
Second$(2)=" was"
Dim Third$(6)
Third$(1)=" your"
Third$(2)=" my"
Third$(3)=" his"
Third$(4)=" her"
Third$(5)=" their"
Third$(6)=" our"
Dim Fourth$(8)
Fourth$(1)=" stupid"
Fourth$(2)=" fat"
Fourth$(3)=" retarded"
Fourth$(4)=" blind"
Fourth$(5)=" ugly"
Fourth$(6)=" scary"
Fourth$(7)=" dead"
Fourth$(8)=" drunk"
Dim Last$(10)
Last$(1)=" dog?"
Last$(2)=" cat?"
Last$(3)=" dad?"
Last$(4)=" mom?"
Last$(5)=" brother?"
Last$(6)=" sister?"
Last$(7)=" monkey?"
Last$(8)=" giraffe?"
Last$(9)=" cousin?"
Last$(10)=" friend?"
GenerateRandomQuestion:
cls
Question$=Start$(Rndm(3))+Second$(Rndm(2))+Third$(Rndm(6))+Fourth$(Rndm(8))+Last$(Rndm(10))
Do
Text 20,80,"Your random question is '"+Question$+"'"
Text 80,130,"Press the space bar to generate another random question."
If spacekey()=1 then goto GenerateRandomQuestion
Sync
Loop
Function Rndm(num)
random=1+(rnd(num-1))
EndFunction random
