lang/basic/test/test31.b

   1 10 a$(0)= "fbc"
   2 11 a$(1)= "fcc"
   3 12 a$(2)= "abb"
   4 90 'bubble sort array
   5 100 j=2: flips=1 'one more pass
   6 110 while flips
   7 115     flips=0
   8 120     for i=0 to j-1
   9 130     if a$(i)>a$(i+1) then swap a$(i),a$(i+1): flips=1
  10 140     nexti
  11 150 wend