! DK:DSORT.TXT   DATE: 1-JUN-83   TIME: 10:19:12 !
! sort routine for directory sorts, installed and called by DIRSRT !

BJ XZ K 0UZ 10UG L I~~~~~~~~~~$13I$10I$
<
%Z=$ ZJ -L .UB :S~$:;'
0UA 0UC
!STEP!
QAJ QCAUD QBJ QCAUE
QD-QE"L QAJ L .UA 0UC OSTEP$'
QD-QE"G QBJ XA K QAJ GA F<'
1%C$ QC-QG"L OSTEP$'
QBJ XA K QAJ GA
>
ZJ -L K J GZ 7^T$$
                                                                                                                                                                