randomize timer()


   cls
   set cursor 0,0
   print generateName$(5)
   print generateName$(6)
   print generateName$(7)
   print generateName$(8)
   print generateName$(9)
   print
   print generateName$(5)
   print generateName$(6)
   print generateName$(7)
   print generateName$(8)
   print generateName$(9)
   print
   print generateName$(5)
   print generateName$(6)
   print generateName$(7)
   print generateName$(8)
   print generateName$(9)


suspend for key



function generateName$(length)
   werd$ = ""
   con = 0
   vow = 0
   cc = 0

   for c = 1 to length
      if vow+con = 0
         a$ = chr$(rnd(25)+97)
         if isVowel(a$)
            con = 1
         else
            inc cc, 1
            if cc = 2 then vow = 1 : cc = 0
         endif
      else
         if vow = 1 then a$ = getVowel$(rnd(4)+1) : vow = rnd(1)
         if con = 1 then a$ = getCon$(rnd(20)+1) : con = 0
      endif


      if a$="c" OR a$="p" OR a$="s" then if rnd(1) then a$ = a$+"h"
      if a$="q" then if rnd(2) then a$ = a$+"u"

      werd$ = werd$+a$
   next c
endfunction werd$


function isVowel(L$)
   if L$ = "a" OR L$ = "e" OR L$ = "i" OR L$ = "o" OR L$ = "u" then exitfunction 1
endfunction 0



function getCon$(c)
   cons$ = "bcdfghjklmnpqrstvwxyz"
   cc$ = mid$(cons$,c)
endfunction cc$

function getVowel$(v)
   vows$ = "aeiou"
   vv$ = mid$(vows$,v)
endfunction vv$