dim avg, count, tot
avg = 0
count = 0
tot = 0

dim sigs(3)
sigs(0) = 0
sigs(1) = 1
sigs(2) = 2
sigs(3) = 3

sub OnScanComplete (FoundNew,SeenBefore,LostCOntact,BestSNR)

	if count > 3 then
		count = 0
	end if

	
	tot = 0
	sigs(count) = BestSNR
	
	for i = 0 to 3
		tot = tot + sigs(i)	
	next

	avg = tot / 4

	count = count + 1

	dim fso, fl, ts
	set fso = CreateObject("Scripting.FileSystemObject")
	set ts = fso.OpenTextFile("r:\signal_strength.txt", 2, True)
'	ts.Write(count)
'	ts.Write(" ")
'	ts.Write(BestSNR)
'	ts.Write(" ")
	ts.WriteLine(avg)
	ts.Close()


End Sub