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
More intriguing information
1. THE USE OF EXTRANEOUS INFORMATION IN THE DEVELOPMENT OF A POLICY SIMULATION MODEL2. Impact of Ethanol Production on U.S. and Regional Gasoline Prices and On the Profitability of U.S. Oil Refinery Industry
3. The name is absent
4. The Effects of Reforming the Chinese Dual-Track Price System
5. The name is absent
6. Change in firm population and spatial variations: The case of Turkey
7. The name is absent
8. International Financial Integration*
9. Valuing Farm Financial Information
10. The name is absent