

//2维数组 B[2,2]
//下面不用, 是为了避免 麻烦。 ',' 在PECMD作为默认的定界符。
//不怕麻烦，','也可以用
//可以.;:等
ENVI  B[1.1]=1_1
ENVI  B[1.2]=1_2
ENVI  B[2.1]=2_1
ENVI  B[2.2]=2_2

_SUB LISTARRAY
   TEAM ENVI &&I=1|  ENVI &&J=1| ENVI &&MSG=    //空
   LOOP #%I%<=2,
   {
     ENVI &J=1
     LOOP #%J%<=2,
     {
        ENVI~ &&aitem=B[%&I%.%&J%]
        ENVI &MSG= %&MSG% \nB[%&I%,%&J%]=%&aitem%
        CALC &J= %&J% + 1
     }
     CALC &I= %&I% + 1
   }
   MESS [\n%&MSG%\n]@DEBUG#OK
_END

LISTARRAY
