Appendix A
Dim p
Dim s
Dim i
Dim NewO1
Dim Ext
Dim Current
Dim Size
Dim SaveSeq
Dim fso, août, RepDeI, NS
Dim D4ref, rfich, bruit, redg, waittime, choice
' to be set by the user
waittime=60 ' wait time between diffusion time
choice=1 ' 1 for diffgp sequence
' 2 for difgpcp sequence
' save before starting
D4ref= 1000000
bruit=1 ' no acquisition if signal too weak
If NoHardware Then
ShowError("No hardware available")
Exit Sub
End If
' Load G1 list
ListNameI=GetListName(I) ' Get Iistfrom command line; or prompt
If ListNameI ="" Then ' Can not continue without a list
Exit Sub
End If
If LoadListI (ListNameI )=FALSE Then ' Try to load list into memory
Exit Sub
End If
203