can do bavarian

diff --git a/hostside/stopgap-controller b/hostside/stopgap-controller
index d782b594801bb78b329559f8566e5dd449ee786f..9ad0142fc150adeb400f149d7905785f4f1a3610 100755 (executable)
--- a/hostside/stopgap-controller
+++ b/hostside/stopgap-controller
@@ -7,6 +7,9 @@ set testonly 0
 set port /dev/ttya0
 #set port /dev/ttyS0
 
+set locos {1 2 4}
+set locoix 1
+set loco [lindex $locos $locoix]
 set loco 2
 
 set ch(funcsevery) 10
@@ -46,6 +49,8 @@ set funcsr1 {0x061 0x020 0x000 0x040 0x060}
 set funcsl1 {0x182 0x080 0x000 0x100 0x180}
 set funcsr2 {0x021 0x020 0x000}
 set funcsl2 {0x042 0x040 0x000}
+set funcsr4 {0x020 0x000}
+set funcsl4 {0x040 0x000}
 set funcsval 0x000
 
 proc gui {m} {
@@ -566,7 +571,7 @@ proc ask_randspeed {} {
 
 proc ask_loco {} {
     global loco
-    set loco [expr {$loco==1 ? 2 : 1}]
+    set loco [updownfromlist locos locoix 1]
 }
 
 proc ask_funcs {lr} {