** ****************************************************************************************** *
**EndUser4gl : Exemple d'un langage de 4 ème génération
** *******************************************************************************************
** Exemple  : PlaySound(L_Alnum)  T_RETURNING
** return : 1 : ok
**          0 : Not Ok
 
integer :    exit_trans1  ,x ;
char    : PathSound:256 := "c:\EndUser4gl\4gl\hlp\instructionswindows\hellowin.wav";
     
   
                 display  "-------------------------------------" ,
                          "     Exemple PlaySound "  ,
                          "-------------------------------------" ;  
          skip_line 4 ; 
  begin
        Playsound("c:\EndUser4gl\4gl\hlp\instructionswindows\hellowin.wav") returning(x) ;
        if( x void)
        then
          display "Problem PlaySound Not find";
        else
         display " 1 : PlaySound Ok";
        end_if;
   end_begin  ;
              enter;
  begin  
        Playsound(PathSound) returning(x) ;
        if( x void)
        then
          display "Problem PlaySound Not find";
        else
         display " 2 : PlaySound Ok";
        end_if;
   end_begin  ;
    
              skip_line 4;