LBL "SORTUP" 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