Screenshot

here's what I use so it doesn't overwrite existing files
and numbers them sequentialy
just create a subdirectory in your directory called "screenshots"

 	;get key for screenshots
	keyboard=GetKey()				
	If keyboard=Asc("t")
		While FileType("./screenshots/screenshot"+(Str scount)+".bmp")=1
			scount=scount+1
		Wend
		
		screenshot$= "./screenshots/screenshot"+(Str scount)+".bmp"
		SaveBuffer(BackBuffer(),screenshot$) 
		scount=scount+1
	EndIf