Agnes Krampe Poet Free verse

Program Sonnet

Program Sonnet
Integer, Parameter:: L=14, S=10
!L number of lines, S number of syllables per line
Character (Len=6):: Syl(L, S)
Character (Len=80):: Line (L)
Do I=1,L
	Do J=1,S
    	Syl(I,J)= 
! here is where you insert 
! the poetic thought the computer 
!cannot produce
	Enddo
Enddo

Do I=1,L
	Line(I)=Syl(I,1)
	Do J=2,S
		Line(I)=trim(Line(I))//trim(Syl(I,J)) 
	Enddo
Enddo
! If you want a rhyming sonnet, start subroutine rhyme

If (line.eq.good) then
	Keep
Else
	Revise
Endif

Do I=1,L
	Write (*,*) Line(I)
Enddo

End Program Sonnet


! October 16, 2018
! For contest all 'dim ones and zeros- A programming contest
! Sponsored by Brahn Bailey

♡Like0

Share Poem

---

Post Comments

Poetrysoup is an environment of encouragement and growth so only provide specific positive comments that indicate what you appreciate about the poem. Negative comments will result your account being banned.

Please Login to post a comment

Line Gauthier October 19, 2018 at 11:23 PM Way over my head but I like it, Agnes.

Winged Warrior October 18, 2018 at 9:45 PM A [Agnes] =MC squared...lovely equations of mathematical poetry my friend...a game of Tron perhaps lol...love & light...^WW^

Anne-Lise Andresen October 18, 2018 at 11:42 AM - Awesome !!! - Love it, Agnes :) - The best I have read for a long time ... good luck in the contest - hugs // Anne-Lise :)

Jan Allison October 18, 2018 at 8:21 AM I am in awe of your creativity Agnes, this theme is beyond my comprehension! Good luck in the contest:-) hugs Jan xx Agnes Krampe October 18, 2018 at 8:38 AM Thanks, Jan - it's just a Fortran code that writes a sonnet if you input the syllables :)

Rhona Mcferran October 17, 2018 at 8:38 PM I agree with Nina! ;D Very clever & fun! Agnes Krampe October 18, 2018 at 8:38 AM Thanks, Rhona.

Chris Green October 17, 2018 at 4:17 PM That was pretty cool Agnes. :) Agnes Krampe October 18, 2018 at 8:39 AM Thanks, Chris.