// bubble sort

//maxdata = 20
enum
  20 maxdata

to init | i =
  for i 0 maxdata-1
    data[i] = maxdata - i

to show | i =
  for i 0 maxdata-1
    print data[i] space
  nl

to swap a b | t =
  t = data[a]
  data[a] = data[b]
  data[b] = t

to sort | i j =
  for i 0 maxdata-1
    for j 0 maxdata-2
      if data[j+1] < data[j]
        swap j j+1

to main = 
  data = array maxdata
  init show sort show
//  init sort

main



