if 0 {
<<TOC>>
----

**Introduction**
[Author] 2015-05-13: This is a new program <<br>>..bla.. <<br>> ...

With ideas and code from the following pages:
   * http://wiki.tcl.tk/41210%|%ClockDemo%|% -([MiHa])
   * ...

}
----
**Program 1**
======tcl
 # 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 ###
======

----
**Output**
======none
Demo:
1 foo
2 bar
3 grill
======

----
**Remarks**
This is the Alpha-version, ...

----
'''See also:'''
   * http://wiki.tcl.tk/41210%|%ClockDemo%|%

   
<<categories>> Example | GUI