- Most instrument test files have been tested

- sinqcom undwerwent extension to cover more devices and is now more or
  less finished

insttest/sanstest

@@ -18,6 +18,8 @@ if {$argc > 0} {
 initSicsDebug $instrument
 config rights lnsmanager lnsSICSlns
 
+standradPrelude $instrument count
+ 
 #--------- remember detector position...
 set detpos [SICSValue detectorx]
 bsin
@@ -41,11 +43,6 @@ lappend commandList "hmframe 0"
 lappend commandList "fileframe 0 0"
 
 
-exe upload
-exe append drive detectorx 3.
-exe append drive detectorx 18.
-exe forcesave insttestbatch.tcl
-
 lappend interruptList "drive detectorx 18."
 lappend interruptList "count timer 120"
 lappend interruptList "exe insttestbatch.tcl"
@@ -79,6 +76,7 @@ if {$det == 1} {
 }
 #--------- put detector back where it was
 drive detectorx $detpos
+standardRestore
 
 #------------ print a summary
 set inst [string toupper $instrument]