The name is absent

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