Fullscreen canvas

I think this is what he meant, proper full screen as opposed to full screen that fills the screen but is still in the screen... or something :)

Graphics 640,480,16

ShowPointer

win=CreateWindow("Test Window",5,5,100,100)
button=CreateButton("Test Button",5,5,60,20,win)

Repeat

	Select WaitEvent()
	Case $803 End
	End Select

Until KeyHit(1)

End