fun scripts for random play

diff --git a/hostside/fun-randmore b/hostside/fun-randmore
new file mode 100755 (executable)
index 0000000..4f318f1
--- /dev/null
+++ b/hostside/fun-randmore
@@ -0,0 +1,24 @@
+#!/bin/sh
+set -e
+while true; do
+       echo
+       which=$(hexdump </dev/urandom -n1 -e '"%d"')
+       if [ $which -ge 64 -a $which -lt 192 ]; then
+               b1=$(hexdump </dev/urandom -n1 -e '"%d"')
+               squ=$(($b1 * $b1))
+               speed=$(($squ / 516))
+               b2=$(hexdump </dev/urandom -n1 -e '"%d"')
+               dirn=$(($b2 / 128))
+               echo which=$which b1=$b1 speed=$speed b2=$b2 dirn=$dirn
+               ./hostside-old -s/dev/ttya0 speed126 2 $speed $dirn
+       fi
+       if [ $which -lt 128 ]; then
+               value=$(( $which * 16 ))
+               printf "which=%s value=%s value=0x%x\n" $which $value $value
+               ./hostside-old -s/dev/ttya0 funcs5to8 2 $value
+       fi
+       delay=$(hexdump </dev/urandom -n1 -e '"%d"')
+       delayv=$(( $delay / 2 + 10 ))
+       printf "delay=%d delayv=%d\n" $delay $delayv
+       sleep $delayv
+done

diff --git a/hostside/fun-random b/hostside/fun-random
new file mode 100755 (executable)
index 0000000..06e8d33
--- /dev/null
+++ b/hostside/fun-random
@@ -0,0 +1,12 @@
+#!/bin/sh
+set -e
+while true; do
+       b1=$(hexdump </dev/urandom -n1 -e '"%d"')
+       squ=$(($b1 * $b1))
+       speed=$(($squ / 516))
+       b2=$(hexdump </dev/urandom -n1 -e '"%d"')
+       dirn=$(($b2 / 128))
+       echo b1=$b1 speed=$speed b2=$b2 dirn=$dirn
+       ./hostside-old -s/dev/ttya0 speed126 2 $speed $dirn
+       sleep 30
+done

diff --git a/hostside/fun-updown b/hostside/fun-updown
new file mode 100755 (executable)
index 0000000..7175879
--- /dev/null
+++ b/hostside/fun-updown
@@ -0,0 +1,13 @@
+#!/bin/sh
+set -e
+
+while true; do
+       for x in '0 11' '-- 11 0 -1'; do
+               echo $x;
+               for f in `numbers $x`; do
+                       sleep 20; g=$(($f*$f));
+                       echo $f $g;
+                       ./hostside-old -s/dev/ttya0 speed126 2 $g 0
+               done
+       done
+done