'= , = , = ; = , =, = , = ,= , =, = '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 untersttzt.." End If Next GetKey