Intelligent sorting: A bit of a poser

[DunbarX at aol.com]

This is what comes of these races to publish, especially against Colin. 
Frantic copying and pasting. Horrible mistakes. It has to stop!

Anyway...

function separateNumbers var
    repeat with y =   1 to the number of lines of var
       repeat with u = 1 to the number of chars of line y of var
          if char u of line y of var is   in "0123456789" then
             put comma before char u of line y of var
             exit repeat
          end if
       end repeat
    end repeat
    return var
end separateNumbers

on mouseUp
    put separateNumbers(fld yourField) into temp
    sort temp numeric   by item 2 of each & item 1 of each
    sort temp by item 1 of each
    replace comma with empty in temp
    put temp into fld yourField
end mouseUp