Data commit

Task/Pancake-numbers/BASIC256/pancake-numbers.basic

@@ -0,0 +1,23 @@
+c = 0
+
+for i = 0 to 3
+	for j = 1 to 5
+		n = (i * 5) + j
+		c += 1
+		print "p("; rjust(string(n),2); ") = "; pancake(n); "  ";
+		if c mod 5 = 0 then print
+	next j
+next i
+end
+
+function pancake(n)
+	gap = 2
+	sum = 2
+	adj = -1
+	while sum < n
+		adj += 1
+		gap = (gap * 2) - 1
+		sum += gap
+	end while
+	return rjust(string(n + adj), 2)
+end function