; SORT THE MEMBERS OF A FUNCTION TABLE INTO ASCENDING ORDER ; ifn -- number of table upon which will be sorted opcode tabsort_ascnd,0,i ifn xin iNumItems = ftlen(ifn) imax table 0,ifn icount = 1 loop1: ival table icount,ifn imax = (ival>=imax?ival:imax) loop_lt icount,1,iNumItems,loop1 iTableBuffer ftgentmp 0,0,-iNumItems,-2, 0 icount1 = 0 loop2: icount2 = 0 imin = imax loop3: ival table icount2,ifn if ival<=imin then imin = ival iloc = icount2 endif loop_lt icount2,1,iNumItems,loop3 tableiw imin,icount1,iTableBuffer tableiw imax,iloc,ifn loop_lt icount1,1,iNumItems,loop2 icount = 0 loop4: ival table icount,iTableBuffer tableiw ival,icount,ifn loop_lt icount,1,iNumItems,loop4 endop