# Replaced instances of hardcoded century (19) with a
# variable. We need to know the current century in cases
# where it is not provided and it is assumed to be the
# current century. Someday I need to figure out how to
# determine the current century, but I have a couple of
# years to do it. :-)

Source: Direct link to the source code
Software: CBB – The Check Book Balancer
Programming language: TCL

############# No User serviceable part below ! #############
# You should really not look any further :
# The following is private unexported undocumented unblessed…
# code time to hit “q” ;-) !

# Hmmm… ok, you really want to know ?

# You’ve been warned… Here it is…

# Array storing the parsed descriptions
variable OptDesc;
array set OptDesc {};
# Next potentially free key id (numeric)
variable OptDescN 0;

# Inside algorithm/mechanism description:
# (not for the faint hearted ;-)

Source: Direct link to the source code
Software: Sixpack
Programming language: TCL