Funny Random Sentence Generator

[SierraKen]

I believe there's 79 different variations of sentences than can be made with this. Possibly more. Most of it is very bad grammar lol. But try to look over that if you can. I'm just having some fun. I added mouse support to left click for another sentence. If you right click it ends. Tell me what you think, thanks. I'm no English professor lol. It's more of a poetry-type of writing or something like the start of a haiku almost, in one sentence. 

Code: (Select All)

Dim a$(22)

start:
Cls
Print "                             Random Sentence Generator"
Print
Print "                                   By SierraKen"

Randomize Timer

Print: Print
a = Int(Rnd * 22) + 1
For aa = 1 To 22
    Read a$(aa)
    If aa = a Then Print a$(aa);
Next aa

a = Int(Rnd * 22) + 1
For aa = 1 To 22
    Read a$(aa)
    If aa = a Then Print " " + a$(aa);
Next aa

a = Int(Rnd * 7) + 1
For aa = 1 To 7
    Read a$(aa)
    If aa = a Then Print " " + a$(aa);
Next aa

a = Int(Rnd * 12) + 1
For aa = 1 To 12
    Read a$(aa)
    If aa = a Then Print " " + a$(aa);
Next aa

a = Int(Rnd * 4) + 1
For aa = 1 To 4
    Read a$(aa)
    If aa = a Then Print " " + a$(aa);
Next aa

a = Int(Rnd * 5) + 1
For aa = 1 To 5
    Read a$(aa)
    If aa = a Then Print " " + a$(aa);
Next aa

a = Int(Rnd * 7) + 1
For aa = 1 To 7
    Read a$(aa)
    If aa = a Then Print " " + a$(aa);
Next aa

Locate 22, 1
Print "Click left mouse button for another one."
Print "Click right mouse button to quit."
Do
    While _MouseInput: Wend
    mouseLeftButton = _MouseButton(1)
    mouseRightButton = _MouseButton(2)
    Clear_MB 1
    If mouseLeftButton Then Restore: GoTo start:
    If mouseRightButton Then End
Loop

Data "He","She","I","You","Animals","People","They","Birds","Dogs","A dog","A cat","Cats","A bird","Fish","A fish","Squirrels","A squirrel","Chipmunks","A chipmunk","Crowds","A crowd","A person"

Data "hit","ran","hunted","looked","walked","roamed","journeyed","swam","read","programmed","typed","laughed","listened","flew","ate","drove","bit","smiled","chewed","stared","yawned","slept"

Data "to","until","when","more to","less to","faster to","slower to"

Data "Lucy","Edward","Ralph","Cindy","people","they","a woman","a man","a kid","animals","they","someone"

Data "but","or","as if","and when"

Data "saw","looked","ignored","yelled","talked"

Data "to nothing.","to a star.","to another person.","to themself.","to nobody.","to everyone.","to the world."

Sub Clear_MB (var As Integer)

    Do Until Not _MouseButton(var)
        While _MouseInput: Wend
    Loop

End Sub 'Clear_MB

[BSpinoza]

In this way you can make a Poem / Haiku -Generator!

https://www.poem-generator.org.uk/haiku/