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.6 required=5.0 tests=BAYES_20,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,439d46bf50ce4c3b,start
X-Google-Attributes: gid103376,public
From: SiliconJesus <softichj@cs.montana.edu>
Subject: Why wont this work
Date: 1998/02/02
Message-ID: <Pine.OSF.3.95.980202204013.6847B-100000@esus.cs.montana.edu>#1/1
X-Deja-AN: 321561717
Mime-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Organization: montana.edu
Newsgroups: comp.lang.ada
Date: 1998-02-02T00:00:00+00:00
List-Id: <comp.lang.ada>


----------------------------------------------------
--
--I want this to kill if the user enters 4 oh's-
--Procedure for entering in the data it's an array of records
---------------------------------------
    
  WHILE Ide /= "OOOO" LOOP

    I:=I +1;
    Ada.Text_IO.PUT(Item =>"Please enter the Article Id");
    Ada.Text_IO.Get_Line(Item =>Ide, Last =>how_long); 
    Data(I).Id:=Ide;   
    Ada.Text_IO.Skip_Line;
    Ada.Text_IO.PUT_Line(Item =>"Please enter article description");
    Ada.Text_IO.Get_Line(Item =>art_d, Last =>how_long);
    Data(I).desc:=art_d;
    Ada.Text_IO.Skip_Line;
    Ada.Text_IO.PUT_Line(Item =>"Please enter number in stock");
    Ada.Integer_Text_IO.Get(Item =>temp);
    Ada.Text_IO.Skip_Line;
    Data(I).Num:=temp;
    Ada.Text_IO.PUT_Line(Item =>"Please enter price");
    Ada.Float_Text_IO.Get(Item =>temp2);
    Data(I).Value:=temp2;
    
END LOOP;
END Enter;
----------------------------------------------------

		
				,.   '\'\    ,---.
				| \\  l\\l_ //    |     ~NARF!!
				|  \\/ `/  `.|    |      
				| Y |   |   ||  Y |      
				|  \|   |   |\ /  |      
				\   |  o|o  | >  /       
				 \___\_--_ /_/__/        
				 /.-\(____) /--.\        
				 `--(______)----'
				     U// U / \
				     / \  / /|           		   
==========================================================================
|    John M. Softich                | " I wanna live, I wanna love       |
|  softichj@cs.montana.edu          |      but it's a long hard          |
|  Montana State University         |       road out of hell! "          |
|  Http://cs.montana.edu/~softichj  |                ~Manson             |
==========================================================================