Sort Revisited 1

[1LastTime]

I guess I could not use Aspect but I found out I could you the MSDOS 'Sort.exe'. It works ok but after reading about it's issues, I found another called rpsort which I'm working with now. For your review(if you want)from the script. Any better ideas are welcome.

string sSortTxt="sort.exe"
string sOPER1 = " /+1 ",sOPER2 = " /O "
string sTempSort = "Sorted.txt"
integer TaskId

strfmt sStatus " * Sorting from %s to %s" sOutPutFile sTempSort
dlgupdate 100 300
pause 1
fetch capture path sCAP_PATH
chdir sCAP_PATH

strcat sSortTxt sOPER1
strcat sSortTxt sOutPutFile
strcat sSortTxt sOPER2
strcat sSortTxt sTempSort

DOS sSortTxt HIDDEN TaskId
while taskexists TaskId
YIELD
endwhile
sDone2="Done"
dlgupdate 100 16