The name is absent

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