position == 1 var txt = “<P align=’center’><font face=’Georgia, Times New Roman, Times, serif’ size=4 color=#333333>” poemWord = “” poemExport = “” var poemSend = “” for (i=1; poemBeats < 17; i++) { // check that the new word contains the correct number of syllabes if nearing end of line tempWord = chooseWord() // go get a new word poemWord = tempWord if (tempWord.length < 2) { continue } // if some problem, restart if (i > 2000) { // skip overflow errors in an emergency break } if (line1 == “true”) { if ((wordBeat + poemBeats) > 5) { // if new word + current line > 5, get new word continue // restart the loop } else { if ((wordBeat + poemBeats) == 5) { // move to second line if exactly 5 syllables line1 = “false” tempWord = tempWord + “<br>” // add a line feed poemWord = poemWord + “rn” line2 = “true” } } if (comma) { // some require a comma, assigned above if (line1WordCount > 0) { txt = txt + “, ” poemExport = poemExport + “,” poemSend = poemSend + “,” } comma = !comma } txt = txt + ” ” + tempWord poemExport = poemExport + ” ” + poemWord poemSend = poemSend + ” ” + tempWord line1WordCount++ poemBeats = poemBeats + wordBeat } else if (line2 == “true”) { if ((wordBeat + poemBeats) > 12) { // get a new word if too long tempWord = chooseWord() continue // skip the rest of the loop } else { if ((wordBeat + poemBeats) == 12) { // move to third line line2 = “false” tempWord = tempWord + “<br>” poemWord = poemWord + “rn” line3 = “true” } if (comma) { // some require a comma, assigned above if (line2WordCount >=1) { txt = txt + “, ” poemExport = poemExport + “,” poemSend = poemSend + “,” } comma = !comma } txt = txt + ” ” + tempWord poemExport = poemExport + ” ” + poemWord poemSend = poemSend + ” ” + tempWord } line2WordCount++ poemBeats = poemBeats + wordBeat } else if (line3 == “true”) { // last word — code to smooth out the poem’s ending in certain cases if ((wordBeat + poemBeats) == 17) { // if end of line, skip certain word types if (wordType == 1) { // last word is a noun if (exactType[position - 1] == 4) { // preceding word was an adverb, kill noun window.status=(exactWord[position-1] + ” – ” + tempWord) forceWord = true tempWord = chooseWord() if (tempWord.length < 2) { continue } // if some problem, restart continue } if (exactType[position - 1] == 3) { // preceding word was a verb, kill noun window.status=(exactWord[position-1] + ” – ” + tempWord) forceWord = true tempWord = chooseWord() if (tempWord.length < 2) { continue } // if some problem, restart continue } if (comma) { // negate comma if there is one comma = !comma } } if (wordType == 2) { // last word is an adjective if (exactType[position - 1] != 2) { // preceding word was not an adjective if (exactType[position - 1] == 3) { // preceding word a verb, add comma comma = true } else { forceWord = true tempWord = chooseWord() if (tempWord.length < 2) { continue } // if some problem, restart } } } if (wordType == 6) { // last word is a preposition forceWord = true tempWord = chooseWord() if (tempWord.length < 2) { continue } // if some problem, restart continue } } if ((wordBeat + poemBeats) > 17) { // get a new word if too long tempWord = chooseWord() continue } if (comma) { // some require a comma, assigned above if (line3WordCount >=1) { txt = txt + “, ” poemExport = poemExport + “,” poemSend = poemSend + “,” } comma = !comma } txt = txt + ” ” + tempWord poemExport = poemExport + ” ” + poemWord poemSend = poemSend + ” ” + tempWord line3WordCount++ poemBeats = poemBeats + wordBeat } exactWord[position] = tempWord position++ } txt = txt + “</P><font size=’3′>” document.write(txt) var y = “<form action=’http://www.everypoet.net/haiku/prepare.php’ method=’post’ name=’save_haiku’ target=’_blank’><input type=’hidden’ name=’haiku’ value=’” + poemExport + “‘><input type=’submit’ value=’Save this haiku’></form>” document.write(y) // document.close