Import "Kernel32.lib"
  GetConsoleWindow()
EndImport

Procedure SetForegroundWindow(hWnd)
  
  If GetWindowLong_(hWnd, #GWL_STYLE) & #WS_MINIMIZE 
    ShowWindow_(hWnd, #SW_MAXIMIZE) 
    UpdateWindow_(hWnd) 
  EndIf 
  foregroundThreadID = GetWindowThreadProcessId_(GetForegroundWindow_(), 0) 
  ourThreadID = GetCurrentThreadId_() 
  
  If (foregroundThreadID <> ourThreadID) 
    AttachThreadInput_(foregroundThreadID, ourThreadID, #True); 
  EndIf 
  
  SetForegroundWindow_(hWnd) 
  
  If (foregroundThreadID <> ourThreadID) 
    AttachThreadInput_(foregroundThreadID, ourThreadID, #False) 
  EndIf   
  
  InvalidateRect_(hWnd, #Null, #True) 
EndProcedure

OpenConsole()

hWnd = GetConsoleWindow()
If hWnd
  For i=1 To 4
    
    If i&1
      Flags=#SW_SHOWNORMAL|#SW_RESTORE
      SetForegroundWindow(hWnd)
      Debug 2
    Else
      Flags=#SW_HIDE
    EndIf
    ShowWindow_(hWnd, Flags)
    
    Delay(1000)
  Next i
EndIf