Sub Main()
dim i as integer
	do
		for i = 1 to 100
			Call FreqOut(16, i*100, i*100, 0.1)
			'delay(0.5)
		next
	loop
End Sub