From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,XPRIO autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,dd7af829c05ebbd1,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-01-28 03:35:18 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed.gamma.ru!Gamma.RU!comstar.ru!teleglobe.net!151.99.250.105.MISMATCH!news!news.finmeccanica.it!not-for-mail
From: "NERO" <nero@hhhh.it>
Newsgroups: comp.lang.ada
Subject: Problems with a TIMER
Date: Tue, 28 Jan 2003 11:40:04 +0100
Organization: Finmeccanica
Message-ID: <b15mm5$rgk$1@e3k.asi.ansaldo.it>
NNTP-Posting-Host: 193.70.207.140
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Xref: archiver1.google.com comp.lang.ada:33480
Date: 2003-01-28T11:40:04+01:00
List-Id: <comp.lang.ada>

This is the code used to check "a timer of 10 seconds":
=================================================
with Ada.Real_Time;
with Ada.Text_io; use Ada.Text_io;
procedure time is
   function "-" ( LEFT  : in Ada.Real_time.TIME;
                  RIGHT : in Ada.Real_time.TIME )
     return Ada.Real_time.TIME_SPAN renames Ada.Real_time."-";

   function ">=" ( LEFT  : in Ada.Real_time.TIME_SPAN;
                  RIGHT : in Ada.Real_time.TIME_SPAN )
     return BOOLEAN renames Ada.Real_time.">=";

   TIME_OUT : constant Ada.Real_Time.Time_Span :=
Ada.Real_Time.Milliseconds(10000);
   BEGINNING_TIME : Ada.Real_Time.Time;
   DIFF_TIME     : Ada.Real_Time.Time_Span;
   PARTIAL_TIME  : Ada.Real_Time.Time;
   RESET_TIMER   : boolean := FALSE;
begin
   loop
      if not RESET_TIMER
      then
         --PUT("START TIMER");
         BEGINNING_TIME := Ada.Real_time.CLOCK;
         RESET_TIMER := TRUE;
      else
         --PUT("-");
         PARTIAL_TIME := Ada.Real_time.CLOCK;
         DIFF_TIME := PARTIAL_TIME - BEGINNING_TIME;
         if DIFF_TIME >= TIME_OUT
         then
            --PUT(" TIME OUT");
            exit;
         end if;
      end if;
   end loop;
end time;

========================================
The target is a processor x86 Family 6 Model 7 Stepping 3 AT/AT COMPATIBLE
The results change if I use video-outputs or not (PUT("START TIMER"),
PUT("-"), PUT("TIME OUT") are now commented into the code).
Why?
Thank you