mod_assemb_prep
!
k,,0,0
k,,7,1
k,,8,7
k,,7.75,7.25
k,,3,8
k,,0,5
!
create_area
!
lplot



!*go,:skip1

!                (1)     (2)   (3)  (4)   (5)    (6)   (7)
! ENTITY_ARRAY, entity, aname, typ, dir, #rows, #col, #pln
!
ENTITY_ARRAY,'l','lnset','array'



!             (1)   (2)   (3)   (4)  (5)  (6)   (7)   (8)
! MAX_VALUE, anam, nrow, ncol, npln, dir, pos1, pos2, pos3
!

MAX_VALUE,'lnset',ecount

parsav,all,block,parm

!:skip1




*go,:skip2

!                (1)     (2)   (3)  (4)   (5)    (6)   (7)
! ENTITY_ARRAY, entity, aname, typ, dir, #rows, #col, #pln
!
ENTITY_ARRAY,'l','lnset','array',2,3,,5



!             (1)   (2)   (3)   (4)  (5)  (6)   (7)   (8)
! MAX_VALUE, anam, nrow, ncol, npln, dir, pos1, pos2, pos3
!

MAX_VALUE,'lnset',3,ecount,5,2,1,1,1

parsav,all,block,parm

:skip2




!*go,:skip3

!                (1)     (2)   (3)  (4)   (5)    (6)   (7)
! ENTITY_ARRAY, entity, aname, typ, dir, #rows, #col, #pln
!
ENTITY_ARRAY,'l','lnset','array'



!             (1)   (2)   (3)   (4)  (5)  (6)   (7)   (8)
! MIN_VALUE, anam, nrow, ncol, npln, dir, pos1, pos2, pos3
!

MIN_VALUE2,'lnset',ecount

parsav,all,block,parm

!:skip3


*go,:skip4

!                (1)     (2)   (3)  (4)   (5)    (6)   (7)
! ENTITY_ARRAY, entity, aname, typ, dir, #rows, #col, #pln
!
ENTITY_ARRAY,'l','lnset','array',2,3,,5



!             (1)   (2)   (3)   (4)  (5)  (6)   (7)   (8)
! MIN_VALUE, anam, nrow, ncol, npln, dir, pos1, pos2, pos3
!

MIN_VALUE2,'lnset',3,ecount,5,2,1,1,1

parsav,all,block,parm

:skip4