Appendix A
NMR.Execute("SIZE 20") ' Get size of the echo and update XY
Size=NlVIR-RetumVaIue
NMR.Execute("XY DATA '' & r & Size)
aout.WriteLine(r & Size) , store intensity into texte file
If ( Size∕NS )< bruit Then
Exit Do
End If
Loop
aoutClose
NMR.Execute("WAIT " & waittime)
Loop
NMR.Execute("XY QUIT")
end sub
207