/* exemple d'un langage de 4ème génération */
** EXEMPLE : DO 
** **********************************************************************************************
**	DO(L_integer or L_name_Var 
**	begin_do   (mot réservé) 
**           end_do   (mot réservé) 
**          
**	Boucle de répétition "faire" un certain nombre de fois 
**	d'instructions.
**
**	Syntaxe :
**
**	     do(x)
**           begin_do /* optionnel */
**		<instruction> 
**           end_do 
**            
** *************************************************************************************************
 #include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"

 
	integer :    exit_trans1  , x := 15 ,i:=1 + 1,incrDo1,incrDo2;
	long    :  wnt := 1200  ; 
	float 	:  y dec(2),m1 dec(4);
        char     :   zone1:255,zone2:120 ;
   begin     
     **  SetColorText(HWDISPLAY:green,blue);
        display "------------------------------------------------------------------------- " ;
        display "                     Exemple de DO                      " ;
        display "------------------------------------------------------------------------- " ;
     **  SetColorText(HWDISPLAY:white,default);
         
                 display " valeur de i ", i column 20 , 
		         " valeur de m1 ", m1 column 40 ,
		       " valeur de wnt ", wnt column 70 ;    
    end_begin  ;
 
  ** while( i < 5)
  **  begin_while		  
 /* DO imbriqués */ 
    display" ---------------------------";
    display": i.........................",i; 
    display" ---------------------------";  enter;

         incrDo1 := 0;       
	   do( 3 ) /* faire 3 fois */
              ** begin_do  
		       incrDo1++  ;    
                            display " valeur de incrDo1 dans le 1er do",incrDo1; 
                           SetColorText(HWDISPLAY:red,yellow);
				display " appuyer sur la touche ENTREE/RETURN 
							or clic right/left pour continuer" ; enter;
                                 SetColorText(HWDISPLAY:white,default); incrDo2 := 0;
                                  do(4)  /* 2ème do imbriqué */
                                  **  begin_do  
		             		  incrDo2++  ; 
						    display " valeur de incrDo2 dans le 2ème do",incrDo2;
                                    end_do  ;

	 end_do  ;
 i++;
** end_while   ;