! by wang shijun, smie, xaut, Oct. 5, 2011
*del,all ! delete all arrays and variables
n=10 ! number of element in array
*dim, a, array, n ! define an array
! initialize array for test, descending order
*do,i,1,n,1
a(i)=n-i
*enddo
! sort, ascending order
*do,i,1,n,1
*do,j,n,2,-1
*if,a(j),lt,a(j-1),then ! exchange two elements
buff=a(j)
a(j)=a(j-1)
a(j-1)=buff
*endif
*enddo ! do j
*enddo ! do i