37 lines
678 B
Plaintext
37 lines
678 B
Plaintext
subroutine TheGameName(nombre)
|
|
x = lower(nombre)
|
|
x = upper(mid(x,1,1)) + (mid(x,2,length(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,length(x)-1)
|
|
end If
|
|
|
|
b = "b" + y
|
|
f = "f" + y
|
|
m = "m" + y
|
|
|
|
begin case
|
|
case x0 = "B"
|
|
b = y
|
|
case x0 = "F"
|
|
f = y
|
|
case x0 = "M"
|
|
m = y
|
|
end case
|
|
|
|
print x + ", " + x + ", bo-" + b
|
|
print "Banana-fana fo-" + f
|
|
print "Fee-fi-mo-" + m
|
|
print x + "!" + chr(10)
|
|
end subroutine
|
|
|
|
dim listanombres[5]
|
|
listanombres = {"Gary", "EARL", "billy", "FeLiX", "Mary", "ShirleY"}
|
|
for i = 0 to listanombres[?]-1
|
|
call TheGameName(listanombres[i])
|
|
next i
|
|
end
|