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=2.1 required=5.0 tests=BAYES_40,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,3c235217dee2c92f
X-Google-Attributes: gid103376,public
From: "Brian M. Boerner" <bboerner@sunspot.tiac.net>
Subject: Re: Bizzare Errors with GW AdaEd 1.4.2 020 Fat for System 7
Date: 1997/05/05
Message-ID: <336EA2E9.68B1@sunspot.tiac.net>#1/1
X-Deja-AN: 239654123
References: <336EA124.2284@sunspot.tiac.net>
Organization: The Internet Access Company, Inc.
Reply-To: bboerner@sunspot.tiac.net
Newsgroups: comp.lang.ada
Date: 1997-05-05T00:00:00+00:00
List-Id: <comp.lang.ada>


A little followup information that might help some of you.

--***********************************************************
-- 												BEGIN MAIN EXECUTION
--***********************************************************
begin

loop

-- Adding the following lines of code produce the error described in the
-- previous message.
--		for index in 1..inputlength loop
--		input_string(index) = '0';
--		end loop;

					instructions; -- Print out the Instructions
					text_io.put ("Please Enter a String of Integers: "); -- Ask for the
String 
 				text_io.get_line(input_string,inputlength); -- Read in the string
			loop
 				count := count + 1;
 				iio.get(input_string(last..inputlength) ,output_string(count),
last);
 				last := last + 1;
			exit when output_string(count) = 0;
			end loop;

  for index in 1..(count - 1) loop
				tempchar := character'val (output_string(index) + 64);		
				text_io.put(tempchar);  
		end loop;
		
end loop;