The name is absent

Appendix A

NMR.Execute(''GZ 32767")

NMR.Execute('^,DS 2")

NMR.Execute("D1 200 ^,,)

NMR.Execute(^l,D2 40000 '^,)

NMR.Execute("D3 3000 ")

NMR.Execute("D4 500000 ")

NMR.Execute("D5 200 ^,,)

NMR.Execute(^,'D6 1000")

NMR.Execute("G2 500")

NMR.Execute("RD 15S")

NMR-ExecuteCSI 2048")

NMR.Execute("DW 6")

NMR.Execute("NS 16")

NMR.StatusMessage("FID, CPMG, profile and Diffgp set ")

end sub

File t2_diff j>rofie.ris

Option Explicit

∙******************************************************

'* Script to perform diffusion for multiple D4 values

^,* g is varied according to the list and the range is decreased

'* according to D4ref

'* A CPMG and a profile is performed before each diffusion sequence

'* a delay waittime can be inserted

I******************************************************

Dim ListNameI ' Name of list file 1

Dim ListName2 ' Name of list file 2

Dim DataName ' Name of data file

Sub Main()

Dim r, q

202