Appendix A
NMR-ExecuteCt-PMODEtt)
' Switch to Process mode and
NMR.Execute("XY QUIT")
' Start XY display
NMR.Execute("XY,t)
NMR-ExecuteCt-AMODE")
' Switch to Acquisition mode and
If (choice-1.5)< O Then
NMR-ExecuteCtLOAD DIFFGP")
' and load the diffusion sequence
else
NMR-ExecuteCtLOAD DIFGPCPtt)
t and load the diffusion sequence
End If
NMR.Execute("D4 tt & s)
' set D4
Ext=1
' Reset file extension
If (s-D4ref)>0 Then
redg=sqr(s∕D4ref)
else
redg=1
End If
Setfso=CreateobjectctScripting-FiIeSystemObjecttt)
Set août = fso.CreateTextFile(current & DataName & i & ".int",true)
Do While NextListI (rfich)
' Get next value from list
NMR-ExecuteCt-AMODE")
' Go to Acquisition Mode
r=rfich∕redg
'r=rfich
NMR.Execute("G1 tt & r)
' set G1
q=-r
NMR.Execute(ttG3 " & q)
t set G3
NMR.StatusMessage(t'D4 = " & s )
NMR-StatusMessageCtGI = " & r )
NMR-Go
If (choice -1.5) > O Then
NMR-ExecuteCtROT")
End If
NMR-ExecuteCtWR " & DataName & i & "." & Ext & " Y") ' save it
Ext=Ext+1
' New extension
206