Windows / GUI Functionality in Blitz+

a) EVENT_Timer = $4001

Code as follows:

;----------------------------------------
; Frame timing stuff...

limit=CreateTimer(60) 				; FPS rate

;----------------------------------------
; Main loop...

Repeat

	SetBuffer CanvasBuffer (canvas2)
	Cls
	SetBuffer CanvasBuffer (canvas)
	Cls
	
	update_map(0)
	update_grid()
	update_tilestrip()
	control()
	update_cursor()
	text_display ()

;----------------------------------------

	Repeat
	
	e = WaitEvent()


	If EventSource()=canvas
		canvasactive=1
		canvasactive2=0
	EndIf

	If EventSource()=canvas2
		canvasactive=0
		canvasactive2=1
	EndIf


	Select e
			
		Case EVENT_Close : End
			
		Case EVENT_Menu
			Select EventData()
				Case 2 : loadmap2()
				Case 3 : savemap()
			End Select		
		
	End Select				

	Until e = EVENT_Timer
	
VWait:FlipCanvas canvas:FlipCanvas canvas2

Until (KeyHit (1))

;----------------------------------------