Why wont it come on?

; CountGfxModes3D()
; -----------------

Graphics 800,600,0,2

For i=1 To CountGfxModes3D()

	Print "Mode "+i+": ("+GfxModeWidth(i)+"x"+GfxModeHeight(i)+"x"+GfxModeDepth(i)+")"

Next

WaitKey()

you can check what you computer supports with this code from the command reference, it will show you the resolutions and bit modes you can use.