#!/usr/bin/tclsh
-# $Id: robot.tcl,v 1.38 2003/06/10 12:12:35 adam Exp $
+# $Id: robot.tcl,v 1.39 2003/06/10 12:29:48 adam Exp $
#
proc RobotFileNext1 {area lead} {
# puts "RobotFileNext1 area=$area lead=$lead"
return 0
}
}
+ if {$debuglevel > 3} {
+ puts "CHECKFULE MATCH FAIL"
+ }
+ return 0
}
if {$debuglevel > 3} {
puts "CHECKRULE MATCH OK"