Re: Help Wanted

[beckwb@ois.com (R. William Beckwith)]

Ian M Wilks (Ian@wilks.demon.co.uk) wrote:
: As an assignment I have to learn enough Ada and write the following parallel 
: program:
...
: Can anyone let me have any code similar to this that I can adapt.  Unfortunately
: I'm running out of time!!!

    task Me is
	entry Take_Oath;
    end Me;

    with Text_IO;
    task body Me is
    begin
	loop
	    select
		accept Take_Oath;
		    Text_IO.Put_Line("I will not use the net for homework");
	    or
		terminate;
	    end select;
	end loop;
    end Me;

    for I in 1 .. 100 loop
	Take_Oath;
    end loop;