dim listanombres$(5)
listanombres$(0) = "Gary"
listanombres$(1) = "EARL"
listanombres$(2) = "billy"
listanombres$(3) = "FeLiX"
listanombres$(4) = "Mary"
listanombres$(5) = "ShirlEY"

for i = 0 to arraysize(listanombres$(), 1)
    TheGameName(listanombres$(i))
next i
end

sub TheGameName(nombre$)
    local x$, x0$, y$, b$, f$, m$
    x$ = lower$(nombre$)
    x$ = upper$(mid$(x$, 1, 1)) + mid$(x$, 2, len(x$) - 1)
    x0$ = upper$(mid$(x$, 1, 1))

    if x0$ = "A" or x0$ = "E" or x0$ = "I" or x0$ = "O" or x0$ = "U" then
        y$ = lower$(x$)
    else
        y$ = mid$(x$, 2)
    end if

    b$ = "b" + y$
    f$ = "f" + y$
    m$ = "m" + y$

    switch x0$
    case "B" : b$ = y$
    case "F" : f$ = y$
    case "M" : m$ = y$
    end switch

    print x$ + ", " + x$ + ", bo-" + b$
    print "Banana-fana fo-" + f$
    print "Fee-fi-mo-" + m$
    print x$ + "!" + chr$(10)
end sub