LBL "SORTDW" 
SIGN 
LBL 01
LASTX 
LASTX 
RCL IND L 
LBL 02 
X>=NN? 
GTO 03 
X<>Y 
STO Y 
RCL IND X 
LBL 03 
ISG Y 
GTO 02 
X<> IND L 
STO IND Z 
ISG L 
GTO 01 
END