# GETVAL and SETVAL.scr - a Tcl Script
# A simple script to Get the value of a Tag.
# add one to it.
# Set the value of the tag to the new value.
set value1 [expr [GETVAL SPEED] + 1]
SETVAL SPEED=$value1