Data update

Task/The-Name-Game/PureBasic/the-name-game.basic

@@ -0,0 +1,41 @@
+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()