archives <-- back to
WinPoet <-- back to
WinPoet program code
Author: Roger Luebeck
This was one of my quicker software developments.
I managed to write the entire program over the
course of three days.
1. example of code block associated
with an element of speech
2. KeyAscii routines
3. variables declaration section
4. Form Load instructions
5. 24 code blocks for elements of speech
(83 percent of the code, with considerable
similarity between code blocks)
6. interface specifications
(largely generated by dragging and resizing icons)
This is 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$
'----------------------------------------
'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
----------------------------------
code blocks for elements of speech
----------------------------------
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
archives <-- back to
|