Data commit

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

@@ -0,0 +1,36 @@
+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