**TI83** 09/17/03, 20:41igroupexplorer\LEN.83l.S DROWOPDBÖA?Ø\?Ø\?Þ*1)TO)DIVIDE*?Þ*2)TO)‚ROWp*?Þ*3)TO)REVERT*?Þ*4)TO)SWAP)ROWS*?Ü*5)TO)STOP)*+V?ÎVj5?Ï?Ù?Ð?ÎVj3?Ï?\\?\ \?\\ ?Ð?\\ ?ÎVj1?Ï?Ü*DIVIDE)ROW)*+R?Ü*BY)*+X>1ƒX+\+R\?Ð?ÎVj4?Ï?Ü*SWAP)ROW)*+R?Ü*AND)ROW)*+J?\+R+J\?Ð?Ü*REPLACE)ROW)*+R?Ü*BY)ITpK‚ROW)J>Kj)*+K?Ü*)Jj*+J>K+\+J+R\?Ô>Ô>Ô?×A?‚_