Makes up names at random

Program makes up names at random. It picks a consanant and then a vowel.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    for L=1 to 20
A$="BCDFGHJKLMNPRSTVWYZ"
B$="AEIOU"
Z=RND(2)+2
FOR X=1 TO Z
B=RND(19)+1
C$=C$+MID$(A$,B)
IF LEN(C$)>4
B$="AEIOUY"
ELSE
ENDIF
B=RND(4)+1
C$=C$+MID$(B$,B)
NEXT X
B=RND(4)
IF B=>1 AND LEN(C$)>5
C$=LEFT$(C$,LEN(C$)-1)
ELSE
ENDIF
PRINT C$
WAIT mouse
C$=""
next L