The Name Game: Difference between revisions

</pre>

=={{header|BASIC256}}==

{{trans|FreeBASIC}}

<lang BASIC256>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</lang>

{{out}}

<pre>

Igual que la entrada de FreeBASIC.