The name is absent

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