deep archives <-- back to

WinPoet <-- back to



WinPoet program code
Author: Roger Luebeck


One of the 24 code kernels for the various
clickable button elements of speech:

Private Sub adjective_Click()

  Randomize
  rand% = Int(adjtot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstadj% = 0 Then                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = radj$(rand%) & " "               '
    pace% = pace% + Len(radj$(rand%)) + 1             '
    firstadj% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 401                                          '
  End If
  
  If adjswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = radj$(rand%) & " "               '
    adjswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 401                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = radj$(rand%)                     '
      
    repswitch% = 0: patch% = 0

  wor$ = radj$(rand%)
  
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If

poetry.SetFocus

End Sub

'------------------------------------

' KeyAscii routines:

Private Sub poetry_KeyPress(KeyAscii As Integer)
  
If KeyAscii = 8 Then
  If repswitch% = 1 Then
    pace% = pace% - 1
  End If
  Call icreset
End If

If KeyAscii > 31 And KeyAscii < 123 Then
  If repswitch% = 0 Then
    pace% = pace% + 1 + Len(wor$)
    repswitch% = 1
    Else:
      pace% = pace% + 1
  End If
    failsafe% = failsafe% + 1
    Call icreset
End If

If KeyAscii = 27 Then
 poetry.SetFocus
 pace% = pace% - 1
 If pace% < 1 Then pace% = 1
 poetry.SelStart = pace%
 poetry.SelText = ""
 patch% = 1
 Call icreset
End If

If KeyAscii = 26 Then
 poetry.SetFocus
 pace% = pace% + 1
 failsafe% = failsafe% + 1
' If pace% > failsafe% Then pace% = failsafe%
 poetry.SelStart = pace%
 poetry.SelText = ""
 patch% = 1
 Call icreset
End If
  
If KeyAscii = 13 Then KeyAscii = 0

End Sub


'variables declarations
'----------------------------------------

Attribute VB_Name = "Module1"

Public pace%, switch%, rand%
Public startprog%, failsafe%, ins%
Public repswitch%, r%, patch%, ret%
Public sswitch%, esswitch%
Public s1%, s2%, s3%, s4%, s5%, s6%

Public firstadj%, firstver%, firstnou%
Public firstves%, firstved%, firstvng%
Public firstcha%, firstper%, firsteve%
Public firstexc%, firstsbs%, firstcpt%
Public firstpla%, firstadv%, firstsay%
Public firstgov%, firstgtv%, firstdov%
Public firstbee%, firsthav%, firstwhr%
Public firstwhn%, firstdeg%, firstmdl%
Public firstsas%, firstsed%, firstsng%
Public firstgos%, firstged%, firstgng%
Public firstthe%, firstaaa%, firstann%
Public firstfor%, firstmor%, firstnot%

Public adjswitch%, nouswitch%, verswitch%
Public vesswitch%, vedswitch%, vngswitch%
Public chaswitch%, perswitch%, eveswitch%
Public excswitch%, sbsswitch%, cptswitch%
Public plaswitch%, advswitch%, sayswitch%
Public govswitch%, gtvswitch%, dovswitch%
Public beeswitch%, havswitch%, whrswitch%
Public whnswitch%, degswitch%, mdlswitch%
Public sasswitch%, sedswitch%, sngswitch%
Public gosswitch%, gedswitch%, gngswitch%
Public theswitch%, aaaswitch%, annswitch%
Public forswitch%, morswitch%, notswitch%

Public adjtot%, noutot%, vertot%
Public vestot%, vedtot%, vngtot%
Public chatot%, pertot%, evetot%
Public exctot%, sbstot%, cpttot%
Public platot%, advtot%, saytot%
Public govtot%, gtvtot%, dovtot%
Public beetot%, havtot%, whrtot%
Public whntot%, degtot%, mdltot%
Public sastot%, sedtot%, sngtot%
Public gostot%, gedtot%, gngtot%
Public thetot%, aaatot%, anntot%
Public fortot%, mortot%, nottot%

Public radj$(500), rnou$(500), rver$(300)
Public rves$(300), rved$(300), rvng$(300)
Public rcha$(200), rper$(300), reve$(100)
Public rexc$(100), rsbs$(300), rcpt$(500)
Public rpla$(300), radv$(200), rsay$(200)
Public rgov$(200), rgtv$(100), rdov$(100)
Public rbee$(100), rhav$(100), rwhr$(100)
Public rwhn$(100), rdeg$(100), rmdl$(100)
Public rsas$(200), rsed$(200), rsng$(200)
Public rgos$(200), rged$(200), rgng$(200)
Public rthe$(10), raaa$(10), rann$(300)
Public rfor$(10), rmor$(50), rnot$(50)
Public wor$


Failsafe routines:

If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If

poetry.SetFocus

End Sub

Private Sub editperiod_Click()

    poetry.SetFocus
  If patch% = 1 Then
    patch% = 0
    Else:
    pace% = pace% + Len(wor$)
  End If
    
If repswitch% = 1 And sswitch% = 0 Then
  pace% = pace% - 1
End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = ". "           '
    
    wor$ = "."                      '
    
'pace% = pace% + Len(wor$) + 1
  
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If
    
Call dimplereset

  switch% = 1
  
poetry.SetFocus

End Sub

'----------------------------------------


'Form Load instructions:

Private Sub Form_Load()

  poetry.Text = "      "
  pace% = 0
  repswitch% = 1

r% = 1

Open "adj.txt" For Input As #1
Do While Not EOF(1)
  Input #1, radj$(r%)
  r% = r% + 1
Loop
Close #1
 
adjtot% = r% - 1

r% = 1
Open "ann.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rann$(r%)
  r% = r% + 1
Loop
Close #1
 
anntot% = r% - 1

r% = 1
Open "nou.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rnou$(r%)
  r% = r% + 1
Loop
Close #1
 
noutot% = r% - 1

r% = 1
Open "adv.txt" For Input As #1
Do While Not EOF(1)
  Input #1, radv$(r%)
  r% = r% + 1
Loop
Close #1
 
advtot% = r% - 1

r% = 1
Open "bee.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rbee$(r%)
  r% = r% + 1
Loop
Close #1
 
beetot% = r% - 1

r% = 1
Open "cha.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rcha$(r%)
  r% = r% + 1
Loop
Close #1
 
chatot% = r% - 1

r% = 1
Open "cpt.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rcpt$(r%)
  r% = r% + 1
Loop
Close #1
 
cpttot% = r% - 1

r% = 1
Open "deg.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rdeg$(r%)
  r% = r% + 1
Loop
Close #1
 
degtot% = r% - 1

r% = 1
Open "dov.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rdov$(r%)
  r% = r% + 1
Loop
Close #1
 
dovtot% = r% - 1

r% = 1
Open "eve.txt" For Input As #1
Do While Not EOF(1)
  Input #1, reve$(r%)
  r% = r% + 1
Loop
Close #1
 
evetot% = r% - 1

r% = 1
Open "exc.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rexc$(r%)
  r% = r% + 1
Loop
Close #1
 
exctot% = r% - 1

r% = 1
Open "gtv.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rgtv$(r%)
  r% = r% + 1
Loop
Close #1
 
gtvtot% = r% - 1

r% = 1
Open "hav.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rhav$(r%)
  r% = r% + 1
Loop
Close #1
 
havtot% = r% - 1

r% = 1
Open "mdl.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rmdl$(r%)
  r% = r% + 1
Loop
Close #1
 
mdltot% = r% - 1

r% = 1
Open "per.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rper$(r%)
  r% = r% + 1
Loop
Close #1
 
pertot% = r% - 1

r% = 1
Open "pla.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rpla$(r%)
  r% = r% + 1
Loop
Close #1
 
platot% = r% - 1

r% = 1
Open "sbs.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rsbs$(r%)
  r% = r% + 1
Loop
Close #1
 
sbstot% = r% - 1

r% = 1
Open "whn.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rwhn$(r%)
  r% = r% + 1
Loop
Close #1
 
whntot% = r% - 1

r% = 1
Open "whr.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rwhr$(r%)
  r% = r% + 1
Loop
Close #1
 
whrtot% = r% - 1
r% = 1
Open "mor.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rmor$(r%)
  r% = r% + 1
Loop
Close #1
 
mortot% = r% - 1
  
r% = 1
Open "not.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rnot$(r%)
  r% = r% + 1
Loop
Close #1
 
nottot% = r% - 1

r% = 1
Open "ver.txt" For Input As #1
Do While Not EOF(1)
    Input #1, rver$(r%), rves$(r%), rvng$(r%), rved$(r%)
  r% = r% + 1
Loop
Close #1
 
vertot% = r% - 1
vestot% = r% - 1
vedtot% = r% - 1
vngtot% = r% - 1

r% = 1
Open "gov.txt" For Input As #1
Do While Not EOF(1)
    Input #1, rgov$(r%), rgos$(r%), rgng$(r%), rged$(r%)
  r% = r% + 1
Loop
Close #1
 
govtot% = r% - 1
gostot% = r% - 1
gedtot% = r% - 1
gngtot% = r% - 1

r% = 1
Open "say.txt" For Input As #1
Do While Not EOF(1)
    Input #1, rsay$(r%), rsas$(r%), rsng$(r%), rsed$(r%)
  r% = r% + 1
Loop
Close #1
 
saytot% = r% - 1
sastot% = r% - 1
sedtot% = r% - 1
sngtot% = r% - 1

'NL = Chr(13)

End Sub

 switch% = 0

poetry.SetFocus

End Sub

Sub dimplereset()

  'this code block occurs in 24 iterations,
  'each adjusted to the particular element of speech:
  
401:
                
                  'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
                   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  wor$ = radj$(rand%)
 
 If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If
 
poetry.SetFocus

End Sub

Private Sub Command1_Click()

  poetryexit.Show
  
End Sub

Private Sub Command10_Click()
    poetry.SetFocus
  If patch% = 1 Then
    patch% = 0
    Else:
    pace% = pace% + Len(wor$)
  End If
  If repswitch% = 1 Then pace% = pace% - 1
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = "en "           '
    
    wor$ = "en"                      '
    
'pace% = pace% + Len(wor$) + 1
    
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If
    
Call dimplereset

  switch% = 1
  sswitch% = 1
  
poetry.SetFocus

End Sub

Private Sub Command11_Click()
    poetry.SetFocus
  If patch% = 1 Then
    patch% = 0
    Else:
    pace% = pace% + Len(wor$)
  End If
  If repswitch% = 1 Then pace% = pace% - 1
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = "ing "           '
    
    wor$ = "ing"                      '
    
'pace% = pace% + Len(wor$) + 1
    
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If
    
Call dimplereset

  switch% = 1
  sswitch% = 1
  
poetry.SetFocus

End Sub

Private Sub Command12_Click()
    poetry.SetFocus
  If patch% = 1 Then
    patch% = 0
    Else:
    pace% = pace% + Len(wor$)
  End If
  If repswitch% = 1 Then pace% = pace% - 1
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = "ed "           '
    
    wor$ = "ed"                      '
    
'pace% = pace% + Len(wor$) + 1
    
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If
    
Call dimplereset

  switch% = 1
  sswitch% = 1
  
poetry.SetFocus

End Sub

Private Sub Command13_Click()
    poetry.SetFocus
  If patch% = 1 Then
    patch% = 0
    Else:
    pace% = pace% + Len(wor$)
  End If
  If repswitch% = 1 Then pace% = pace% - 1
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = "er "           '
    
    wor$ = "er"                      '
    
'pace% = pace% + Len(wor$) + 1

    
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If
    
Call dimplereset

  switch% = 1
  sswitch% = 1
  
poetry.SetFocus

End Sub

Private Sub Command14_Click()
 Randomize
  rand% = Int(anntot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstann% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rann$(rand%) & " "               '
    pace% = pace% + Len(rann$(rand%)) + 1             '
    firstann% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 436                                          '
  End If

                                          
  If annswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rann$(rand%) & " "               '
    annswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 436                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rann$(rand%)                     '
      
    repswitch% = 0: patch% = 0

404:                                                  '
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
                  'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36

  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
                   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
   wor$ = rcha$(rand%)

If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If

poetry.SetFocus

End Sub

Private Sub barrow1_Click()

 poetry.SetFocus
 pace% = pace% - 1
 If pace% < 1 Then pace% = 1
 
 poetry.SelStart = pace%
 poetry.SelText = ""

 patch% = 1 
 
 Call icreset
 
ins% = 1
onbut.Visible = True
offbut.Visible = False

End Sub

Private Sub barrow10_Click()

 poetry.SetFocus
 pace% = pace% - 10
 If pace% < 1 Then pace% = 1
 
 poetry.SelStart = pace%
 poetry.SelText = ""

 patch% = 1
 
 Call icreset

ins% = 1
onbut.Visible = True
offbut.Visible = False

End Sub

Private Sub barrow5_Click()

 poetry.SetFocus
 pace% = pace% - 5
 If pace% < 1 Then pace% = 1
 
 poetry.SelStart = pace%
 poetry.SelText = ""

 patch% = 1

 Call icreset

ins% = 1
onbut.Visible = True
offbut.Visible = False

End Sub

Private Sub character_Click()

  Randomize
  rand% = Int(chatot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstcha% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rcha$(rand%) & " "               '
    pace% = pace% + Len(rcha$(rand%)) + 1             '
    firstcha% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 404                                          '
  End If
                                       
  If chaswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rcha$(rand%) & " "               '
    chaswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 404                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rcha$(rand%)                     '
      
    repswitch% = 0: patch% = 0                             '

436:                                                  '
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
                  'ann 36

  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
                   'ann 36
  
   wor$ = rann$(rand%)                       '

If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If
 


poetry.SetFocus


End Sub

Private Sub Command2_Click()
    
    poetry.SetFocus
  If patch% = 1 Then
    patch% = 0
    Else:
    pace% = pace% + Len(wor$)
  End If
    
  If repswitch% = 1 Then pace% = pace% - 1
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = "es "           '
    
    wor$ = "es"                      '
    
'pace% = pace% + Len(wor$) + 1

    
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If
    
Call dimplereset


  switch% = 1
  esswitch% = 1
  
poetry.SetFocus

End Sub

Private Sub Command20_Click()

  Randomize
  rand% = Int(sbstot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstsbs% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rsbs$(rand%) & " "               '
    pace% = pace% + Len(rsbs$(rand%)) + 1             '
    firstsbs% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 422                                          '
  End If

                                          
  If sbsswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rsbs$(rand%) & " "               '
    sbsswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 422                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rsbs$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                              '

422:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
                  'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
                   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
  wor$ = rsbs$(rand%)
   
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If

poetry.SetFocus

End Sub

Private Sub Command22_Click()

  Randomize
  rand% = Int(exctot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstexc% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rexc$(rand%) & " "               '
    pace% = pace% + Len(rexc$(rand%)) + 1             '
    firstexc% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 409                                          '
  End If

                                          
  If excswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rexc$(rand%) & " "               '
    excswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 409                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rexc$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                            '

409:                                                  '
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
                  'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
                   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
  wor$ = rexc$(rand%)

If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If


poetry.SetFocus

End Sub

Private Sub Command23_Click()

  Randomize
  rand% = Int(pertot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstper% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rper$(rand%) & " "               '
    pace% = pace% + Len(rper$(rand%)) + 1             '
    firstper% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 418                                          '
  End If

                                          
  If perswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rper$(rand%) & " "               '
    perswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 418                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rper$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                            '

418:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
                  'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
                   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
  wor$ = rper$(rand%)

If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If


poetry.SetFocus

End Sub

Private Sub Command24_Click()

  Randomize
  rand% = Int(evetot% * Rnd) + 1                     '

  poetry.SetFocus

  If firsteve% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = reve$(rand%) & " "               '
    pace% = pace% + Len(reve$(rand%)) + 1             '
    firsteve% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 408                                          '
  End If

                                          
  If eveswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = reve$(rand%) & " "               '
    eveswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 408                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = reve$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                           '

408:                                                  '
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
                  'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
                   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
  wor$ = reve$(rand%)

If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If


poetry.SetFocus

End Sub

Private Sub Command25_Click()

  Randomize
  rand% = Int(advtot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstadv% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = radv$(rand%) & " "               '
    pace% = pace% + Len(radv$(rand%)) + 1             '
    firstadv% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 402                                          '
  End If

                                          
  If advswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = radv$(rand%) & " "               '
    advswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 402                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = radv$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                               '

402:                                                  '
                    
  firstadj% = 0   'adj  1
                  'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
                   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
  wor$ = radv$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If
poetry.SetFocus

End Sub

Private Sub Command26_Click()

  Randomize
  rand% = Int(saytot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstsay% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rsay$(rand%) & " "               '
    pace% = pace% + Len(rsay$(rand%)) + 1             '
    firstsay% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 421                                          '
  End If

                                          
  If sayswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rsay$(rand%) & " "               '
    sayswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 421                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rsay$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                                '

421:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
                  'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
                   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
 wor$ = rsay$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If


poetry.SetFocus

End Sub

Private Sub Command27_Click()

  Randomize
  rand% = Int(govtot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstgov% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rgov$(rand%) & " "               '
    pace% = pace% + Len(rgov$(rand%)) + 1             '
    firstgov% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 413                                          '
  End If

                                          
  If govswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rgov$(rand%) & " "               '
    govswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 413                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rgov$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                                '

413:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
                  'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
                   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
 wor$ = rgov$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If


poetry.SetFocus

End Sub

Private Sub Command28_Click()

  Randomize
  rand% = Int(degtot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstdeg% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rdeg$(rand%) & " "               '
    pace% = pace% + Len(rdeg$(rand%)) + 1             '
    firstdeg% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 406                                          '
  End If

                                          
  If degswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rdeg$(rand%) & " "               '
    degswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 406                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rdeg$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                           '

406:                                                  '
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
                  'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
                   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
 wor$ = rdeg$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If
poetry.SetFocus

End Sub

Private Sub Command29_Click()

  Randomize
  rand% = Int(whrtot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstwhr% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rwhr$(rand%) & " "               '
    pace% = pace% + Len(rwhr$(rand%)) + 1             '
    firstwhr% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 430                                          '
  End If

                                          
  If whrswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rwhr$(rand%) & " "               '
    whrswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 430                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rwhr$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                             '

430:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
                  'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
                   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
 wor$ = rwhr$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If

poetry.SetFocus

End Sub

Private Sub Command3_Click()

    poetry.SetFocus
  If patch% = 1 Then
    patch% = 0
    Else:
    pace% = pace% + Len(wor$)
  End If
  If repswitch% = 1 Then pace% = pace% - 1
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = "s "           '
    
    wor$ = "s"                      '
    
'pace% = pace% + Len(wor$) + 1

    
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If
    
Call dimplereset


  switch% = 1
  sswitch% = 1
  
poetry.SetFocus

End Sub

Private Sub Command30_Click()

  Randomize
  rand% = Int(mdltot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstmdl% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rmdl$(rand%) & " "               '
    pace% = pace% + Len(rmdl$(rand%)) + 1             '
    firstmdl% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 416                                          '
  End If

                                          
  If mdlswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rmdl$(rand%) & " "               '
    mdlswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 416                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rmdl$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                               '

416:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
                  'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
                   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
 wor$ = rmdl$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If


poetry.SetFocus

End Sub

Private Sub Command31_Click()

  Randomize
  rand% = Int(whntot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstwhn% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rwhn$(rand%) & " "               '
    pace% = pace% + Len(rwhn$(rand%)) + 1             '
    firstwhn% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 429                                          '
  End If

                                          
  If whnswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rwhn$(rand%) & " "               '
    whnswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 429                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rwhn$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                                '

429:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
                  'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
                   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
 wor$ = rwhn$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If

poetry.SetFocus

End Sub

Private Sub Command32_Click()

  preposition.Show
   repswitch% = 0

End Sub

Private Sub Command33_Click()

  conjunction.Show
 repswitch% = 0
  
End Sub


Private Sub Command34_Click()

'  Randomize
'  rand% = Int(beetot% * Rnd) + 1                     '

  s2% = s2% + 1
  rand% = s2%
  If s2% = beetot% + 1 Then s2% = 0

  poetry.SetFocus

  If firstbee% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rbee$(rand%) & " "               '
    pace% = pace% + Len(rbee$(rand%)) + 1             '
    firstbee% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 403                                          '
  End If

                                          
  If beeswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rbee$(rand%) & " "               '
    beeswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 403                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rbee$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                               '

403:                                                  '
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
                  'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
                   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
 wor$ = rbee$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If

poetry.SetFocus

End Sub


Private Sub Command35_Click()

'  Randomize
'  rand% = Int(dovtot% * Rnd) + 1                     '

  
  s1% = s1% + 1
  rand% = s1%
  If s1% = dovtot% + 1 Then s1% = 0
  

  poetry.SetFocus

  If firstdov% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rdov$(rand%) & " "               '
    pace% = pace% + Len(rdov$(rand%)) + 1             '
    firstdov% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 407                                          '
  End If

                                          
  If dovswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rdov$(rand%) & " "               '
    dovswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 407                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rdov$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                                  '

407:                                                  '
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
                  'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
                   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
 wor$ = rdov$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If


poetry.SetFocus

End Sub

Private Sub Command37_Click()

' Randomize
' rand% = Int(havtot% * Rnd) + 1                     '

  s6% = s6% + 1
  rand% = s6%
  If s6% = havtot% + 1 Then s6% = 0
  
  poetry.SetFocus

  If firsthav% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rhav$(rand%) & " "               '
    pace% = pace% + Len(rhav$(rand%)) + 1             '
    firsthav% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 415                                          '
  End If

                                          
  If havswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rhav$(rand%) & " "               '
    havswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 415                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rhav$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                                 '

415:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
                  'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
                   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
 wor$ = rhav$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If

poetry.SetFocus

End Sub

Private Sub Command4_Click()

  Randomize
  rand% = Int(cpttot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstcpt% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rcpt$(rand%) & " "               '
    pace% = pace% + Len(rcpt$(rand%)) + 1             '
    firstcpt% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 405                                          '
  End If

                                          
  If cptswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rcpt$(rand%) & " "               '
    cptswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 405                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rcpt$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                           '

405:                                                  '
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
                  'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
                   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
    wor$ = rcpt$(rand%)

If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If


poetry.SetFocus

End Sub

Private Sub Command5_Click()

 poetry.SetFocus
 pace% = pace% - 10
 If pace% < 1 Then pace% = 1
 
 poetry.SelStart = pace%
 poetry.SelText = ""

 patch% = 1
 
 
 Call icreset

End Sub

Private Sub Command6_Click()

  starter.Show

End Sub

Private Sub Command7_Click()
    
    poetry.SetFocus
  If patch% = 1 Then
    patch% = 0
    Else:
    pace% = pace% + Len(wor$)
  End If
    
  If repswitch% = 1 Then pace% = pace% - 1
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = "ly "           '
    
    wor$ = "ly"                      '
    
'pace% = pace% + Len(wor$) + 1

    
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If
    
Call dimplereset


  switch% = 1
  esswitch% = 1
  
poetry.SetFocus

End Sub

Private Sub Command8_Click()

  Randomize
  rand% = Int(platot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstpla% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rpla$(rand%) & " "               '
    pace% = pace% + Len(rpla$(rand%)) + 1             '
    firstpla% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 419                                          '
  End If

                                          
  If plaswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rpla$(rand%) & " "               '
    plaswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 419                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rpla$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                        '

419:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
                  'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
                   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
  wor$ = rpla$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If


poetry.SetFocus

End Sub




Private Sub Command9_Click()
    
    poetry.SetFocus
  If patch% = 1 Then
    patch% = 0
    Else:
    pace% = pace% + Len(wor$)
  End If
    
  If repswitch% = 1 Then pace% = pace% - 1
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = "y "           '
    
    wor$ = "y"                      '
    
'pace% = pace% + Len(wor$) + 1

    
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If
    
Call dimplereset


  switch% = 1
  esswitch% = 1
  
poetry.SetFocus

End Sub

Private Sub editcarriage_Click()

 If pace% > 0 And pace% < 66 Then
  ret% = 66 - pace%
  GoTo poe
 End If
 
 If pace% > 65 And pace% < 132 Then
  ret% = 132 - pace%
  GoTo poe
 End If
 
 If pace% > 131 And pace% < 198 Then
  ret% = 198 - pace%
  GoTo poe
 End If
 
 If pace% > 197 And pace% < 264 Then
  ret% = 264 - pace%
  GoTo poe
 End If
 
 If pace% > 263 And pace% < 330 Then
  ret% = 330 - pace%
  GoTo poe
 End If
 
 If pace% > 329 And pace% < 396 Then
  ret% = 396 - pace%
  GoTo poe
 End If
 
 If pace% > 395 And pace% < 462 Then
  ret% = 462 - pace%
  GoTo poe
 End If
 
 If pace% > 461 And pace% < 528 Then
  ret% = 528 - pace%
  GoTo poe
 End If
 
 If pace% > 527 And pace% < 594 Then
  ret% = 594 - pace%
  GoTo poe
 End If
 
 If pace% > 594 And pace% < 660 Then
  ret% = 660 - pace%
  GoTo poe
 End If
 
 If pace% > 659 And pace% < 726 Then
  ret% = 726 - pace%
  GoTo poe
 End If
 
 If pace% > 725 And pace% < 792 Then
  ret% = 792 - pace%
  GoTo poe
 End If
 
 If pace% > 791 And pace% < 858 Then
  ret% = 858 - pace%
  GoTo poe
 End If
 
 If pace% > 857 And pace% < 924 Then
  ret% = 924 - pace%
  GoTo poe
 End If
 
 If pace% > 923 And pace% < 990 Then
  ret% = 990 - pace%
  GoTo poe
 End If
 
 If pace% > 989 And pace% < 1056 Then
  ret% = 1056 - pace%
  GoTo poe
 End If
 
 If pace% > 1055 And pace% < 1122 Then
  ret% = 1122 - pace%
  GoTo poe
 End If
 
 If pace% > 1121 And pace% < 1188 Then
  ret% = 1188 - pace%
  GoTo poe
 End If
 
 If pace% > 1187 And pace% < 1254 Then
  ret% = 1254 - pace%
  GoTo poe
 End If
 
 If pace% > 1253 And pace% < 1320 Then
  ret% = 1320 - pace%
  GoTo poe
 End If
 
poe:
 
 poetry.SetFocus
 pace% = pace% + ret%
 poetry.SelStart = pace%
 poetry.SelLength = 0
 poetry.SelText = Space(ret%)
 
 poetry.SelStart = pace%
 poetry.SelLength = 0
 poetry.SelText = ""
 
 failsafe% = pace%
 
 
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
 
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36

 switch% = 0
 patch% = 1
 
poetry.SetFocus

End Sub

Private Sub editcomma_Click()

    poetry.SetFocus
  If patch% = 1 Then
    patch% = 0
    Else:
    pace% = pace% + Len(wor$)
  End If
    
If repswitch% = 1 And sswitch% = 0 Then
  pace% = pace% - 1
End If

    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = ", "           '
    
    wor$ = ","                      '
    
'pace% = pace% + Len(wor$) + 1

    
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If
    
Call dimplereset


  switch% = 1
  
poetry.SetFocus

End Sub

Private Sub editdown_Click()

poetry.SetFocus
 pace% = pace% + 66
 If pace% > (failsafe% + Len(wor$)) Then
   pace% = failsafe% + Len(wor$)
 
 End If
 
 poetry.SelStart = pace%
 poetry.SelText = ""

 patch% = 1
 
 Call icreset

'ins% = 0
'onbut.Visible = False
'offbut.Visible = True

End Sub


Private Sub editget_Click()

' Randomize
' rand% = Int(gtvtot% * Rnd) + 1                     '

  s3% = s3% + 1
  rand% = s3%
  If s3% = gtvtot% + 1 Then s3% = 0

  poetry.SetFocus

  If firstgtv% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rgtv$(rand%) & " "               '
    pace% = pace% + Len(rgtv$(rand%)) + 1             '
    firstgtv% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 414                                          '
  End If

                                          
  If gtvswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rgtv$(rand%) & " "               '
    gtvswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 414                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rgtv$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                                 '

414:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
                  'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
                   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
  wor$ = rgtv$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If

poetry.SetFocus

End Sub

Private Sub editgoes_Click()

  Randomize
  rand% = Int(gostot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstgos% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rgos$(rand%) & " "               '
    pace% = pace% + Len(rgos$(rand%)) + 1             '
    firstgos% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 412                                          '
  End If

                                          
  If gosswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rgos$(rand%) & " "               '
    gosswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 412                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rgos$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                               '

412:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
                  'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
                   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
 wor$ = rgos$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If

poetry.SetFocus

End Sub

Private Sub editgoing_Click()

  Randomize
  rand% = Int(gngtot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstgng% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rgng$(rand%) & " "               '
    pace% = pace% + Len(rgng$(rand%)) + 1             '
    firstgng% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 411                                          '
  End If

                                          
  If gngswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rgng$(rand%) & " "               '
    gngswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 411                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rgng$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                                '

411:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
                  'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
                   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
  wor$ = rgng$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If


poetry.SetFocus

End Sub

Private Sub editgone_Click()

  Randomize
  rand% = Int(gedtot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstged% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rged$(rand%) & " "               '
    pace% = pace% + Len(rged$(rand%)) + 1             '
    firstged% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 410                                          '
  End If

                                          
  If gedswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rged$(rand%) & " "               '
    gedswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 410                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rged$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                             '

410:                                                  '
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
                  'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
                   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
 wor$ = rged$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If
poetry.SetFocus

End Sub

Private Sub editinsert_Click()

 ins% = ins% + 1
 If ins% = 2 Then
   ins% = 0
   onbut.Visible = False
   offbut.Visible = True
   Else:
     onbut.Visible = True
     offbut.Visible = False
  End If
  
  poetry.SetFocus
  
End Sub

Private Sub editlittle_Click()

 littlewords.Show
 repswitch% = 0
 
End Sub

Private Sub editmore_Click()

' Randomize
' rand% = Int(mortot% * Rnd) + 1                     '

  s5% = s5% + 1
  rand% = s5%
  If s5% = mortot% + 1 Then s5% = 0

  poetry.SetFocus

  If firstmor% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rmor$(rand%) & " "               '
    pace% = pace% + Len(rmor$(rand%)) + 1             '
    firstmor% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 434                                          '
  End If

                                          
  If morswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rmor$(rand%) & " "               '
    morswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 434                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rmor$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                                  '

434:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
                  'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
                   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
  wor$ = rmor$(rand%)
  
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If

poetry.SetFocus

End Sub

Private Sub editnot_Click()

' Randomize
' rand% = Int(nottot% * Rnd) + 1                     '

  s4% = s4% + 1
  rand% = s4%
  If s4% = nottot% + 1 Then s4% = 0
  
  poetry.SetFocus

  If firstnot% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rnot$(rand%) & " "               '
    pace% = pace% + Len(rnot$(rand%)) + 1             '
    firstnot% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 432                                          '
  End If

                                          
  If notswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rnot$(rand%) & " "               '
    notswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 432                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rnot$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                                  '

432:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
                  'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
                   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
  wor$ = rnot$(rand%)
  
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If

poetry.SetFocus

End Sub

Private Sub editperiod_Click()

    poetry.SetFocus
  If patch% = 1 Then
    patch% = 0
    Else:
    pace% = pace% + Len(wor$)
  End If
    
If repswitch% = 1 And sswitch% = 0 Then
  pace% = pace% - 1
End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = ". "           '
    
    wor$ = "."                      '
    
'pace% = pace% + Len(wor$) + 1

    
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If
    
Call dimplereset


  switch% = 1
  
  
poetry.SetFocus

End Sub

Private Sub editsaid_Click()

  Randomize
  rand% = Int(sedtot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstsed% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rsed$(rand%) & " "               '
    pace% = pace% + Len(rsed$(rand%)) + 1             '
    firstsed% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 423                                          '
  End If

                                          
  If sedswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rsed$(rand%) & " "               '
    sedswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 423                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rsed$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                              '

423:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
                  'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
                   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
 wor$ = rsed$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If

poetry.SetFocus

End Sub

Private Sub editsaying_Click()

  Randomize
  rand% = Int(sngtot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstsng% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rsng$(rand%) & " "               '
    pace% = pace% + Len(rsng$(rand%)) + 1             '
    firstsng% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 424                                          '
  End If

                                          
  If sngswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rsng$(rand%) & " "               '
    sngswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 424                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rsng$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                              '

424:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
                  'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
                   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
 wor$ = rsng$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If


poetry.SetFocus

End Sub


Private Sub editsays_Click()

  Randomize
  rand% = Int(sastot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstsas% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rsas$(rand%) & " "               '
    pace% = pace% + Len(rsas$(rand%)) + 1             '
    firstsas% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 420                                          '
  End If

                                          
  If sasswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rsas$(rand%) & " "               '
    sasswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 420                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rsas$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                               '

420:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
                  'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
                   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
 wor$ = rsas$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If



poetry.SetFocus

End Sub

Private Sub editstart_Click()

poetry.SetFocus
 pace% = pace% + 66
 poetry.SelStart = pace%
 poetry.SelLength = pace%
 poetry.SelText = Space(pace%)
 
 poetry.SelStart = pace%
 poetry.SelLength = 0
 poetry.SelText = ""

  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
 
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
 
 
 
 switch% = 0

poetry.SetFocus

End Sub

Private Sub edittextend_Click()

 poetry.SetFocus
 pace% = failsafe% + Len(wor$)
 
 poetry.SelStart = pace%
 poetry.SelText = ""

 patch% = 1
 
 Call icreset

ins% = 0
onbut.Visible = False
offbut.Visible = True

End Sub


Private Sub editup_Click()

 poetry.SetFocus
 pace% = pace% - 66
 If pace% < 1 Then pace% = 1
 
 poetry.SelStart = pace%
 poetry.SelText = ""

 patch% = 1

 
 Call icreset

ins% = 1
onbut.Visible = True
offbut.Visible = False

End Sub

Private Sub farrow1_Click()

 poetry.SetFocus
 pace% = pace% + 1
' If pace% > (failsafe% + Len(wor$)) Then
'   pace% = failsafe% + Len(wor$)
' End If
 
 poetry.SelStart = pace%
 poetry.SelText = ""

 patch% = 1
 
 Call icreset

End Sub

Private Sub farrow10_Click()

 poetry.SetFocus
 pace% = pace% + 10
 If pace% > (failsafe% + Len(wor$)) Then
   pace% = failsafe% + Len(wor$)
 
 End If
 
 poetry.SelStart = pace%
 poetry.SelText = ""

 patch% = 1
 
 Call icreset

End Sub




Private Sub farrow5_Click()

 poetry.SetFocus
 pace% = pace% + 5
 'If pace% > (failsafe% + Len(wor$)) Then
 '  pace% = failsafe% + Len(wor$)
 '
 'End If
 
 poetry.SelStart = pace%
 poetry.SelText = ""

 patch% = 1
 
 Call icreset
 

End Sub










Private Sub margin1_Click()

 poetry.SetFocus
 pace% = pace% - 1
 If pace% < 1 Then pace% = 1
 
 poetry.SelStart = pace%
 poetry.SelText = ""

 patch% = 1
 
 
 Call icreset


End Sub

Private Sub margin5_Click()

 poetry.SetFocus
 pace% = pace% - 5
 If pace% < 1 Then pace% = 1
 
 poetry.SelStart = pace%
 poetry.SelText = ""

 patch% = 1
 
 
 Call icreset

End Sub


Private Sub noun_Click()

  Randomize
  rand% = Int(noutot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstnou% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rnou$(rand%) & " "               '
    pace% = pace% + Len(rnou$(rand%)) + 1             '
    firstnou% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 417                                          '
  End If

                                          
  If nouswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rnou$(rand%) & " "               '
    nouswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 417                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rnou$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                            '

417:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
                  'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
                   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
   wor$ = rnou$(rand%)
  
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If


poetry.SetFocus

End Sub


Private Sub Form_Load()



'--------------------------
  poetry.Text = "      "
  pace% = 0
  repswitch% = 1
'-------------------

r% = 1

Open "adj.txt" For Input As #1
Do While Not EOF(1)
  Input #1, radj$(r%)
  r% = r% + 1
Loop
Close #1
 
adjtot% = r% - 1
  
  

r% = 1

Open "ann.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rann$(r%)
  r% = r% + 1
Loop
Close #1
 
anntot% = r% - 1
  
  



r% = 1

Open "nou.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rnou$(r%)
  r% = r% + 1
Loop
Close #1
 
noutot% = r% - 1
  
  
r% = 1

Open "adv.txt" For Input As #1
Do While Not EOF(1)
  Input #1, radv$(r%)
  r% = r% + 1
Loop
Close #1
 
advtot% = r% - 1


r% = 1

Open "bee.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rbee$(r%)
  r% = r% + 1
Loop
Close #1
 
beetot% = r% - 1


r% = 1

Open "cha.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rcha$(r%)
  r% = r% + 1
Loop
Close #1
 
chatot% = r% - 1


r% = 1

Open "cpt.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rcpt$(r%)
  r% = r% + 1
Loop
Close #1
 
cpttot% = r% - 1


r% = 1

Open "deg.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rdeg$(r%)
  r% = r% + 1
Loop
Close #1
 
degtot% = r% - 1


r% = 1

Open "dov.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rdov$(r%)
  r% = r% + 1
Loop
Close #1
 
dovtot% = r% - 1


r% = 1

Open "eve.txt" For Input As #1
Do While Not EOF(1)
  Input #1, reve$(r%)
  r% = r% + 1
Loop
Close #1
 
evetot% = r% - 1


r% = 1

Open "exc.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rexc$(r%)
  r% = r% + 1
Loop
Close #1
 
exctot% = r% - 1


r% = 1

Open "gtv.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rgtv$(r%)
  r% = r% + 1
Loop
Close #1
 
gtvtot% = r% - 1


r% = 1

Open "hav.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rhav$(r%)
  r% = r% + 1
Loop
Close #1
 
havtot% = r% - 1


r% = 1

Open "mdl.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rmdl$(r%)
  r% = r% + 1
Loop
Close #1
 
mdltot% = r% - 1


r% = 1

Open "per.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rper$(r%)
  r% = r% + 1
Loop
Close #1
 
pertot% = r% - 1


r% = 1

Open "pla.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rpla$(r%)
  r% = r% + 1
Loop
Close #1
 
platot% = r% - 1


r% = 1

Open "sbs.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rsbs$(r%)
  r% = r% + 1
Loop
Close #1
 
sbstot% = r% - 1


r% = 1

Open "whn.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rwhn$(r%)
  r% = r% + 1
Loop
Close #1
 
whntot% = r% - 1


r% = 1

Open "whr.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rwhr$(r%)
  r% = r% + 1
Loop
Close #1
 
whrtot% = r% - 1

'----

r% = 1

Open "mor.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rmor$(r%)
  r% = r% + 1
Loop
Close #1
 
mortot% = r% - 1
  
  
r% = 1

Open "not.txt" For Input As #1
Do While Not EOF(1)
  Input #1, rnot$(r%)
  r% = r% + 1
Loop
Close #1
 
nottot% = r% - 1
  
  
  
r% = 1

Open "ver.txt" For Input As #1
Do While Not EOF(1)
    Input #1, rver$(r%), rves$(r%), rvng$(r%), rved$(r%)
  r% = r% + 1
Loop
Close #1
 
vertot% = r% - 1
vestot% = r% - 1
vedtot% = r% - 1
vngtot% = r% - 1



r% = 1

Open "gov.txt" For Input As #1
Do While Not EOF(1)
    Input #1, rgov$(r%), rgos$(r%), rgng$(r%), rged$(r%)
  r% = r% + 1
Loop
Close #1
 
govtot% = r% - 1
gostot% = r% - 1
gedtot% = r% - 1
gngtot% = r% - 1



r% = 1

Open "say.txt" For Input As #1
Do While Not EOF(1)
    Input #1, rsay$(r%), rsas$(r%), rsng$(r%), rsed$(r%)
  r% = r% + 1
Loop
Close #1
 
saytot% = r% - 1
sastot% = r% - 1
sedtot% = r% - 1
sngtot% = r% - 1


'------------------------------
'NL = Chr(13)

'starttext.SetFocus
'starttext.SelStart = 0
'starttext.SelText = "Instructions:"
'starttext.SelText = NL
'starttext.SelText = "kjdkfj"












End Sub


Private Sub poetry_KeyPress(KeyAscii As Integer)
  
  
'------------------------------------

If KeyAscii = 8 Then
  If repswitch% = 1 Then
    pace% = pace% - 1
  End If
  Call icreset
End If

'-------------------------------------

If KeyAscii > 31 And KeyAscii < 123 Then
  If repswitch% = 0 Then
    pace% = pace% + 1 + Len(wor$)
    repswitch% = 1
    Else:
      pace% = pace% + 1
  End If
    failsafe% = failsafe% + 1
    Call icreset
End If

'--------------------------------------

'If KeyAscii = 32 Then
'  pace% = pace% + 1
'  Call icreset
'End If


'  If repswitch% = 0 Then
'    pace% = pace% + 1 + Len(wor$)
'    Else:
'      pace% = pace% + 1
'  End If
'    failsafe% = failsafe% + 1
'    Call icreset
'End If

'---------------------------------------

If KeyAscii = 27 Then
 poetry.SetFocus
 pace% = pace% - 1
 If pace% < 1 Then pace% = 1
 poetry.SelStart = pace%
 poetry.SelText = ""
 patch% = 1
 Call icreset
End If
  
'----------------------------------------

If KeyAscii = 26 Then
 poetry.SetFocus
 pace% = pace% + 1
 failsafe% = failsafe% + 1
' If pace% > failsafe% Then pace% = failsafe%
 poetry.SelStart = pace%
 poetry.SelText = ""
 patch% = 1
 Call icreset
End If
  
'----------------------------------------

If KeyAscii = 13 Then KeyAscii = 0


'----------------------------------------
  
End Sub


Private Sub pronoun_Click()

 pronounform.Show
 repswitch% = 0
 
 
 

End Sub

Private Sub repeat_Click()
  
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
 
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
 
 
 
 If repswitch% = 0 Then
   switch% = 1
   Else: switch% = 0
 End If
 
End Sub


Private Sub space1_Click()

'ins% = 0
'onbutton.Visible = False

poetry.SetFocus

If repswitch% = 0 Then
  pace% = pace% + Len(wor$) + 1
  Else:
    poetry.SelStart = pace%
End If
 poetry.SelLength = 0
 poetry.SelText = " "
 pace% = pace% + 1
 
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30

  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
 
 
 switch% = 0
 patch% = 1
 
poetry.SetFocus

End Sub




Private Sub verb_Click()

  Randomize
  rand% = Int(vertot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstver% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rver$(rand%) & " "               '
    pace% = pace% + Len(rver$(rand%)) + 1             '
    firstver% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 427                                          '
  End If

                                          
  If verswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rver$(rand%) & " "               '
    verswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 427                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rver$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                               '

427:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
                  'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
                   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
  wor$ = rver$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If


poetry.SetFocus

End Sub

Private Sub verbed_Click()

  Randomize
  rand% = Int(vedtot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstved% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rved$(rand%) & " "               '
    pace% = pace% + Len(rved$(rand%)) + 1             '
    firstved% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 425                                          '
  End If

                                          
  If vedswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rved$(rand%) & " "               '
    vedswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 425                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rved$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                          '

425:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
                  'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
                   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
 wor$ = rved$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If

poetry.SetFocus


End Sub

Private Sub verbing_Click()

   Randomize
  rand% = Int(vngtot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstvng% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rvng$(rand%) & " "               '
    pace% = pace% + Len(rvng$(rand%)) + 1             '
    firstvng% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 426                                          '
  End If

                                          
  If vngswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rvng$(rand%) & " "               '
    vngswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 426                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rvng$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                               '

426:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
                  'vng 26
  firstver% = 0   'ver 27
  firstves% = 0   'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
                   'vng 26
  verswitch% = 1   'ver 27
  vesswitch% = 1   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
wor$ = rvng$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If

poetry.SetFocus



End Sub


Private Sub verbs_Click()

  Randomize
  rand% = Int(vestot% * Rnd) + 1                     '

  poetry.SetFocus

  If firstves% = 0 Then                                              '
    If switch% = 1 Then
      pace% = pace% + Len(wor$) + 1
      switch% = 0
    End If
    
    poetry.SelStart = pace%
    poetry.SelLength = 0
    poetry.SelText = rves$(rand%) & " "               '
    pace% = pace% + Len(rves$(rand%)) + 1             '
    firstves% = 1                                     '
    repswitch% = 1
    patch% = 1
    GoTo 428                                          '
  End If

                                          
  If vesswitch% = 1 Then                              '
    pace% = pace% - Len(wor$) - 1
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rves$(rand%) & " "               '
    vesswitch% = 0: switch% = 1                       '
    repswitch% = 0: patch% = 0
    GoTo 428                                          '
  End If
    poetry.SelStart = pace%
    poetry.SelLength = Len(wor$)
     Clipboard.SetText poetry.SelText
     poetry.SelText = ""
    poetry.SelText = rves$(rand%)                     '
      
    repswitch% = 0: patch% = 0
  
                              '

428:
                  
                  
                    
  firstadj% = 0   'adj  1
  firstadv% = 0   'adv  2
  firstbee% = 0   'bee  3
  firstcha% = 0   'cha  4
  firstcpt% = 0   'cpt  5
  firstdeg% = 0   'deg  6
  firstdov% = 0   'dov  7
  firsteve% = 0   'eve  8
  firstexc% = 0   'exc  9
  firstged% = 0   'ged 10
  firstgng% = 0   'gng 11
  firstgos% = 0   'gos 12
  firstgov% = 0   'gov 13
  firstgtv% = 0   'gtv 14
  firsthav% = 0   'hav 15
  firstmdl% = 0   'mdl 16
  firstnou% = 0   'nou 17
  firstper% = 0   'per 18
  firstpla% = 0   'pla 19
  firstsas% = 0   'sas 20
  firstsay% = 0   'say 21
  firstsbs% = 0   'sbs 22
  firstsed% = 0   'sed 23
  firstsng% = 0   'sng 24
  firstved% = 0   'ved 25
  firstvng% = 0   'vng 26
  firstver% = 0   'ver 27
                  'ves 28
  firstwhn% = 0   'whn 29
  firstwhr% = 0   'whr 30
  
  firstfor% = 0   'for 31
  firstnot% = 0   'not 32
  firstthe% = 0   'the 33
  firstmor% = 0   'mor 34
  firstaaa% = 0   'aaa 35
  firstann% = 0   'ann 36
  
  adjswitch% = 1   'adj  1
  advswitch% = 1   'adv  2
  beeswitch% = 1   'bee  3
  chaswitch% = 1   'cha  4
  cptswitch% = 1   'cpt  5
  degswitch% = 1   'deg  6
  dovswitch% = 1   'dov  7
  eveswitch% = 1   'eve  8
  excswitch% = 1   'exc  9
  gedswitch% = 1   'ged 10
  gngswitch% = 1   'gng 11
  gosswitch% = 1   'gos 12
  govswitch% = 1   'gov 13
  gtvswitch% = 1   'gtv 14
  havswitch% = 1   'hav 15
  mdlswitch% = 1   'mdl 16
  nouswitch% = 1   'nou 17
  perswitch% = 1   'per 18
  plaswitch% = 1   'pla 19
  sasswitch% = 1   'sas 20
  sayswitch% = 1   'say 21
  sbsswitch% = 1   'sbs 22
  sedswitch% = 1   'sed 23
  sngswitch% = 1   'sng 24
  vedswitch% = 1   'ved 25
  vngswitch% = 1   'vng 26
  verswitch% = 1   'ver 27
                   'ves 28
  whnswitch% = 1   'whn 29
  whrswitch% = 1   'whr 30
  forswitch% = 1   'for 31
  notswitch% = 1   'not 32
  theswitch% = 1   'the 33
  morswitch% = 1   'mor 34
  aaaswitch% = 1   'aaa 35
  annswitch% = 1   'ann 36
  
  
 wor$ = rves$(rand%)
If ins% = 0 Then
  failsafe% = pace%
  Else:
    If repswitch% = 1 Then
      failsafe% = failsafe% + Len(wor$)
    End If
End If

poetry.SetFocus


End Sub



Begin VB.Form poetryexit 
   Caption         =   "exit poetry machine"
   ClientHeight    =   4365
   ClientLeft      =   1440
   ClientTop       =   1815
   ClientWidth     =   6690
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   4365
   ScaleWidth      =   6690
   Visible         =   0   'False
   Begin VB.CommandButton Command2 
      Caption         =   "Exit poetry machine"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1800
      TabIndex        =   2
      Top             =   3480
      Width           =   2535
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Don't exit poetry machine"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   1200
      TabIndex        =   0
      Top             =   2280
      Width           =   3855
   End
   Begin VB.Label Label1 
      Caption         =   $"pexit25g.frx":0000
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1695
      Left            =   240
      TabIndex        =   1
      Tag             =   "ssssssss"
      Top             =   240
      Width           =   6135
   End
End
Attribute VB_Name = "poetryexit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()

poetryexit.Hide
  
Private Sub Command2_Click()

End
  
End Sub

Begin VB.Form drub 
   Appearance      =   0  'Flat
   BackColor       =   &H0080C0FF&
   Caption         =   "poetry text 25g"
   ClientHeight    =   6390
   ClientLeft      =   -30
   ClientTop       =   1680
   ClientWidth     =   9480
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   8.25
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00000000&
   KeyPreview      =   -1  'True
   LinkMode        =   1  'Source
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   6390
   ScaleWidth      =   9480
   WindowState     =   2  'Maximized
   Begin VB.CommandButton Command14 
      Caption         =   "animal"
      Height          =   255
      Left            =   120
      TabIndex        =   68
      Top             =   5280
      Width           =   1215
   End
   Begin VB.CommandButton Command13 
      Caption         =   "er"
      Height          =   255
      Left            =   3720
      TabIndex        =   67
      Top             =   4440
      Width           =   375
   End
   Begin VB.CommandButton Command12 
      Caption         =   "ed"
      Height          =   255
      Left            =   2760
      TabIndex        =   66
      Top             =   4440
      Width           =   375
   End
   Begin VB.CommandButton Command11 
      Caption         =   "ing"
      Height          =   255
      Left            =   1320
      TabIndex        =   65
      Top             =   4440
      Width           =   495
   End
   Begin VB.CommandButton Command10 
      Caption         =   "en"
      Height          =   255
      Left            =   3240
      TabIndex        =   64
      Top             =   4440
      Width           =   375
   End
   Begin VB.CommandButton Command9 
      Caption         =   "y"
      Height          =   255
      Left            =   2400
      TabIndex        =   63
      Top             =   4440
      Width           =   255
   End
   Begin VB.CommandButton Command7 
      Caption         =   "ly"
      Height          =   255
      Left            =   1920
      TabIndex        =   62
      Top             =   4440
      Width           =   375
   End
   Begin VB.CommandButton Command6 
      Caption         =   "help"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   61
      Top             =   4440
      Width           =   855
   End
   Begin VB.CommandButton Command5 
      Caption         =   "10"
      Height          =   255
      Left            =   6960
      TabIndex        =   60
      Top             =   5760
      Width           =   495
   End
   Begin VB.CommandButton Command3 
      Caption         =   "s"
      Height          =   255
      Left            =   4680
      TabIndex        =   59
      Top             =   4440
      Width           =   255
   End
   Begin VB.CommandButton Command2 
      Caption         =   "es"
      Height          =   255
      Left            =   4200
      TabIndex        =   58
      Top             =   4440
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Caption         =   "exit"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   57
      Top             =   4080
      Width           =   855
   End
   Begin VB.CommandButton editlittle 
      Caption         =   "little words"
      Height          =   255
      Left            =   4440
      TabIndex        =   56
      Top             =   6120
      Width           =   1455
   End
   Begin VB.CommandButton editup 
      Caption         =   "up"
      Height          =   255
      Left            =   8400
      TabIndex        =   55
      Top             =   6120
      Width           =   855
   End
   Begin VB.CommandButton editdown 
      Caption         =   "down"
      Height          =   255
      Left            =   7080
      TabIndex        =   54
      Top             =   6120
      Width           =   855
   End
   Begin VB.CommandButton margin5 
      Caption         =   "5"
      Height          =   255
      Left            =   7080
      TabIndex        =   53
      Top             =   5520
      Width           =   375
   End
   Begin VB.CommandButton margin1 
      Caption         =   "1"
      Height          =   255
      Left            =   7200
      TabIndex        =   52
      Top             =   5280
      Width           =   255
   End
   Begin VB.CommandButton editinsert 
      Caption         =   " i n s e r t"
      Height          =   255
      Left            =   8280
      TabIndex        =   49
      Top             =   4080
      Width           =   1095
   End
   Begin VB.CommandButton editgoing 
      Caption         =   "ing"
      Height          =   255
      Left            =   4200
      TabIndex        =   48
      Top             =   5760
      Width           =   615
   End
   Begin VB.CommandButton editgone 
      Caption         =   "ed"
      Height          =   255
      Left            =   4200
      TabIndex        =   47
      Top             =   5520
      Width           =   615
   End
   Begin VB.CommandButton editgoes 
      Caption         =   "s"
      Height          =   255
      Left            =   4200
      TabIndex        =   46
      Top             =   5280
      Width           =   615
   End
   Begin VB.CommandButton editsaying 
      Caption         =   "ing"
      Height          =   255
      Left            =   3600
      TabIndex        =   45
      Top             =   5760
      Width           =   615
   End
   Begin VB.CommandButton editsaid 
      Caption         =   "ed"
      Height          =   255
      Left            =   3600
      TabIndex        =   44
      Top             =   5520
      Width           =   615
   End
   Begin VB.CommandButton editsays 
      Caption         =   "s"
      Height          =   255
      Left            =   3600
      TabIndex        =   43
      Top             =   5280
      Width           =   615
   End
   Begin VB.CommandButton editnot 
      Caption         =   "not"
      Height          =   255
      Left            =   6000
      TabIndex        =   42
      Top             =   5520
      Width           =   615
   End
   Begin VB.CommandButton editmore 
      Caption         =   "more"
      Height          =   255
      Left            =   6000
      TabIndex        =   41
      Top             =   5760
      Width           =   615
   End
   Begin VB.CommandButton editget 
      Caption         =   "get"
      Height          =   255
      Left            =   6000
      TabIndex        =   40
      Top             =   5280
      Width           =   615
   End
   Begin VB.CommandButton editcarriage 
      Caption         =   "return"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   5880
      TabIndex        =   39
      Top             =   4080
      Width           =   855
   End
   Begin VB.CommandButton editperiod 
      Caption         =   "period"
      Height          =   255
      Left            =   5040
      TabIndex        =   37
      Top             =   4440
      Width           =   735
   End
   Begin VB.CommandButton editcomma 
      Caption         =   "comma"
      Height          =   255
      Left            =   5040
      TabIndex        =   36
      Top             =   4080
      Width           =   735
   End
   Begin VB.CommandButton farrow10 
      Caption         =   "10"
      Height          =   255
      Left            =   7560
      TabIndex        =   34
      Top             =   5760
      Width           =   495
   End
   Begin VB.CommandButton farrow5 
      Caption         =   "5"
      Height          =   255
      Left            =   7560
      TabIndex        =   33
      Top             =   5520
      Width           =   375
   End
   Begin VB.CommandButton farrow1 
      Caption         =   "1"
      Height          =   255
      Left            =   7560
      TabIndex        =   32
      Top             =   5280
      Width           =   255
   End
   Begin VB.CommandButton barrow10 
      Caption         =   "10"
      Height          =   255
      Left            =   8640
      TabIndex        =   31
      Top             =   5760
      Width           =   495
   End
   Begin VB.CommandButton barrow5 
      Caption         =   "5"
      Height          =   255
      Left            =   8640
      TabIndex        =   30
      Top             =   5520
      Width           =   375
   End
   Begin VB.CommandButton barrow1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "1"
      Height          =   255
      Left            =   8640
      TabIndex        =   29
      Top             =   5280
      Width           =   255
   End
   Begin VB.CommandButton space1 
      Caption         =   "space bar"
      Height          =   255
      Left            =   2760
      TabIndex        =   28
      Top             =   4080
      Width           =   2175
   End
   Begin VB.TextBox poetry 
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C0C0&
      Height          =   3855
      HideSelection   =   0   'False
      Left            =   240
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   26
      Top             =   120
      Width           =   9255
   End
   Begin VB.CommandButton repeat 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      Caption         =   "repeat"
      Height          =   255
      Left            =   1320
      TabIndex        =   27
      Top             =   4080
      Width           =   1335
   End
   Begin VB.CommandButton verb 
      Appearance      =   0  'Flat
      BackColor       =   &H00FF8080&
      Caption         =   "verb"
      Height          =   240
      Left            =   2760
      TabIndex        =   0
      Top             =   5040
      Width           =   855
   End
   Begin VB.CommandButton noun 
      Appearance      =   0  'Flat
      BackColor       =   &H00800080&
      Caption         =   "thing"
      Height          =   240
      Left            =   1320
      TabIndex        =   2
      Top             =   5280
      Width           =   1320
   End
   Begin VB.CommandButton adjective 
      Appearance      =   0  'Flat
      BackColor       =   &H000000FF&
      Caption         =   "adjective"
      Height          =   240
      Left            =   1320
      TabIndex        =   1
      Top             =   4800
      Width           =   1320
   End
   Begin VB.CommandButton Command20 
      Appearance      =   0  'Flat
      BackColor       =   &H00800080&
      Caption         =   "substance"
      Height          =   240
      Left            =   1320
      TabIndex        =   5
      Top             =   5040
      Width           =   1320
   End
   Begin VB.CommandButton Command22 
      Appearance      =   0  'Flat
      BackColor       =   &H00808000&
      Caption         =   "exclaim"
      Height          =   240
      Left            =   120
      TabIndex        =   7
      Top             =   5760
      Width           =   1200
   End
   Begin VB.CommandButton verbing 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      Caption         =   "ing"
      Height          =   240
      Left            =   2760
      TabIndex        =   25
      Top             =   5760
      Width           =   855
   End
   Begin VB.CommandButton verbed 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      Caption         =   "ed"
      Height          =   240
      Left            =   2760
      TabIndex        =   24
      Top             =   5520
      Width           =   855
   End
   Begin VB.CommandButton verbs 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      Caption         =   "s"
      Height          =   240
      Left            =   2760
      TabIndex        =   23
      Top             =   5280
      Width           =   855
   End
   Begin VB.CommandButton Command32 
      Appearance      =   0  'Flat
      BackColor       =   &H00FF00FF&
      Caption         =   "preposition"
      Height          =   240
      Left            =   1560
      TabIndex        =   17
      Top             =   6120
      Width           =   1455
   End
   Begin VB.CommandButton Command33 
      Appearance      =   0  'Flat
      BackColor       =   &H00FF00FF&
      Caption         =   "conjunction"
      Height          =   240
      Left            =   3000
      TabIndex        =   18
      Top             =   6120
      Width           =   1455
   End
   Begin VB.CommandButton Command35 
      Appearance      =   0  'Flat
      BackColor       =   &H0000FFFF&
      Caption         =   "do"
      Height          =   240
      Left            =   6000
      TabIndex        =   20
      Top             =   4800
      Width           =   615
   End
   Begin VB.CommandButton Command34 
      Appearance      =   0  'Flat
      BackColor       =   &H0000FFFF&
      Caption         =   "be"
      Height          =   240
      Left            =   6000
      TabIndex        =   19
      Top             =   5040
      Width           =   600
   End
   Begin VB.CommandButton pronoun 
      Appearance      =   0  'Flat
      BackColor       =   &H0000FFFF&
      Caption         =   "pronoun"
      Height          =   240
      Left            =   120
      TabIndex        =   21
      Top             =   6120
      Width           =   1455
   End
   Begin VB.CommandButton Command37 
      Appearance      =   0  'Flat
      BackColor       =   &H0000FFFF&
      Caption         =   "have"
      Height          =   240
      Left            =   6000
      TabIndex        =   22
      Top             =   6000
      Width           =   615
   End
   Begin VB.CommandButton Command30 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFF00&
      Caption         =   "modal"
      Height          =   240
      Left            =   4920
      TabIndex        =   15
      Top             =   4920
      Width           =   960
   End
   Begin VB.CommandButton Command29 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFF00&
      Caption         =   "where"
      Height          =   240
      Left            =   4920
      TabIndex        =   14
      Top             =   5160
      Width           =   960
   End
   Begin VB.CommandButton Command28 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFF00&
      Caption         =   "degree"
      Height          =   240
      Left            =   4920
      TabIndex        =   13
      Top             =   5640
      Width           =   960
   End
   Begin VB.CommandButton Command31 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFF00&
      Caption         =   "when"
      Height          =   240
      Left            =   4920
      TabIndex        =   16
      Top             =   5400
      Width           =   960
   End
   Begin VB.CommandButton Command23 
      Appearance      =   0  'Flat
      BackColor       =   &H00808000&
      Caption         =   "person"
      Height          =   240
      Left            =   120
      TabIndex        =   8
      Top             =   5040
      Width           =   1200
   End
   Begin VB.CommandButton Command27 
      Appearance      =   0  'Flat
      BackColor       =   &H000000FF&
      Caption         =   "go"
      Height          =   240
      Left            =   4200
      TabIndex        =   12
      Top             =   5040
      Width           =   615
   End
   Begin VB.CommandButton Command4 
      Appearance      =   0  'Flat
      BackColor       =   &H00808000&
      Caption         =   "concept"
      Height          =   240
      Left            =   1320
      TabIndex        =   3
      Top             =   5520
      Width           =   1320
   End
   Begin VB.CommandButton Command24 
      Appearance      =   0  'Flat
      BackColor       =   &H00800080&
      Caption         =   "event"
      Height          =   240
      Left            =   120
      TabIndex        =   9
      Top             =   5520
      Width           =   1200
   End
   Begin VB.CommandButton Command8 
      Appearance      =   0  'Flat
      BackColor       =   &H00800080&
      Caption         =   "place"
      Height          =   240
      Left            =   1320
      TabIndex        =   4
      Top             =   5760
      Width           =   1320
   End
   Begin VB.CommandButton Command25 
      Appearance      =   0  'Flat
      BackColor       =   &H000000FF&
      Caption         =   "adverb"
      Height          =   240
      Left            =   2760
      TabIndex        =   10
      Top             =   4800
      Width           =   2055
   End
   Begin VB.CommandButton Command26 
      Appearance      =   0  'Flat
      BackColor       =   &H000000FF&
      Caption         =   "say"
      Height          =   240
      Left            =   3600
      TabIndex        =   11
      Top             =   5040
      Width           =   615
   End
   Begin VB.CommandButton character 
      Appearance      =   0  'Flat
      BackColor       =   &H00808000&
      Caption         =   "character"
      Height          =   240
      Left            =   120
      TabIndex        =   6
      Top             =   4800
      Width           =   1200
   End
   Begin VB.Shape Shape3 
      BackColor       =   &H0080FF80&
      BackStyle       =   1  'Opaque
      Height          =   615
      Left            =   120
      Top             =   4080
      Width           =   1095
   End
   Begin VB.Line Line9 
      X1              =   6960
      X2              =   7320
      Y1              =   5040
      Y2              =   5040
   End
   Begin VB.Line Line8 
      X1              =   6960
      X2              =   7200
      Y1              =   5040
      Y2              =   5160
   End
   Begin VB.Line Line7 
      X1              =   6960
      X2              =   7200
      Y1              =   5040
      Y2              =   4920
   End
   Begin VB.Shape Shape2 
      Height          =   2295
      Left            =   6840
      Top             =   4080
      Width           =   1335
   End
   Begin VB.Label offbut 
      Caption         =   "   off"
      Height          =   255
      Left            =   8880
      TabIndex        =   51
      Top             =   4440
      Width           =   495
   End
   Begin VB.Label onbut 
      BackColor       =   &H000000FF&
      Caption         =   "   on"
      Height          =   255
      Left            =   8280
      TabIndex        =   50
      Top             =   4440
      Visible         =   0   'False
      Width           =   495
   End
   Begin VB.Shape Shape1 
      FillStyle       =   0  'Solid
      Height          =   3855
      Left            =   120
      Top             =   120
      Width           =   135
   End
   Begin VB.Label Label3 
      BackColor       =   &H00C0FFFF&
      Caption         =   "     locate              cursor"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   6840
      TabIndex        =   38
      Top             =   4080
      Width           =   1335
   End
   Begin VB.Line Line6 
      X1              =   7800
      X2              =   8040
      Y1              =   4920
      Y2              =   5040
   End
   Begin VB.Line Line5 
      X1              =   7680
      X2              =   8040
      Y1              =   5040
      Y2              =   5040
   End
   Begin VB.Line Line4 
      X1              =   7800
      X2              =   8040
      Y1              =   5160
      Y2              =   5040
   End
   Begin VB.Line Line3 
      X1              =   8520
      X2              =   8760
      Y1              =   5040
      Y2              =   4920
   End
   Begin VB.Line Line2 
      X1              =   8520
      X2              =   8760
      Y1              =   5040
      Y2              =   5160
   End
   Begin VB.Line Line1 
      X1              =   8520
      X2              =   8880
      Y1              =   5040
      Y2              =   5040
   End
   Begin VB.Label Label2 
      BackColor       =   &H008080FF&
      Caption         =   " "
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2175
      Left            =   8280
      TabIndex        =   35
      Top             =   4200
      Width           =   1095
   End
End
Attribute VB_Name = "drub"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



WinPoet <-- back to

deep archives <-- back to