/*EndUser4gl 				      */
/* CALCUL: 	Calculette simple             */
 #include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"

	integer :    exit_trans1  , x ,i ;
	long    :  wnt ;
	float 	:  y dec(2),x1 dec(2);
        double  : dval dec(5) := 1234567890123.12345;
        char     :   zone1:150,zone2:120  ,zone4:41 ;

        zone1 := " EndUser4gl ........."; display "society :",zone1 ;
       SetColorText(HWDISPLAY:green,blue);
        display "--------------------------------------------------------- " ;
        display "                     Exemple de CALCUL                    " ;
        display "--------------------------------------------------------- " ;
         begin
		SetColorText(HWDISPLAY:black,white);
		x    :=  4 ; 		    display" Integer :valeur de x.....................",x;
		wnt :=  1000 *  2   ;       display" Long    :valeur de wnt..................",wnt;
 		i      :=  wnt * 5 /10 ;    display" Integer :valeur de i....................",i;
   		y     :=  312.14 * 1000 ;   display" Float   :valeur de y.....................",y;
    		x1    := 122.10 - i   ;     display" Float   :valeur de x1.....................",x1; 
                dval  := dval + x1;         display" DOUBLE valeur de dv.....................",dval column 60; 

	 end_begin   ;               

                   WaitCloseUser();  ** Close Dialog by User