First version of a simple Tcl robot.

[tclrobot.git] / robot.tcl

diff --git a/robot.tcl b/robot.tcl
index b2a7224..f2c8321 100755 (executable)
--- a/robot.tcl
+++ b/robot.tcl
@@ -1,5 +1,5 @@
 #
-# $Id: robot.tcl,v 1.1 1996/08/06 14:04:22 adam Exp $
+# $Id: robot.tcl,v 1.1.1.1 1996/08/06 14:04:23 adam Exp $
 #
 proc RobotFileNext {area} {
     if {[catch {set ns [glob $area/*]}]} {