100 c = 0
110 for i = 0 to 3
120   for j = 1 to 5
130     n = (i*5)+j
140     c = c+1
150     print "p(";format$(n,"##");") = ";format$(pancake(n),"##");"  ";
160     if c mod 5 = 0 then print
170   next j
180 next i
190 end
200 function pancake(n)
210   gap = 2
220   sum = 2
230   adj = -1
240   while sum < n
250     adj = adj+1
260     gap = (gap*2)-1
270     sum = sum+gap
280   wend
290   pancake = n+adj
300 end function