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=0.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,bd0de980b22e8253
X-Google-Attributes: gid103376,public
From: reply-address-in-sig (Steve Garriga)
Subject: Re: Help.  Procedure is undefined
Date: 1998/01/08
Message-ID: <34b4f3da.7353367@news.logica.co.uk>#1/1
X-Deja-AN: 313979619
References: <34B4C915.4BF8@bton.ac.uk>
Organization: Logica Inc
Reply-To: reply-address-in-sig
Newsgroups: comp.lang.ada
Date: 1998-01-08T00:00:00+00:00
List-Id: <comp.lang.ada>


On Thu, 08 Jan 1998 12:39:49 +0000, GJW3 <GJW3@bton.ac.uk> wrote:

>This is a multi-part message in MIME format.
>
>--------------681674BA4851
>Content-Type: text/plain; charset=us-ascii
>Content-Transfer-Encoding: 7bit
>
>Cananyone solve the problem from the code.  It says that the procedure
>main is undefined in the subprograms.  Please help.
>Thanks
>
{snip code}

>From a glance at your code it seems that you don't understand control
flow. When a procedure or function is called, control is passed with
the intention that control is passed back when the procedure or
function completes. 

So.... what you need if I understand your intention, is a loop in your
main procedure which is terminated by selecting quit, and your other
procedures to just 'return' (i.e. don't attempt to call main, just
complete).

Hope that helps

Steve Garriga,               "Opinions stated herein are those of the
'garrigas                     author and do not necessarily reflect
         @logica.com'         those of Logica."
Logica Inc. (617) 476-8000                      http://www.logica.com