Need custom sorting algorithm

[random1]

Code: (Select All)

CONST columns = 20, rows = 10



DIM a(1 TO rows) AS STRING

FOR i = 1 TO rows

    FOR j = 1 TO columns

        IF INT(RND * 2) THEN a(i) = a(i) + "*" ELSE a(i) = a(i) + "-"

    NEXT

    PRINT a(i)

NEXT



DIM matches(columns)



FOR i = 1 TO rows

    FOR j = 1 TO columns

        IF MID$(a(i), j, 1) = "*" THEN matches(j) = matches(j) + 1

    NEXT

NEXT



FOR i = 1 TO columns '

    PRINT _TRIM$(STR$(matches(i)));

NEXT



PRINT

PRINT "SORTED BY MOST MATCHES:"

FOR count = columns TO 1 STEP -1

    print_label = 0

    FOR j = 1 TO columns

        IF matches(j) = count THEN

            IF print_label = 0 THEN PRINT count; " MATCHES:";: print_label = -1

            PRINT j;

        END IF

    NEXT

    IF print_label THEN PRINT

NEXT

As so.  (I decided to go in and finish the little routine here for you.) 

Thanks, this fits the bill, missed it in my earlier post.