"Load the gNfhsqc dataset"
gNfhsqc

"Replace the pulse sequence"
seqfil='gNfhsqc_His'

"Set INEPT transfer delay to observe long-range correlations"
"and cancel all one-bond correlations"
JNH=22.75

"Set 15N spectral width to 200 ppm"
sw1=200*dfrq2

"Shift 15N carrier from 120 ppm to 200 ppm"
dof2=dof2+80*dfrq2

"Shift 13N carrier from 115 ppm to 125 ppm"
dof=dof+10*dfrq

"Disable 15N decoupling, enable 13C decoupling"
dm='nny' dm2='nnn'

"Set 13C decoupling parameters"
BPpboxget('wurst40.DEC'):dseq,$dmmy,dpwr,$dmmy,dres,dmf


