選所有單元
ENO=0
定義ENO值為0
*DO,I,1,COLU_COUNT
定義I為循環變量,從1至COLU_COUNT
*DO,J,1,ROW_COUNT
定義J為循環變量,從1至ROW_COUNT
*IF,ENO,EQ,0,THEN
定義第壹個數(最末行第壹列,即左下角數為1)
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
結束J循環
*ENDDO
結束I循環