Example of R1 programs

// bubble sort 

global data[10], maxdata;

init()
{ 
  i = maxdata;
  while(i) {
    data[i] = i; i = i-1;
  }
}

show()
{ 
  i = maxdata;
  while(i) { print(data[i],"\n"); i = i-1; }
}

swap(a,b)
{ 
  t = data[a]; data[a] = data[b]; data[b] = t; 
}

sort()
{ 
  i = maxdata;
  while(i) {
    j = 1;
    while(j < i) {
      if ( data[j] < data[j+1]) swap(j,j+1);
      j = j+1;
    }
    i = i-1;
  }
}

main ()
{
  maxdata = 5;
  init();
  swap(1,4);
  show();
  sort();
  show();
}