- Fixes to HM code for AMOR TOF

- A couple of TAS fixes
- o2t was fixed to work with any drivable
- FOCUS was mended to include beam monitor in data file

test.tcl

@@ -106,6 +106,8 @@ VarMake sampledist Float Mugger
 sampledist 496.
 sampledist lock
 
+VarMake batchroot Text User
+
 #--------------------------------------------------------------------------
 #                D E V I C E S :  M O T O R S
 
@@ -474,5 +476,23 @@ MakeLin2Ang a5l a5
 source tcl/wwwpar.tcl
 source bef.tcl
 
+source batch.tcl
+Publish batchrun User
+
+
 #------- test of RS232Controller
 #MakeRS232Controller hugo psts213 3004
+
+#-------------------------- batch run issue
+VarMake BatchRoot Text User
+BatchRoot /data/koenneck/src/sics
+Publish batchrun User
+
+proc SplitReply { text } {
+     set l [split $text =]
+     return [lindex $l 1]
+}
+
+proc batchrun file {
+   fileeval [string trim [SplitReply [BatchRoot]]/$file]
+}