!
! Compute mean of subscans
!
pen 1 /wei 5
def int jj j1 j2 k
let k &1
def real sum
let jj  0
for i 1 to nsubscan
 let sum 0
 for j 1 to nsubrec[i]
   let jj jj+1	
   let sum sum+signal[jj,k]
 next
 if (nsubrec[i].ne.0) then
  let sum sum|nsubrec[i]
 endif
 let j1 jj-nsubrec[i]+1
 let j2 jj
 draw r lst[j1] sum /user
 draw l lst[j2] sum /user
next
pen 0