/* exemple d'un langage de 4ème génération */
** EXEMPLE : WHILE 
** **********************************************************************************************
**	while (mot réservé) 
**	begin_while  (mot réservé) 
**           end_while  (mot réservé) 

**	Boucle de répétition "tant que" avec test avant le bloc 
**	d'instructions.
**
**	Syntaxe :
**
**	while ( <expression> ) 
**           begin_while 
**		<instruction> 
**           end_while
** *************************************************************************************************
 GLOBAL 
 #include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"

	integer :    exit_trans1  , x := 15 ,i:=1 + 1;
	long    :  wnt := 1200  ; 
	float 	:  y dec(2),m1 dec(2);
        char     :   zone1:255,zone2:120 ;
 end_global 

	 Begin_Main   
        display "------------------------------------------------------------------------- " ;
        display "                     Exemple de WHILE                     " ;
        display "------------------------------------------------------------------------- " ;
   
                 display " valeur de i " , i ; 
		     display " valeur de m1 " , m1;
		     display " valeur de wnt " , wnt ;    
		  
                  
	    while ( i < 10 )
             begin_while 
		   
                      
		       i :=  i + 1  ;
			while ( y  < 5 )
                         begin_while  
                   	    display " valeur de y dans le 2ème while ",y ;
                                
		      		 y++  ; 
                        end_while  ;
                if(i > 5) then
  		 display " valeur de i dans le 1er while ", i ; end_if;
           end_while  ;
            i:= 2;   y:= 2 ; 
        	   display "1 frappez entrée pour continuer or click right/Left  " ;  enter;



              while( (i< 5  ) and ( y < 5))
              begin_while  
		      display " WHILE 2 AND : valeur de i dans while OPERATEUR AND ", i ;
                      
		       i++;    	 y++  ; 
              end_while  ;

              display "2 frappez entrée pour continuer or click right/Left   " ;  


              i:= 2;  
              while( (i< 5  ) or ( y < 5))
              begin_while  
		      display " WHILE 3 OR :valeur de i dans while OPERATEUR  OR ", i ;
                               display " valeur de y dans while OPERATEUR  OR ",y;

		        i++  ;
               	  y++; 
              end_while  ;





                                                                       
 end_main