'�=� , �=� , �=� ; �=� , �=�, �=� , �=� ,�=� , �=�, �=�
'Tested with FB0.17f using FBIde 0.4.6
Dim As Integer mode, w, h, i, Bpp(4)={8, 15, 16, 24, 32}
'' Find which resolutions are supported
For i=0 To UBound(Bpp)
  Print Str(Bpp(i)) &" Bpp";
  Mode=ScreenList(Bpp(i))
  If Mode Then
    Print ":"
    While Mode
      Print "  " & HiWord(Mode) & "x" & LOWord(Mode)
      Mode=ScreenList
    Wend
  Else
    Print " nix unterst�tzt.."
  End If
Next
GetKey