Re: newbie problem - how to

[bill_so@hotmail.com.nospam]

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;
>