Sub MAIN
<br>Dim suggest$(5)
<br>
<br>
<br>newword$ = ""
<br>alldone = 0
<br>While alldone < 2
<br>lowlimit = 3
<br>highlimit = 8
<br>thelen =  Int(Rnd() * (highlimit - lowlimit) + 1)
<br>For wordmaker = 1 To thelen
<br>lettermaker = Int(Rnd() * (58 - 1) + 1)
<br>If lettermaker = 1 Then letter$ = "a"
<br>If lettermaker = 2 Then letter$ = "a"
<br>If lettermaker = 3 Then letter$ = "a"
<br>If lettermaker = 4 Then letter$ = "b"
<br>If lettermaker = 5 Then letter$ = "b"
<br>If lettermaker = 6 Then letter$ = "c"
<br>If lettermaker = 7 Then letter$ = "c"
<br>If lettermaker = 8 Then letter$ = "d"
<br>If lettermaker = 9 Then letter$ = "d"
<br>If lettermaker = 10 Then letter$ = "e"
<br>If lettermaker = 11 Then letter$ = "e"
<br>If lettermaker = 12 Then letter$ = "e"
<br>If lettermaker = 13 Then letter$ = "f"
<br>If lettermaker = 14 Then letter$ = "f"
<br>If lettermaker = 15 Then letter$ = "g"
<br>If lettermaker = 16 Then letter$ = "g"
<br>If lettermaker = 17 Then letter$ = "h"
<br>If lettermaker = 18 Then letter$ = "h"
<br>If lettermaker = 19 Then letter$ = "i"
<br>If lettermaker = 20 Then letter$ = "i"
<br>If lettermaker = 21 Then letter$ = "i"
<br>If lettermaker = 22 Then letter$ = "j"
<br>If lettermaker = 23 Then letter$ = "k"
<br>If lettermaker = 24 Then letter$ = "l"
<br>If lettermaker = 25 Then letter$ = "l"
<br>If lettermaker = 26 Then letter$ = "m"
<br>If lettermaker = 27 Then letter$ = "m"
<br>If lettermaker = 28 Then letter$ = "m"
<br>If lettermaker = 29 Then letter$ = "n"
<br>If lettermaker = 30 Then letter$ = "n"
<br>If lettermaker = 31 Then letter$ = "o"
<br>If lettermaker = 32 Then letter$ = "o"
<br>If lettermaker = 33 Then letter$ = "o"
<br>If lettermaker = 34 Then letter$ = "p"
<br>If lettermaker = 35 Then letter$ = "p"
<br>If lettermaker = 36 Then letter$ = "q"
<br>If lettermaker = 37 Then letter$ = "r"
<br>If lettermaker = 38 Then letter$ = "r"
<br>If lettermaker = 39 Then letter$ = "r"
<br>If lettermaker = 40 Then letter$ = "s"
<br>If lettermaker = 41 Then letter$ = "s"
<br>If lettermaker = 42 Then letter$ = "s"
<br>If lettermaker = 43 Then letter$ = "t"
<br>If lettermaker = 44 Then letter$ = "t"
<br>If lettermaker = 45 Then letter$ = "t"
<br>If lettermaker = 46 Then letter$ = "u"
<br>If lettermaker = 47 Then letter$ = "u"
<br>If lettermaker = 48 Then letter$ = "u"
<br>If lettermaker = 49 Then letter$ = "v"
<br>If lettermaker = 50 Then letter$ = "v"
<br>If lettermaker = 51 Then letter$ = "w"
<br>If lettermaker = 52 Then letter$ = "w"
<br>If lettermaker = 53 Then letter$ = "w"
<br>If lettermaker = 54 Then letter$ = "x"
<br>If lettermaker = 55 Then letter$ = "y"
<br>If lettermaker = 56 Then letter$ = "y"
<br>If lettermaker = 57 Then letter$ = "y"
<br>If lettermaker = 58 Then letter$ = "z"
<br>FontSize 14
<br>Insert letter$
<br>Next wordmaker
<br>
<br>ParaDown
<br> 
<br>ParaUp 1, 1
<br> 
<br>Redim suggest$(5)
<br>ToolsGetSpelling suggest$(), newword$
<br>stayassel$ = newword$
<br>newword$ = newword$
<br>  
<br> 
<br>loop = 1
<br>possibility$ = suggest$(loop)
<br> 
<br>checklen = Len(possibility$)
<br> 
<br>If checklen <> 0 Then newword$ = possibility$
<br>
<br>If newword$ <> stayassel$ Then alldone = alldone + 1
<br>If newword$ <> "" Then alldone = alldone + 1
<br>Insert newword$
<br>Wend
<br>Insert Chr$(13)
<br>End Sub
<br>
<br>