%% 
%% This is file `scrtime.sty',
%% generated with the docstrip utility.
%% 
%% The original source files were:
%% 
%% scrtime.dtx  (with options: `scrtime')
%% 
%% Copyright 1994-1996 Markus Kohm. 
%% All rights reserved. For further copyright information see the file 
%% legal.txt, and any other copyright indicated in this file. 
%% 
%% This file is part of the LaTeX2e KOMA-Script-bundle. 
%% ---------------------------------------------------- 
%% 
%% The KOMA-Script-bundle (but not this file) bases on the 
%% Script-family created by Frank Neukam 1993 and the standard 
%% documents classes created by the LaTeX3-Team 1994-1996. 
%% ------------------------------------------------------------- 
%% 
%% This system is distributed in the hope that it will be useful, 
%% but WITHOUT ANY WARRANTY; without even the implied warranty of 
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 
%% 
%% 
%% IMPORTANT NOTICE: 
%% 
%% For error reports in case of UNCHANGED versions see documentation. 
%% 
%% Please do not request updates from us directly. Distribution is 
%% done through Mail-Servers, Mailboxes and TeX organizations. 
%% 
%% You are not allowed to change this file. 
%% 
%% You are allowed to distribute this file under the condition that 
%% it is distributed together with all files mentioned in readme.txt 
%% and liesmich.txt. 
%% 
%% If you receive only some of these files from someone, complain! 
%% 
%% You are NOT ALLOWED to distribute this file alone. You are NOT 
%% ALLOWED to take money for the distribution or use of either this 
%% file or a changed version, except for a nominal charge for copying 
%% etc. 
%% 
\NeedsTeXFormat{LaTeX2e}[1995/12/01]
\ProvidesPackage{scrtime}
                [1996/01/14 v1.1d LaTeX2e KOMA
                 package]
\newif\if@Hxii
\DeclareOption{12h}{\@Hxiitrue}
\DeclareOption{24h}{\@Hxiifalse}
\ExecuteOptions{24h}
\ProcessOptions
\def\thistime{%
  \@ifstar
    {\let\@tempif\iffalse\@thistime}
    {\let\@tempif\iftrue\@thistime}}
\newcommand*{\@thistime}[1][:]{%
  \begingroup
    \@tempcnta\time\divide\@tempcnta60\multiply\@tempcnta60
    \@tempcntb\time\advance\@tempcntb-\@tempcnta
    \divide\@tempcnta60
    \if@Hxii\ifnum\@tempcnta>12 \advance\@tempcnta-12 \fi\fi
    \the\@tempcnta{#1}\@tempif\ifnum\@tempcntb<10 0\fi\fi\the\@tempcntb%
  \endgroup}
\newcommand*{\settime}[1]{\renewcommand*{\@thistime}[1][]{#1}}
\endinput
%% 
%% End of file `scrtime.sty'.
