#!/usr/agenttcl/bin/agent # demo file for agent tracking # get the redefined agent procedures source "AgentTrack.tcl" agent_begin agent_name "demonstrator" # invoke simple tracking track # that's it - rest of the script follows