// bubble sort

//maxdata = 20
enum
  20 maxdata

//: print x = syscall {1 x}
//: nl = syscall {2 10}
//: space = syscall {2 32}

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

// main

// end

