EnableExplicit

Structure CONSOLE_FONT_INFO 
   nFont.i
   dwFontSize.COORD
EndStructure

Define CSBI.CONSOLE_SCREEN_BUFFER_INFO
Define cc
Define.i hCon
Define.CONSOLE_FONT_INFO CFI

OpenConsole()
  cc=GetStdHandle_(-11)
  EnableGraphicalConsole(1)
  
  GetConsoleScreenBufferInfo_(cc,CSBI)
  GetCurrentConsoleFont_(GetStdHandle_(#STD_OUTPUT_HANDLE),#False,CFI)
  
  PrintN("Size\X: "+Str(CSBI\dwSize\X))
  PrintN("Size\Y: "+Str(CSBI\dwSize\Y))
  
  PrintN("CursorPosition\X: "+Str(CSBI\dwCursorPosition\X))
  PrintN("CursorPosition\Y: "+Str(CSBI\dwCursorPosition\Y))
  
  PrintN("Attributes: "+Str(CSBI\wAttributes)+" << hier drin sind die Farben versteckt")
  
  PrintN("Window\left: "+Str(CSBI\srWindow\left))
  PrintN("srWindow\top: "+Str(CSBI\srWindow\top))
  PrintN("Window\right: "+Str(CSBI\srWindow\right))
  PrintN("Window\bottom: "+Str(CSBI\srWindow\bottom))
  
  PrintN("MaximumWindowSize\X: "+Str(CSBI\dwMaximumWindowSize\X))
  PrintN("MaximumWindowSize\Y: "+Str(CSBI\dwMaximumWindowSize\Y))
  
  PrintN("FontSize\x: "+Str(CFI\dwFontSize\x))
  PrintN("FontSize\Y: "+Str(CFI\dwFontSize\Y))
  
  Input()
  
CloseConsole()