/* exemple d'un langage de 4ème génération */
 GLOBAL
 #include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"

	integer :    exit_trans1  , i,j,x;
        long    :  wnt := 1200  ;
	float 	:  y dec(2),m1 dec(2);
        char     :   zone1:50,zone2:128 ;
 end_global
 Begin_Main
         display "-------------------------------------------------------- " ;
         display "                     Exemple de FOR                      " ;
         display "-------------------------------------------------------- " ;

	for (i:=6;   i < 10  ; i++ )
         begin_for
                     display " valeur de  i ................", i ;  
            end_for  ;

             for (j:=0; j <= 10 ; j++ )
              begin_for
                     display " valeur de  j................", j ;   
             end_for  ;

             for (i:=6;  i < 10 ; i++ )
              begin_for
                     display " valeur de  i dans for imbrique 1................", i ;   
 		for (j:=0; j <= 5 ; j++ )
            	 begin_for
                     	display "                      valeur de  j.dans for imbrique.....2..........", j ;
		end_for  ;

            end_for  ;
     begin
	 for ( i := 6 ,y := 100,m1 :=200; ( i < 10 )  OR ( y < 5)    ; i++,  y-- ,j:=j* 2,m1++)
          begin_for
              display " valeur de  i ................", i ;
              display " valeur de  y................", y ;
                display " valeur de  m1..............", m1 ;
  		display " valeur de j..............", j ;


		 

           end_for ;
      end_begin  ;

                                                                       
 end_main