if 0 {
Author 2015-05-13: This is a new program
..bla..
...
With ideas and code from the following pages:
}
# NewProgram001.tcl - Author - 2015-05-13
# http://wiki.tcl.tk/41162
# http://ideone.com/ElpkSm
puts "Demo:"
set i 0
foreach s { foo bar grill } { incr i; puts "$i $s" }
### EOF ###Demo: 1 foo 2 bar 3 grill
This is the Alpha-version, ...
See also: