Nifty trick with canvas

You can make a windowed game, that will run at any resolution... (yet still retain to a speciffic game resolution)

Global GfxWidth =ClientWidth(Desktop())
Global GfxHeight=ClientHeight(Desktop())

Const ResWidth# =640
Const ResHeight#=480

Win   =CreateWindow("Test",0,0,GfxWidth,GfxHeight,0,0)
Buffer=CreateCanvas(0,0,ResWidth#,ResHeight#,Win)
BackgroundBuffer=CreateCanvas(0,0,GfxWidth,GfxHeight,Win)
SetBuffer CanvasBuffer(Buffer)

TextString$="This is a test"
SetFont(LoadFont("Arial",58,True,False,False))
Color 255,255,255
Text (ResWidth#/2)-(StringWidth(TextString$)/2),(ResHeight#/2)-(StringHeight(TextString$)/2),TextString$

For i=1 To 30
	Color Rand(0,255),Rand(0,255),Rand(0,255)
	Size=Rand(0,250)
	Oval Rand(0,ResWidth),Rand(0,ResHeight),Size,Size,0
Next

SizeVertStep#=Float#(GfxHeight)/Float#(GfxWidth)
SizeVert#=0
For SizeHorz#=0 To GfxWidth Step 1
	SetBuffer CanvasBuffer(Buffer)
	SetGadgetShape(Buffer,(GfxWidth/2)-(SizeHorz#/2),(GfxHeight/2)-(SizeVert#/2),SizeHorz#,SizeVert#)
	SizeVert#=SizeVert#+SizeVertStep#
	FlipCanvas(Buffer)
	MoveMouse gfxwidth+200,gfxheight+200
	Delay 1
Next


SetGadgetShape(Buffer,0,0,GfxWidth,GfxHeight)
Repeat
	Select WaitEvent()
		Case $803 : End
		Case $202
			Color 255,0,0
			Rect 0,0,640,480,0
			FlipCanvas(Buffer)
		Case $203
			SetBuffer CanvasBuffer(Buffer)
			Cls
			TextString$="MouseX="+MouseX()+" MouseY="+MouseY()
			SetFont(LoadFont("Arial",58,True,False,False))
			Color 255,255,255
			Text (ResWidth#/2)-(StringWidth(TextString$)/2),(ResHeight#/2)-(StringHeight(TextString$)/2),TextString$
			
			For i=1 To 5
				Color Rand(0,255),Rand(0,255),Rand(0,255)
				Size=Rand(0,250)
				Oval Rand(0,ResWidth),Rand(0,ResHeight),Size,Size,0
			Next
			Color 255,255,255
			Rect 0,0,reswidth#,resheight#,0
			FlipCanvas(Buffer)
			SetGadgetShape(Buffer,0,0,MouseX(),MouseY())
	End Select
Forever