; hsqcpepzw2.mac
cmx
cfg 8192 4
cl
get 'dat file = ?' indata
get 'mat file = ?' matrix
mat &matrix wr
def gibbs 0
def phase0 0
def phase1 0
def basent bas:baseline
def iwidth 10
def datsiz 4096
def swidth 12500
def rownr 1
for row 1 64
   re &indata
   cnv 0 64
   exr hlf1pnt
   sb 4096 90
   em 12
;   zf 8192
   ft
   ph
   pol 5
   stb 1
   stb 2
   re &indata
   cnv 0 64
   exr hlf1pnt
   sb 4096 90
   em 12
;   zf 8192
   ft
   ph
   pol 5
   adb 2
   mul -1
   adb 1
   ldb 1
   exc
   shl 1024
   def datsiz 1024
   red
   sto 0 &rownr
   ty add &rownr $
   eva rownr (&rownr+1)
   def datype 1
   def datsiz 8192
   ldb 2
;   exc
   shl 1024
   def datsiz 1024
   red
   sto 0 &rownr
   ty sub &rownr $
   eva rownr (&rownr+1)
; the following 2 lines need to be included when processing 
; interleaved noe experiments, either here or at the beginning, 
; depending on whether you're processing the noe or no-noe.
;   re &indata 	
;   re &indata  
next
ty FT in F2 done
return
end