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,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,7fb82f944809718f
X-Google-Attributes: gid103376,public
From: ibliss@kotnet.org
Subject: help, i'm totally new but have to finsh project
Date: 1999/11/26
Message-ID: <383de8d1.14772213@news.kulnet.kuleuven.ac.be>#1/1
X-Deja-AN: 553141038
Cache-Post-Path: marvin!unknown@kn-10-0-33-230.kotnet.kuleuven.ac.be
Content-Transfer-Encoding: 8bit
Content-Type: text/plain; charset=iso-8859-1
X-Complaints-To: abuse@belnet.be
X-Trace: naxos.belnet.be 943581760 4914 134.58.127.3 (26 Nov 1999 02:02:40
 GMT)
Organization: KULeuvenNet
X-Cache: nntpcache 2.3.3 (see http://www.nntpcache.org/)
Mime-Version: 1.0
NNTP-Posting-Date: 26 Nov 1999 02:02:40 GMT
Newsgroups: comp.lang.ada
Date: 1999-11-26T02:02:40+00:00
List-Id: <comp.lang.ada>

help

i'm totally new to this, and we have to make a project in ADA. The
problem is that i typed over something from the course material (i'll
copy it here below) but when i try to compile it with the GNAT95
compiler, it says that on the first line it expects the word 'body'

Can someone tell me why this happens and what i can do about it? or
how i should write it then?

package rand_pak is  -- here it says 'keywoard body expected here [see
		         -- filename]
   protected beheer is
      entry lock;
      procedure unlock;
   private
      bezig: boolean:=false;
   end beheer;
   procedure instellen;
   -- function random return float;
   -- procedure afsluiten;
end rand_pak;

with Ada.Text_Io,Ada.Integer_Text_Io;
--Use Ada.Text_Io,Ada.Integer_Text_Io;
package body rand_pak is
   S1,S2: integer;
   FILE: file_type;
   
   protected body beheer is
      entry lock when not bezig is
      begin
         bezig := true;
      end lock;
      procedure unlock is
      begin
         bezig := false;
      end unlock;
   end beheer;
   
   procedure instellen is
   begin
      open(FILE,in_file, "random.sed");
      get(FILE,S1); get(FILE,S2);
      delete(FILE);
   exception
      when NAME_ERROR =>
         S1:=1234567;
         S2:=87654321;
   end instellen;
end rand_pak;


pleaz help me, it is really URGENT :((