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.3 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,a7e1cc697e6a4b51
X-Google-Attributes: gid103376,public
From: bill_so@hotmail.com.nospam
Subject: Re: newbie problem - how to
Date: 1998/11/08
Message-ID: <7246et$e8i@drn.newsguy.com>#1/1
X-Deja-AN: 409626008
References: 
 <03F1770557943D79.F5DA81D0384C72CE.353F95DB3C8D0DD5@library-proxy.airnews.net>
 <87g1bwi7gj.fsf@mihalis.ix.netcom.com>
 <AB859D6EEAE610D8.6A8A3E47A1B005EF.69A72E48756C3246@library-proxy.airnews.net>
 <dale-0811981848330001@dale.ppp.cs.rmit.edu.au>
Organization: Newsguy News Service [http://www.newsguy.com]
Newsgroups: comp.lang.ada
Date: 1998-11-08T00:00:00+00:00
List-Id: <comp.lang.ada>

any one who writes code that looks like this, should not be writing code !

Bill.

>
> task body WriteChar is
> c : character;
> i : integer;
> begin
> loop
> select
> when not Buffer.full=>
> accept Write(ch : in character) do
> c := ch;
> end Write;
> i := (Buffer.rear + 1) mod 10;               <-------   Line 23
> delay 0.01;
> Buffer.rear := i;
> Buffer.empty := false;
> Buffer.List(Buffer.rear) := c;
> i := Buffer.count + 1;
> delay 0.1;
> Buffer.count := i;
> if (Buffer.count = 10) then
> Buffer.full := true;
> end if;
>or
> delay 0.1;
> end select;
> end loop;
> end WriteChar;
>