Run this in debug mode. If it says could not open windowed screen, then your older machines videocard is not supported. (changing driver might or might not help) If everything is ok, you will see a black screen, that exits by pressing escape. (borrowed some code from Mijikai to write this test)
Code: Select all
If Not InitEngine3D() : Debug "Could not initialize 3d engine" :End: EndIf
If Not InitSprite() : Debug "could Not initialize sprite engine" :End: EndIf
If Not InitKeyboard() : Debug "could not initialize keyboard" :End: EndIf
If Not OpenWindow(0,0,0,800,800,#Null$,#PB_Window_SystemMenu|#PB_Window_ScreenCentered) : Debug "could Not open window" :End: EndIf
If Not OpenWindowedScreen(WindowID(0),0,0,WindowWidth(0),WindowHeight(0)):Debug "could not open windowed screen on this graphic card" :End: EndIf
SetFrameRate(60)
camera = CreateCamera(#PB_Any,0,0,100,100)
MoveCamera(camera,0,0,100,#PB_Absolute)
CameraLookAt(camera,0,0,0)
light = CreateLight(#PB_Any,#White,0,0,100)
Repeat
Repeat
Select WindowEvent()
Case #PB_Event_None
Break
Case #PB_Event_CloseWindow
exit = #True
EndSelect
ForEver
ExamineKeyboard()
RenderWorld()
FlipBuffers()
Until exit Or KeyboardPushed(#PB_Key_Escape)
CloseScreen()
CloseWindow(0)