function main() 
   local s := "      " 
  
    ANNOUNCE HB_GTSYS 
    request HB_GT_WVT 
    REQUEST HB_GT_WVT_DEFAULT 
 #include "hbgtinfo.ch" 
  
    hb_gtinfo( HB_GTI_FONTWIDTH, Int( hb_gtinfo( HB_GTI_DESKTOPWIDTH ) / 80 ) ) 
    hb_gtinfo( HB_GTI_FONTSIZE, Int( ( hb_gtinfo( HB_GTI_DESKTOPHEIGHT ) - 64 ) / 25 ) ) 
    hb_gtinfo( HB_GTI_CLOSABLE, .F. ) 
  
   clear screen 
   xxx_settimer( 1000 ) 
   @ 1,1 GET s 
   READ 
   xxx_killtimer() 
  
 return nil 
  
 Function xxx_timerproc() 
   static nn := 0 
  
   nn ++ 
   @ 1,20 say str(nn) 
   Return Nil 
  
 #pragma BEGINDUMP 
   #include <windows.h> 
   #include "hbapi.h" 
  
 HWND handle; 
  
 void wrlog( const char * sFile, const char * sTraceMsg, ... ) 
 { 
    FILE *hFile; 
  
    if( sFile == NULL ) 
    { 
       hFile = hb_fopen( "ac.log", "a" ); 
    } 
    else 
    { 
       hFile = hb_fopen( sFile, "a" ); 
    } 
  
    if( hFile ) 
    { 
       va_list ap; 
  
       va_start( ap, sTraceMsg ); 
       vfprintf( hFile, sTraceMsg, ap ); 
       va_end( ap ); 
  
       fclose( hFile ); 
    } 
  
 } 
  
 static void CALLBACK s_timerProc( HWND hWnd, UINT message, UINT idTimer, DWORD dwTime ) 
 { 
    static PHB_DYNS s_pSymTest = NULL; 
  
    HB_SYMBOL_UNUSED( message ); 
  
    if( s_pSymTest == NULL ) 
       s_pSymTest = hb_dynsymGetCase( "XXX_TIMERPROC" ); 
  
    wrlog( NULL,"proc-1" ); 
    if( hb_dynsymIsFunction( s_pSymTest ) ) 
    { 
       wrlog( NULL,"proc-2" ); 
       hb_vmPushDynSym( s_pSymTest ); 
       hb_vmPushNil(); 
       hb_vmPushLong( ( LONG ) idTimer ); 
       hb_vmPushLong( ( LONG ) dwTime ); 
       hb_vmDo( 2 ); 
    } 
 } 
  
 HB_FUNC( XXX_SETTIMER ) 
 { 
    handle = GetActiveWindow(); 
    SetTimer( handle, 1001, ( UINT ) hb_parni( 1 ), 
              s_timerProc ); 
 } 
  
 HB_FUNC( XXX_KILLTIMER ) 
 { 
    KillTimer( handle, 1001 ); 
 } 
  
  
 #pragma ENDDUMP