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
More intriguing information
1. An Intertemporal Benchmark Model for Turkey’s Current Account2. The name is absent
3. Does South Africa Have the Potential and Capacity to Grow at 7 Per Cent?: A Labour Market Perspective
4. The name is absent
5. HEDONIC PRICES IN THE MALTING BARLEY MARKET
6. Magnetic Resonance Imaging in patients with ICDs and Pacemakers
7. Voting by Committees under Constraints
8. Non-farm businesses local economic integration level: the case of six Portuguese small and medium-sized Markettowns• - a sector approach
9. Industrial districts, innovation and I-district effect: territory or industrial specialization?
10. The name is absent