add archive (files probably no longer used)

here we can find old files

tcl/archive/drivers/itc503p.tcl

@@ -0,0 +1,25 @@
+# itc503 simple nv control
+namespace eval itc503p {} {
+}
+
+proc stdConfig::itc503p {} {
+  controller std "\r" 5
+  prop startcmd "V"
+
+  obj nv rd 
+  prop readcmd "R7"
+  prop readfmt "R%g"
+kids nvoi {
+      node set wr
+      prop read stdSct::read
+      prop readcmd  "R7"
+      prop readfmt "R%g"
+      prop write itc503p::write
+     }
+}
+
+proc itc503p::write {} {
+  sct send [format G%3.0f [sct target]]
+  return read
+}
+