WHILE choice = K_CONTINUE DISPLAY ARRAY m_arr TO s_arr.* ON SORT ... CALL m_arr.sort("sortfield", FALSE) LET choice = K_CONTINUE EXIT DISPLAY END DISPLAY END WHILE