/* exemple d'un langage de 4ème génération */
** EXEMPLE : DOWHILE 
** **********************************************************************************************
**	 
**	begin_dowhile  (mot réservé) 
**           end_dowhile  (mot réservé) 
**          dowhile (mot réservé)
**	Boucle de répétition "jusqu'a ce que" avec test apres le bloc 
**	d'instructions.
**
**	Syntaxe :
**
**	
**           begin_dowhile 
**		<instruction> 
**           end_dowhile /* optionnel */
**              dowhile ( <expression> ) 
** *************************************************************************************************
 #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(3);
          char     :   zone1:100,zone2:50 := "EndUser4gl" ;
 
	display "------------------------------------------------------------------------- " ;
        display "                     Exemple de DOWHILE                      " ;
        display "------------------------------------------------------------------------- " ;
      
                  display " valeur de i ", i ; 
		     display " valeur de m1 ", m1;
		     display " valeur de wnt ", wnt ;    
		  
            i := 2 ;    m1 := 1; 
            begin_dowhile  /* 1 dowhile */
			i++  ;
		      display " valeur de i dans le 1er  dowhile ", i ;  enter ;

                             	begin_dowhile  /* 2 dowhile */
 		              	 display " valeur de m1 dans le 2ème  dowhile ", m1;                      
 		      			m1++  ;
                        	  dowhile ( m1 <  5 ) ;
		   
            dowhile ( i < 5 ) ;

            i := 2 ;    m1 := 1; 
            begin_dowhile  
		      display " dans   dowhile OPERATEUR OR/AND...valeur de i et m1 ", 
			i column 60, m1 column 70 ;
                      		       i++  ; m1++  ;
          
            dowhile( ( i <  25)   OR ( m1 < 11)) ;