- timer.pp is more accurated

2025-04-08 00:07:56 +02:00 · 1998-03-26 12:24:16 +00:00 · 1998-03-26 12:24:16 +00:00 · 9e1a4d21f6
commit 9e1a4d21f6
parent 277b44c517
1 changed files with 0 additions and 85 deletions
--- a/rtl/dos/watch.pp
+++ b/rtl/dos/watch.pp
@ -1,85 +0,0 @@
-{
-    $Id$
-    This file is part of the Free Pascal run time library.
-    Copyright (c) 1993,97 by the Free Pascal development team.
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    This program 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.
-
- **********************************************************************}
-unit watch;
-
-interface
-
-uses DOS;
-
-function TotalTime:string;
-procedure StartTime;
-procedure EndTime;
-
-implementation
-
-var
-    h0,m0,s0,d0 : word;
-    h1,m1,s1,d1 : word;
-    h,m,s,d     : word;
-function TotalTime:String;
-var mm0,ss0,dd0:integer;
-    st,temp:string;
-begin
-mm0:=m0;ss0:=s0;dd0:=d0;
-if d1 < d0 then begin dd0:=dd0-100;inc(ss0);end;
-d:=word(d1-dd0) ; str(d,temp);
-if d<10 then st:='0'+temp else st:=temp;
-st:='.'+st;
-
-if s1 < ss0 then begin ss0:=ss0-60;inc(mm0);end;
-s:=word(s1-ss0) ; str(s,temp);
-if s<10 then st:='0'+temp+st else st:=temp+st;
-st:=':'+st;
-
-if m1 < mm0 then begin mm0:=mm0-60;inc(h0);end;
-m:=word(m1-mm0) ; str(m,temp);
-if m<10 then st:='0'+temp+st else st:=temp+st;
-st:=':'+st;
-
-h:=word(h1-h0) ; str(h,temp);
-if h<10 then st:='0'+temp+st else st:=temp+st;
-
-TotalTime:=st;
-end;
-
-procedure StartTime; begin Gettime(h0,m0,s0,d0); end;
-procedure EndTime  ; begin Gettime(h1,m1,s1,d1); end;
-
-end.
-{
-  $Log$
-  Revision 1.1  1998-03-25 11:18:41  root
-  Initial revision
-
-  Revision 1.3  1998/01/26 11:56:54  michael
-  + Added log at the end
-
-
-  
-  Working file: rtl/dos/watch.pp
-  description:
-  ----------------------------
-  revision 1.2
-  date: 1997/12/01 12:15:49;  author: michael;  state: Exp;  lines: +13 -0
-  + added copyright reference in header.
-  ----------------------------
-  revision 1.1
-  date: 1997/11/27 08:33:50;  author: michael;  state: Exp;
-  Initial revision
-  ----------------------------
-  revision 1.1.1.1
-  date: 1997/11/27 08:33:50;  author: michael;  state: Exp;  lines: +0 -0
-  FPC RTL CVS start
-  =============================================================================
-}