While Sleep(20)
	$sData = ConsoleRead()
	If @extended Then
		If $sData = "START" Then ExitLoop
	EndIf
WEnd

AdlibRegister("_CheckStatus", 100)

;Hier Anweisungen einfügen

Func _SetValue($sControl, $vValue)
	ConsoleWrite($sControl & "=" & $vValue)
	While Sleep(20)
		$sData = ConsoleRead()
		If @extended Then
			If $sData = "OK" Then Return
		EndIf
	WEnd
EndFunc

Func _CheckStatus()
	$sData = ConsoleRead()
	If @extended Then
		If $sData = "STOP" Then Exit
	EndIf
EndFunc

Func _Exit()
	ConsoleWrite("QUIT")
	Exit
EndFunc