37 lines
748 B
Plaintext
37 lines
748 B
Plaintext
dim listanombres$(5)
|
|
|
|
for i = 0 to 5
|
|
read listanombres$
|
|
call TheGameName listanombres$
|
|
next i
|
|
data "Gary", "EARL", "billy", "FeLiX", "Mary", "ShirleY"
|
|
end
|
|
|
|
sub TheGameName nombre$
|
|
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$
|
|
|
|
select case x0$
|
|
case "B" : b$ = y$
|
|
case "F" : f$ = y$
|
|
case "M" : m$ = y$
|
|
end select
|
|
|
|
print x$ + ", " + x$ + ", bo-" + b$
|
|
print "Banana-fana fo-" + f$
|
|
print "Fee-fi-mo-" + m$
|
|
print x$ + "!"
|
|
print
|
|
end sub
|