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,217ce8585deaa093,start
X-Google-Attributes: gid103376,public
From: rum_and_cola@hotmail.com (Aaron)
Subject: Could you help me debug this please?
Date: 1999/05/25
Message-ID: <374a318b.1942660@news.ozemail.com.au>#1/1
X-Deja-AN: 481780845
Distribution: world
Content-Transfer-Encoding: 7bit
Content-Type: text/plain; charset=us-ascii
X-Trace: ozemail.com.au 927609696 203.108.224.92 (Tue,
 25 May 1999 15:21:36 EST)
Organization: OzEmail Ltd, Australia
MIME-Version: 1.0
NNTP-Posting-Date: Tue, 25 May 1999 15:21:36 EST
Newsgroups: comp.lang.ada
Date: 1999-05-25T00:00:00+00:00
List-Id: <comp.lang.ada>

I keep getting the error mesage  "Statemnt Expected" in line 73
whenever I try compiling this program. If anyone could help me, I'd be
greatful.

with Text_Io;
procedure Assessment2 is

   --types and packages
   type Choice is
      (Migrate, Previous, Stop);
   package Choice_Io is new
      Text_Io.Enumeration_Io
      (Enum => Choice);

   --variables   
   Code: Choice;
in_data : text_io.file_type;
filename, degree, migrantname, YOB, money: string (1..20);
last: natural;

   --functions
   procedure Get_The_Action;
--gets the input from the keyboard for the main menu
procedure write_data
(in_data : in out text_io.file_type);
-- procedure to get the names of people and store them.

   procedure Get_The_Action is
   begin
   Text_Io.Put("Migration Program:");
   Text_Io.New_Line;
   Text_Io.Put("Enter 'Migrate' to store migrants details on file.");
   Text_Io.New_Line;
   Text_Io.Put("Enter 'Previous' to read and display information about
migrants.");
   Text_Io.New_Line;
   Text_Io.Put("Enter 'Finish' to quit.");
   Text_Io.New_Line;
   Choice_Io.Get(Code);
end Get_The_Action;

procedure write_data
(in_data : in out text_io.file_type) is
begin
   text_io.put("Migrants Name:");
text_io.get_line(migrantname, last);
text_io.put(file=>In_data,
   item=> migrantname);
text_io.new_line(file =>in_data);
   text_io.put("Degree in computing (Y/N):");
text_io.get_line(degree, last);
   text_io.put(file=>In_data,
   item=> degree);
   text_io.new_line(file =>in_data);
   text_io.put("Year of Birth:");
   text_io.get_line(YOB, last);
   text_io.put(file=>In_data,
   item=> YOB);
text_io.new_line(file =>in_data);
text_io.put("Amount of Money:");
   text_io.get_line(money, last);
   text_io.put(file=>In_data,
   item=> money);
   text_io.new_line(file =>in_data);
Text_Io.Put("Enter the file name and path: ");
   Text_Io.Get_line(filename, last);
   Text_Io.create (File=>In_Data,
      Mode=>Text_Io.out_File, Name=>filename);
   write_Data(In_Data);
   Text_Io.Close(In_Data);
end write_data;

begin
get_the_action;
if (Code=previous) then
text_Io.Put("Not written yet ");
elsif (Code=migrate) then
(write_data(in_data : out text_io.file_type));
else
text_io.put("ok");
end if;
text_io.put("Goodbye");
end assessment2;