# -*- tcl -*-
# $Id: confidential,v 1.5 1999/07/08 10:07:44 tobotras Exp $

rename headOfHead {}

proc headOfHead {} {
    return "{\\hfill \\sffamily  \\\\
\\hfill . \\No\\underline{\\hspace{3mm}}}\\\\"
}

rename extraTitlePage {}

proc extraTitlePage {} {
    return "\\begin\{flushright\}
 \\sffamily  \\\\
. \\No\\underline\{\\hspace\{3mm\}\}
\\end\{flushright\}"
}

rename setHeadHeight {}

proc setHeadHeight {} {
    return "\\addtolength\{\\HeadHeight\}\{4\\headheight\}"
}

