10 print"SP"
15 print"]]]]]haiku generator"
16 print"]]by douglas compton"
20 input"qyour name";n$
25 input"your favorite number";n
40 print"Sqqqhello ";n$
45 print n;" is a good number."
50 print"qqi will use that number to create a haiku for you."
60 input"qqqhaiku? y/n";an$
70 if an$="y" then goto 91
80 if an$="n" then goto 500
85 print"you have a hard time following directions...":goto 60
88 rem dim statements pull 30 words into an array to be selected randomly
90 rem each line grabs 10 words into the array and then moves on
91 dim f1$(9):for f1=0to9:read f1$(f1):next
92 dim f2$(9):for f2=0to9:read f2$(f2):next
93 dim f3$(9):for f3=0to9:read f3$(f3):next
95 dim s1$(9):for s1=0to9:read s1$(s1):next
96 dim s2$(9):for s2=0to9:read s2$(s2):next
97 dim s3$(9):for s3=0to9:read s3$(s3):next
98 dim t1$(9):for t1=0to9:read t1$(t1):next
99 dim t2$(9):for t2=0to9:read t2$(t2):next
100 dim t3$(9):for t3=0to9:read t3$(t3):next
105 print"Scool...one rhaikuR Pcoming up...qq"
110 rem pick randomly from the dim'd array for the first line of the poem
111 rem this is repeated below for each line of the haiku and printed to screen
115 f4=int(rnd(n)*9+1):f5=int(rnd(n)*9+1):f6=int(rnd(n)*9+1)
125 print f1$(f4);" ";f2$(f5);" ";f3$(f6);","
140 rem line two
200 print" "
215 s4=int(rnd(n)*9+1):s5=int(rnd(n)*9+1):s6=int(rnd(n)*9+1)
225 print s1$(s4);" ";s2$(s5);" ";s3$(s6);","
300 print" "
315 t4=int(rnd(n)*9+1):t5=int(rnd(n)*9+1):t6=int(rnd(n)*9+1)
325 print t1$(t4);" ";t2$(t5);" ";t3$(t6);"."
400 print"qqq";n$;",":print"did you like my haiku?"
405 input"qy/n";r$
410 if r$="y" then goto 450
420 if r$="n" then goto 500
430 if r$<>"y" or r$<>"n" then goto 460
450 print"great! let do another one!":for w=1to1000:next:goto105
460 print"you have a hard time following directions...": goto 400
500 print"Sqqqthanks for the poetry":stop
1130 rem 30 words for our first line
1135 data a,glad,the,one,sad,dark,bright,wet,cold,warm
1136 data rainy,snowy,rainbow,sunny,warming,calming,melting,windy,cloudy,chilly
1137 data springtime,summer,winter,autumn,rainstorm,snowstorm,daybreak,nighttime
1138 data ocean,lakeside
1230 rem 30 words for our second line
1235 data flooded,tender,muddy,gentle,shady,happy,forlorn,misty,sunny,foggy
1236 data summer,winter,autumn,springtime,happy,tiny,gentle,damaged,single,silly
1237 data dragonfly,butterfly,calming lake,calm ocean,darker sky
1238 data mountain stream,desert bird,mountain path,warming fire,singing bird
1330 rem 30 words for our third line
1336 data young,the,three,two,fine,sad,glad,bright,dark,old
1337 data crickets,fishes,songbirds,strangers,old men,crayfish,stray dogs
1338 data children,old cats,ladies
1339 data eating,sleeping,running,swimming,lie down,go slow,go fast,singing
1340 data dreaming, playing
No comments:
Post a Comment