X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=blobdiff_plain;f=hostside%2Fstopgap-controller;h=d782b594801bb78b329559f8566e5dd449ee786f;hb=995084cb4c8d0a743c14b6da139578bac79e87b6;hp=e331b7da6d45a4971aedc6998120657d6384385e;hpb=544b5b1f434603dd34bfd1c0fecc099172fa33d1;p=trains.git

diff --git a/hostside/stopgap-controller b/hostside/stopgap-controller
index e331b7d..d782b59 100755
--- a/hostside/stopgap-controller
+++ b/hostside/stopgap-controller
@@ -564,6 +564,11 @@ proc ask_randspeed {} {
     maybechange speeddirn 1
 }    
 
+proc ask_loco {} {
+    global loco
+    set loco [expr {$loco==1 ? 2 : 1}]
+}
+
 proc ask_funcs {lr} {
     global loco
     upvar #0 funcs${lr}${loco} list