// 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(); }