Initial revision

dmccom.tcl

@@ -0,0 +1,13 @@
+#----------------------------------------------------------------------------
+# Common Tcl-command procedures for DMC
+# Mark Koennecke February 1997
+#--------------------------------------------------------------------------
+proc Milch { n } {
+   for {set i 0 } { $i < $n } { incr i} {
+      ClientPut "Milch ist gesund"
+   }
+}
+
+proc Kaba { text } {
+  return $text
+}