From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Date: Thu, 21 Nov 91 08:04:51 EST
From: maysee@m11.sews.wpafb.af.mil (Eric E. Mays 52202)
Subject: Ada Tasking problem
Message-ID: <9111211304.AA10751@m11.sews.wpafb.af.mil>
List-Id: <comp.lang.ada>

Info-Ada Folks,

   I am currently taking a computer aided Ada course developed by 
keesler afb.  The last topic in this course involves tasking.  I am
trying to solve the following problem using tasking with entry point.

   The output i'm trying to display is the following:

           1          5
           2          4
           3          3
           4          2
           5          1

    I'm assuming these are to be printed concurrently.  The results i'm
displaying are:   

                      5
                      4
                      3
                      2
                      1
           1
           2
           3
           4
           5

   Here is my code, am I missing something?

with TEXT_IO;

procedure MAIN_TW1 is

   package MY_INT_IO is new TEXT_IO.INTEGER_IO (INTEGER);

   LAST_NUMBER : INTEGER;

   task REV_NUM_OUT is
      entry RECEIVE_NUM (MAX_NUMBER : in INTEGER);
   end REV_NUM_OUT;

   task body REV_NUM_OUT is

      MAX_NUM : INTEGER;

   begin

      accept RECEIVE_NUM (MAX_NUMBER : in INTEGER) do

         MAX_NUM := MAX_NUMBER;

         for I in reverse 1 .. MAX_NUM loop

             TEXT_IO.SET_COL (35);
             MY_INT_IO.PUT (I,WIDTH=>1); 
             text_io.new_line;

         end loop;

      end RECEIVE_NUM;

   end REV_NUM_OUT;


begin

   TEXT_IO.PUT ("Enter an integer number: ");
   MY_INT_IO.GET (LAST_NUMBER);
   TEXT_IO.NEW_PAGE;

   REV_NUM_OUT.RECEIVE_NUM (LAST_NUMBER);

   for J in 1 .. LAST_NUMBER loop

      TEXT_IO.SET_COL (1);
      MY_INT_IO.PUT (J);

   end loop;

end MAIN_TW1; 

   Any helpful hints or comments would be appreciated.

Thanks,

Eric Mays
maysee@m11.sews.wpafb.af.mil