Crash and Reboot after quiting?

I'm using the latest Bmax, latest syncmods, WinXP PRO SP2, latest 100. Nividia 7950 GX2 graphics drivers, 4GB Ram - 3GB Useable.

I'm also using BLide as my IDE.

Using the code below whenever I exit the app by pressing escape, half the top corner of the screen goes black and then my PC Reboots.

I'm not a technician or an experianced coder so don't exactly know what is causing it.

SuperStrict

Include "ExampleTiming.bmx"


SetGraphicsDriver GLMax2DDriver()
'SetAudioDriver "OpenAl"

Graphics 800,600,32

SetBlend(ALPHABLEND)

Global img_Block:TImage = LoadImage("gfx/T-bgrnd.png")
Global img_DangerBlock:TImage = LoadImage("gfx/T-Danger.png",FILTEREDIMAGE|MIPMAPPEDIMAGE)

MidHandleImage(img_DangerBlock)

Global ChDrTimer:Float = MilliSecs()
Global ChangeDr:Int = 1

Type Block Abstract

	Field XLoc:Double
	Field YLoc:Double
	Field Angle:Float
	Field Rotation:Float
	Field Alpha:Float
		
End Type

Global DangerBlockList:TList = CreateList()
Type DangerBlock Extends Block
	
	Function Create()
		Local db:DangerBlock = New DangerBlock
		db.Alpha = 1.0
		db.Angle = 0.0
		db.Rotation = 0.0
		db.XLoc = 400.0
		db.YLoc = 300.0
		DangerBlockList.AddLast(db)
	End Function
	
	Method DrawBlock()
		DrawImage img_Block,Xloc,YLoc,0
		SetRotation(Angle)
		SetAlpha(Alpha)
		DrawImage img_DangerBlock,Xloc+25,YLoc+25,0
		SetAlpha(1)
		SetRotation(0)
	End Method
	
	Method AnimateBlock()
		Angle:+1.0 * Delta
		If Angle>360 Then Angle:-359 
		
		'Local ChangeDr:Int
		
		If Alpha >= 1.0
			ChangeDr = 1
		Else If Alpha <= 0.1
			ChangeDr = 0
		EndIf
		
		If ChangeDr = 1
			If MilliSecs() >ChDrTimer + 100.0
			ChDrTimer = MilliSecs()
			Alpha:-0.1'*Delta
			EndIf
		ElseIf ChangeDr = 0
			If MilliSecs() >ChDrTimer + 100.0
			ChDrTimer = MilliSecs()
			Alpha:+0.1' * Delta
			EndIf
		EndIf
	End Method
	
End Type

Global ScreenUpdate:Double

DangerBlock.Create

FixedRateLogic.Init()

While Not KeyHit(KEY_ESCAPE) Or AppTerminate()
	MainLogicLoop()
	Cls
	Draw()
'	Flip 0 'try this to see how it stays the same speed even with VSync off
	Flip 1
Wend
End


' -----------------------------------------------------------------------------
Function LogicWrapper()
	For Local db:DangerBlock = EachIn DangerBlockList
		db.AnimateBlock
	Next
End Function

' -----------------------------------------------------------------------------
Function Draw()
	For Local db:DangerBlock = EachIn DangerBlockList
		db.DrawBlock
	Next
End Function

Are you fireing timer events in "ExampleTiming.bmx", I dont think that would nessesaraly do what you say, but without the include..... who can tell

There are no timer events in ExampleTiming. I can say for sure it wouldn't cause the PC to crash :-)

My laptop sometimes hangs when I exit GL apps.

Try running it under DX instead.

Amon, if you take out the include and all the associated command does the problem still occur?
If so, you could post that code for people to try.

I've removed the include and I still get a crash when exiting so it can't be the ExampleTiming. ExampleTiming is part of Greys Framework. It handles the fixedrate Logic.

I took GFK's advice and switched to DX and don't get any crashes so this is definately a driver issue.

I'll do some more tests and post my results.