sort closest to zero

[debluzz]

Can some one please help me to make this sort ,so that it produces  (order) closest to zero



<code>
'3RD MASTER

print " "

print "MASTER (CLOSEST TO ZERO)"

SCORE( 1) =64.8

SCORE( 2) =15

SCORE( 3) =58.1

SCORE( 4) =25.9

SCORE( 5) =-15

SCORE( 6) =-21.3

SCORE( 7) =44.3

SCORE( 8) =-68.8





for i= 1 to 5

print " #"; i; " *";

a1 =( i) 


for r =1 to a1

print "-";

next



print ">"



for SCORE =( a1 +1) to 20

print "X";

next





next i

</code>
thank you

[tsh73]

try this
SCORE( 1) =64.8
SCORE( 2) =15
SCORE( 3) =58.1
SCORE( 4) =25.9
SCORE( 5) =-15
SCORE( 6) =-21.3
SCORE( 7) =44.3
SCORE( 8) =-68.8

dim a(8,2)
for i = 1 to 8
   a(i,1)=SCORE( i)
   a(i,2)=abs(a(i,1))  'absolute values. Minimum will be closest to 0
next

sort a(), 1, 8, 2   'by second column
for i = 1 to 8
   print i, a(i,1)
next

end



[debluzz]

thanks, I'll mess with it.