;hsqclr.abx  hsqc with selective 180(1H) pulses for high S/N
;J. Magn. Reson. Ser A 119, 134-138 (1996), figure 1C.
;long-range correlation. Process phase sensitive (States mode on Bruke
r)
;low power GARP during data acq. (gB2 = 13C(SW)/5 for dl0).
;fully decoupled in 13C dimension
;carefully adjust ph0 to be the same phase as ph1 to minimize t1 noise
;BMRB Pulse Sequence Accession Number: 8
#include "bits.sg"    ;home made gradient pulse control
d12=7m
d4=40m
d26=p2-p3*2.2
d11=50m
1 ze
  10u CLEAR_BITS       ;reset all external control lines
2 d11 do
3 d12*2
4 1m do
  d1 RESET             ;reset all external control lines, lock on
  1m dhi hl1  HIGH(11)   ;lock hold on
  p1 ph1
  2u
  GRAD(20, POSITIV, 10)   ;500 us gradient
  d5 hl2
  (p2*2 ph0):f1 (d26 p3 ph2 2u p3*2.4 ph12 2u p3 ph2):f2
  2u
  GRAD(21, POSITIV, 10)   ;500 us gradient
  d5 hl1
  (p1 ph10):f1
  GRAD(22, POSITIV, 60)   ;3 ms gradient
  (p3 ph3):f2
  d0
  p1*2 ph0
  d0
  (p3 ph2):f2
  (p1 ph1):f1
  2u
  GRAD(30, POSITIV, 6)   ;300 us gradient
  d4 hl2
  (p2*2 ph0):f1 (d26 p3 ph2 2u p3*2.4 ph12 2u p3 ph2):f2
  2u
  GRAD(31, POSITIV, 6)   ;300 us gradient
  d4 hl1 dlo
  (p1 ph30):f1
  2u dl0
  go=2 ph31 cpd
  d11 do wr #0 if #0 ip3 zd
  lo to 3 times 2
  d12 ip31
  lo to 3 times l3
  1m RESET
  do
exit

ph1=0
ph31=0 2 2 0
ph0=(360)325
ph3=0 0 2 2
ph2=0
ph12=1
ph10=1 3
ph30=0