code:

---

break on

; Sorts an array in reverse order ...

$elements = 10
dim $array[$elements]
$array[0] = "Paul"
$array[1] = "Bryce"
$array[2] = "CeeJay"
$array[3] = "Roger"
$array[4] = "Erik"
$array[5] = "Jack"
$array[6] = "Radimus"
$array[7] = "Ruud"
$array[8] = "Henri"
$array[9] = "Ursula"

; Straight selection sort ...

$i = 0
while $i < $elements - 1
 $k = $i
 $min = $array[$k]
 $j = $i + 1
 while $j < $elements
  if $array[$j] > $min
   $k = $j
   $min = $array[$k]
   $array[$k] = $array[$i]
   $array[$i] = $min
  endif
  $j = $j + 1
 loop
 $i = $i + 1
loop

; Print it out ...

$i = 0
while $i < $elements
 ?"array[$i] = " $array[$i]
 $i = $i + 1
loop

exit

---

Shawn.

[This message has been edited by Shawn (edited 14 February 2001).]