Added September 2010

.EXTENT(ARY(){,SUBNO}) returns the "extent" of the subscript number SUBNO (default 1) in the array ARY(). This works for static arrays, but is mainly of interest with DIMX arrays, and especially those with the AUTO_EXTEND attribute. For example:

DIMX ARY(P,Q,R),S,25,AUTO_EXTEND

...

PRINT .EXTENT(ARY())  ! prints maximum current value of the first subscript, i.e. P in ARY(P,Q,R)

PRINT .EXTENT(ARY(),2)  ! prints maximum current value of the second subscript, i.e. Q in ARY(P,Q,R)

 

This is an A-Shell extension that was added A-Shell build 1192 of September 2010 and requires COMPIL /X:2.