[saguna]

всем привет!
вопрос: я заметил что скомпиленные в ехе скрипты во время своей работы занимают до 50-80 а иногда и 100% загрузки процессора! замечали ли вы подобное и как с этим бороться.. для примера:

Код:

AdlibEnable("buff", 500)
	While 1
	WEnd	
 Exit

Func buff() 
	$bak = ClipGet()
	MsgBox(0,"","буфер содержит: " & $bak)
	Exit 
EndFunc

данный скрипт грузит мой пень4 - 3ггц до 50% уровня... возможно ли написать более корректно сам алгоритм постоянной работы функции?
выход из зацикливания, необходим только в примере, на деле мне надо чтобы скрипт выполнялся постоянно в фоновом режиме..