for i = 1 to 9  ' get numbers 1 to 9
 n(i) = i
next i
numShuffles = 3
' ----------------------------------
' shuffle numbers
' ----------------------------------
for 	i 	= 1 to 9 * numShuffles
	i1	= int(rnd(1)*9) + 1
	i2	= int(rnd(1)*9) + 1
	h2	= n(i1)
	n(i1)	= n(i2)
	n(i2)	= h2
next i

for i = 1 to 9
 a$ = a$ + str$(n(i)) + " "
next i
count = 0

[loop]
  count = count + 1
  print count;" : ";a$
    for i = 1 to 9                ' check if in sequence
      j = i * 2
      if mid$(a$,j-1,1) > mid$(a$,j,1) then goto [notOrdered]
    next i
  print "It took ";count;" tries"
end

[notOrdered]
input "How many numbers to flip:";i
i  = ((i-1) * 2) + 1
b$ = ""
for j = i to 1 step -2
   b$ = b$ + mid$(a$,j,2)
next j
a$  = b$ + mid$(a$,i + 2)
goto [loop]
end