SORTING (Pengurutan pada suatu kolom)

SOURCE CODE

MACRO DESCENDING A MCOLUMN A MCONSTANT k1 k2 k3 k4 LET k1= COUNT(A) DO k2= 1: k1-1  DO k3= k2+1 : k1    IF A(k2) < A(k3)       LET k4= A(k3)       LET A(k3)= A(k2)       LET A(k2)= k4    ENDIF  ENDDO ENDDO PRINT A ENDMACRO

MACRO ASCENDING A MCOLUMN A MCONSTANT k1 k2 k3 k4 LET k1= COUNT(A) DO k2= 1: k1-1  DO k3= k2+1 : k1    IF A(k2) > A(k3)       LET k4= A(k3)       LET A(k3)= A(k2)       LET A(k2)= k4    ENDIF  ENDDO ENDDO PRINT A ENDMACRO