42 lines
820 B
Plaintext
42 lines
820 B
Plaintext
OpenConsole()
|
|
Procedure TheGameName(nombre.s)
|
|
x.s = LCase(nombre)
|
|
x = UCase(Mid(x, 1, 1)) + Mid(x, 2, Len(x) - 1)
|
|
x0.s = UCase(Mid(x, 1, 1))
|
|
|
|
If x0 = "A" Or x0 = "E" Or x0 = "I" Or x0 = "O" Or x0 = "U"
|
|
y.s = LCase(x)
|
|
Else
|
|
y.s = Mid(x, 2, Len(x) - 1)
|
|
EndIf
|
|
|
|
b.s = "b" + y
|
|
f.s = "f" + y
|
|
m.s = "m" + y
|
|
|
|
Select x0
|
|
Case "B"
|
|
b = y
|
|
Case "F"
|
|
f = y
|
|
Case "M"
|
|
m = y
|
|
EndSelect
|
|
|
|
PrintN(x + ", " + x + ", bo-" + b + #CRLF$ + "Banana-fana fo-" + f + #CRLF$ + "Fee-fi-mo-" + m + #CRLF$ + x + "!" + #CRLF$)
|
|
EndProcedure
|
|
|
|
Dim listanombres.s(5)
|
|
listanombres(0) = "Gary"
|
|
listanombres(1) = "EARL"
|
|
listanombres(2) = "billy"
|
|
listanombres(3) = "FeLiX"
|
|
listanombres(4) = "Mary"
|
|
listanombres(5) = "ShirlEY"
|
|
|
|
For i = 0 To 5
|
|
TheGameName(listanombres(i))
|
|
Next i
|
|
Input()
|
|
CloseConsole()
|