set stat 111111111

n=8
s1=1;  l1=3 
s2=1;  l2=4 
s3=1;  l3=5 
s4=1;  l4=6 
s5=15; l5=17 
s6=16; l6=11
s7=18; l7=11
s8=21; l8=4

do i=1,[n]
  do j=1,2
    is=[s[i]]
    il=[l[i]]
    ie=[j]
    hid=[i]*10+[j]
    1d [hid] '0.5*(ds-start) sector='//[is]//' layer='//[il]//' end='//[ie] 200 -400. -200.
    nt/pl 1.(ds-start)*0.5 hit=nhit.and.layer=[il].and.sector=[is].and.end=[ie] 1000000 -[hid]
  enddo
enddo

hi/file 22 check_bad_modules.hbk ! N
do i=1,[n]
  do j=1,2
    hid=[i]*10+[j]
    hrout [hid]
  enddo
enddo
close 22

zone 1 2
for/file 66 check_bad_modules.ps
meta 66 -111
do i=1,[n]
  do j=1,2
    hid=[i]*10+[j]
    hi/pl [hid]
  enddo
enddo
close 66