The name is absent

Appendix A

NMR-ExecuteC^t-PMODE^tt)

' Switch to Process mode and

NMR.Execute("XY QUIT")

' Start XY display

NMR.Execute("XY^,t)

NMR-ExecuteC^t-AMODE")

' Switch to Acquisition mode and

If (choice-1.5)< O Then

NMR-ExecuteC^tLOAD DIFFGP")

' and load the diffusion sequence

else

NMR-ExecuteC^tLOAD DIFGPCP^tt)

^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=Createobjectc^tScripting-FiIeSystemObject^tt)

Set août = fso.CreateTextFile(current & DataName & i & ".int",true)

Do While NextListI (rfich)

' Get next value from list

NMR-ExecuteC^t-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-StatusMessageC^tGI = " & r )

NMR-Go

If (choice -1.5) > O Then

NMR-ExecuteC^tROT")

End If

NMR-ExecuteC^tWR " & DataName & i & "." & Ext & " Y") ' save it

Ext=Ext+1

' New extension

206

More intriguing information

1. Spatial patterns in intermunicipal Danish commuting
2. The Dynamic Cost of the Draft
3. The name is absent
4. Strategic Effects and Incentives in Multi-issue Bargaining Games
5. The name is absent
6. THE ANDEAN PRICE BAND SYSTEM: EFFECTS ON PRICES, PROTECTION AND PRODUCER WELFARE
7. The name is absent
8. The name is absent
9. The name is absent
10. Fortschritte bei der Exportorientierung von Dienstleistungsunternehmen