ESEL,ALL ENO=0 *DO,I,1,COLU_COUNT *DO,J,1,ROW_COUNT *IF,ENO,EQ,0,THEN K=COLU_COUNT-I+1 DYPX(K,J)=1 ENO=ENO+1 *ELSE K=COLU_COUNT-I+1 DYPX(K,J)=ELNEXT(ENO) ENO=ENO+1 *ENDIF *ENDDO *ENDDO