diff --git a/src/netdaemon/scripts/Runsewctrl b/src/netdaemon/scripts/Runsewctrl
new file mode 100755
index 0000000..fafed91
--- /dev/null
+++ b/src/netdaemon/scripts/Runsewctrl
@@ -0,0 +1,34 @@
+#!/bin/bash
+
+while true; do
+    F=""
+    [[ -f "$1" ]] && read F < "$1" && rm "$1"
+    cmd=""
+    if [[ "x$F" != "x" ]]; then
+        case "$F" in
+            "s" )
+                cmd="-0"
+            ;;
+            "0" )
+                cmd="-s0"
+            ;;
+            "1" )
+                cmd="-s300"
+            ;;
+            "2" )
+                cmd="-s800"
+            ;;
+            "3" )
+                cmd="-s1300"
+            ;;
+        esac
+    fi
+    if [[ x$cmd != x ]]; then
+	echo "got command $cmd; /home/eddy/bin/SEWcontrol $cmd"
+	/home/eddy/bin/SEWcontrol $cmd > $2
+    else
+	echo "get state"
+	/home/eddy/bin/SEWcontrol > $2 
+    fi
+    sleep 1
+done
diff --git a/src/netdaemon/scripts/SpdCtrl b/src/netdaemon/scripts/SpdCtrl
new file mode 100755
index 0000000..fdcf899
--- /dev/null
+++ b/src/netdaemon/scripts/SpdCtrl
@@ -0,0 +1,16 @@
+#!/bin/bash
+
+OUTP="/tmp/sewstate"
+PARAMS="/tmp/sewparams"
+
+/home/eddy/bin/Runsewctrl $PARAMS $OUTP &
+
+while true; do
+    NewVal=$((cat /home/eddy/bin/acc $OUTP) | nc -w0 -lp 8080 | grep GET)
+    E=$(echo $NewVal | sed  's|.*setspeed=\([s0-3\.]\+\).*|\1|')
+#'
+    if [ x$E != x ]; then
+	echo "SPEED=$E" 
+	echo $E > $PARAMS
+    fi
+done
diff --git a/src/netdaemon/scripts/runSpeedCtrl b/src/netdaemon/scripts/runSpeedCtrl
index cc442a0..4195f35 100755
--- a/src/netdaemon/scripts/runSpeedCtrl
+++ b/src/netdaemon/scripts/runSpeedCtrl
@@ -1,11 +1,6 @@
 #!/bin/bash
 
-while true; do
-    NewVal=$((cat /home/eddy/bin/acc; /home/eddy/bin/SEWcontrol) | nc -w0 -lp 8080 | grep GET)
-    E=$(echo $NewVal | sed  's|.*setspeed=\([0-9\.]\+\).*|\1|' | grep "^[0-9]*[.]*[0-9]*$")
-#'
-    if [ "x$E" != "x" ]; then
-	#echo "SPEED=$E" 
-	(( E > 299 )) && (( E < 1301 )) && /home/eddy/bin/SEWcontrol -s $E || /home/eddy/bin/SEWcontrol -0
-    fi
-done
+# exit if script already running
+pgrep SpdCtrl && exit 0
+
+/home/eddy/bin/SpdCtrl
diff --git a/src/netdaemon/www/fans.html b/src/netdaemon/www/fans.html
index b8dce18..b6e8bac 100644
--- a/src/netdaemon/www/fans.html
+++ b/src/netdaemon/www/fans.html
@@ -55,17 +55,15 @@
     </script>
 </head>
 
-<body>
+<body style="line-height: 200%; font-size: 20px;">
     <p>
-        New speed: <input id="setspeed" type="number" step="1" min="300" max="1300" value="500">
-        <button onclick="setspeeda();">Set</button>&nbsp;&nbsp;&nbsp;
-        <button onclick="setspeed(0);">Stop</button>
-    </p><p>
-        Set speed: <input type="radio" id="lowspd" name="rs" value="300"><label for="lowspd">Low</label>
-        <input type="radio" id="midspd" name="rs" value="800"><label for="midspd">Mid</label>
-        <input type="radio" id="highspd" name="rs" value="1300"><label for="highspd">High</label>
-        <input type="radio" id="stop" name="rs" checked value="0"><label for="stop">Stop</label>
-        <button onclick="chkrad();">Set</button><br>
+        Set speed:<br>
+	<input type="radio" id="lowspd" name="rs" value="1"><label for="lowspd">Low</label>
+        <input type="radio" id="midspd" name="rs" value="2"><label for="midspd">Mid</label>
+        <input type="radio" id="highspd" name="rs" value="3"><label for="highspd">High</label><br>
+        <input type="radio" id="run1" name="rs" checked value="0"><label for="run1">Run middle</label><br>
+	<input type="radio" id="stop" name="rs" checked value="s"><label for="stop">Stop</label><br>
+        <button onclick="chkrad();" style="width: 200px; height: 40px; font-size: 23px;">Set</button><br>
     </p>
     <p>
         Current: <span id="curval"></span> A. Speed: <span id="spdval"></span> rpm.
