Appendix A
' liste des valeurs de DELTA (D4)
ListName2=GetListName(2) ' Get list from command line; or prompt
If ListName2="" Then ' Can not continue without a list
Exit Sub
End If
If LoadList2(ListName2)=FALSE Then ' Try to load list into memory
Exit Sub
End If
DataName=GetDataName(S) , Get name from command line; or prompt
If DataName="" Then ' Empty string if <Cancel> pressed
Exit Sub
End If
Current=NMR.GetParameter("%DATADIR") ' Get current data directory
DeIeteFiIe (Current & DataName & "?.*") ' Delete any existing files
NMR.Execute(,'~AMODE")
RepDeI=NMR-GetParameterCRD")
NS=NMR-GetParameterCNS")
NMR.Execute("LOAD FID")
NMR.Execute("RD " & RepDeI)
NMR.Execute("DS O")
NMR-StatusMessageCRD set to " & RepDeI)
IitiiHHfiniiiiimifiiiiiMiiifiHHiiHiiifimiimiHiiuiiiiiii
i=0
'Load D4
Do While NextList2(s) 'get next value from list
i=i+1
' Reglage automatique de 01 avant chaque mesure de diffusion
New01 =DoAutoOI
' Degauss de l'aimant
204