Code: Select all
Define.i w, h, d, count=0
If InitSprite() = 0
Debug "Error with InitSprite()"
End
EndIf
If ExamineScreenModes()
While NextScreenMode()
count + 1
If OpenScreen(ScreenModeWidth(), ScreenModeHeight(), ScreenModeDepth(), "Test")
w = ScreenModeWidth()
h = ScreenModeHeight()
d = ScreenModeDepth()
CloseScreen()
Break
EndIf
Wend
EndIf
Debug Str(count) + " screen modes tested"
Debug Str(w) + "x" + Str(h) + "x" + Str(d)
There is no known problem with the hardware or with the operating system.51 screen modes tested
0x0x0
Does anybody have an idea what could be the reason why OpenScreen() does not work?