proc pause {{message "Hit Enter to continue ==> "}} { puts -nonewline $message flush stdout gets stdin } pause "Hurry, hit enter: "; # Sample usage 1 pause; # Sample usage 2, use default message