'Randon Haiku Generator by CaptainD
[init]

Dim a$(100),b$(100),c$(100),d$(100),e$(100),f$(100),g$(100),h$(100),num(7)

x=0:while n$<>"END":read n$:a$(x)=n$:x=x+1:wend:num(1)=x-1:n$=""
x=0:while n$<>"END":read n$:b$(x)=n$:x=x+1:wend:num(2)=x-1:n$=""
x=0:while n$<>"END":read n$:c$(x)=n$:x=x+1:wend:num(3)=x-1:n$=""
x=0:while n$<>"END":read n$:d$(x)=n$:x=x+1:wend:num(4)=x-1:n$=""
x=0:while n$<>"END":read n$:e$(x)=n$:x=x+1:wend:num(5)=x-1:n$=""
x=0:while n$<>"END":read n$:f$(x)=n$:x=x+1:wend:num(6)=x-1:n$=""
x=0:while n$<>"END":read n$:g$(x)=n$:x=x+1:wend:num(7)=x-1:n$=""

Print"Random Haiku Generator by CaptainD"
comb=num(1)*num(2)*num(3)*num(4)*num(5)*num(6)*num(7)
Print"Potential word combinations: ";comb
print

[start]
print
for x=1 to 7
rn1=int(rnd(1)*num(1))
rn2=int(rnd(1)*num(2))
rn3=int(rnd(1)*num(3))
rn4=int(rnd(1)*num(4))
rn5=int(rnd(1)*num(5))
rn6=int(rnd(1)*num(6))
rn7=int(rnd(1)*num(7))
next x

print a$(rn1);" ";b$(rn2)
print c$(rn3);" ";d$(rn4);" ";e$(rn5)
print f$(rn6);" ";g$(rn7)


[end]
print
print"Press Enter for another random haiku of enter Q to quit"
input k$
if k$="Q" then end else goto [start]
goto [end]

'3-syllable descriptive word - a$
data "Onerous","Wonderful","Terrible","Arduous","Colourful","Uncertain","Horrible","Horrific","Beautiful","Big special","Burdensome","Friendly large","Friendly small","Nasty big","Unfunny small","Unfriendly","Uncanny","Errupting","END"
[data2]
'2-syllable object - b$
data "pillow","horsefly","tadpole","candy","fishnets","donoughts","panther","polecats","gnome feet","troll wife","orcling","keyboards","mandrakes","halfwit","seagulls","aardvarks","gopher","settlers","triffids","centaurs","hobbit","halfling","END"
[data3]
'2-syllable action - c$
data "Hopping","Running","Fishing","Thinking","Snoring","Spying","Drinking","Flying","Dancing","Eating","Prancing","Snooping","Pounding","Cooking","Prowling","Gleaning","Leaping","Jumping","Breathing","Burping","Fighting","Scratching","Moping","Melting","Moulting","Weaping","Laughing","Pouting","Bouncing","Smiling","END"
[data4]
'2-syllable, placing object - d$
data "in the","at the","inside","in a","under","above","within","on the","END"
[data5]
'3-syllable location, one or more words - e$
data "dumping ground", "toxic waste", "thin iceberg","wishing well","hardware store","nice asylum","prison cell","house of fun","bungalow","castle gate","greenhouse","cinema","courtoom scene","big pig pen","changing room","theatre stage","dressing room","caravan","END"
[data6]
'3-syllable thinking word or random action- f$
data "Ponder at","Wink again","Think about","Meditate","Throw jelly","Cogitate","Strain eyes","Wonder at","Open your eyes","Rub your chin","Gaze in awe","Blink back tears","Smash pumpkins","END"
[data7]
'2-syllable manner/time - g$
data "with me","slowly","when pained","slyly","nicely","promptly","wisely","gladly","lamely","with glee","END"