Appendix A
NMR.Execute("~AMODE")
' Change to Acquisition mode and
SaveSeq=NMR.GetParameter(''%SEQFILE") ' save current sequence
NMR.E×ecute("LOAD DEGAUSS")
NMR.Execute("GX 32767")
NMR.Execute("GY 32767")
NMR-ExecuteCGZ 32767”)
NMR-ExecuteCNS 1")
NMR.Execute("DS O")
NMR.GO
NMR.Execute(',~AMODE") ' Change to Acquisition
NMR.Execute("LOAD CPMG") 'perform cpmg before each diffusion
NMR-StatusMessageCPerform CPMG D4 = " & s )
NMR.G0
NMR.Execute("WR '' & DataName & i & ,,T2,' &,'." & Ext & " Y") ' save it
NMR-ExecuteCEX '' & DataName & i & "T2" & "." & Ext & " T") ' save it
NMR-ExecuteC-AMODE'')
NMR.Execute(''LOAD PROFILE") 'perform profile before each diffusion
NMR.Execute("RD 0.6S'')
NMR-StatusMessageCPerform Profile 3 D4 = " & s )
NMR.G0
NMR-ExecuteC-PMODE") ' Switch to Process
NMR.Execute("WR " & DataName & i & "prof & "." & Ext & " Y") ' save
NMR.Execute("EX '' & DataName & i & "prof & "." & Ext & '' T")
NMR.Execute("FT")
NMR.Execute("MAG")
NMR.Execute('WR '' & DataName & i & "prof_ft" & "." & Ext & '' Y") ' save
NMR.Execute("EX '' & DataName & i & ''profjt'' & "." & Ext & '' T")
NMR-ExecuteC-AMODE")
NMR.Execute("LOAD '' & Chr(34) & SaveSeq & Chr(34)) ' mode and reload diffusion seq.
IfLoadListI(ListNameI)=FALSE Then 'Try to load list into memory
Exit Sub
End If
205