Tcl    hoch
 
 


 Hello World   Michael Neumann 
puts "Hello World"
Gibt "Hello World" auf dem Bildschirm aus.


 Squares   Michael Neumann 
set i 1
while {$i <= 10} {puts [expr $i*$i];set i [expr $i+1]}
Gibt die Quadrate von 1 bis 10 aus.


 Substitution   Michael Neumann 
set a 3
set b 5
puts "$a + $b = [expr $a + $b]"
Gibt 3 + 5 = 8 auf dem Bildschirm aus.


 Hello World   Tcl/Tk   Michael Neumann 
button .hello -text "Hello World" -command {destroy .}
pack .hello
Gibt "Hello World" auf dem Bildschirm aus.