This is a simple function that takes a screenshot of the entire screen and saves it as a *.bmp file.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    REMSTART
**********************************************

Screenshot

**********************************************
REMEND

global gScreenshot_number



Rem PJY - function to take a quick screenshot

FUNCTION screenshot()
	
	name$ = "Screen " + str$(gScreenshot_number) + ".bmp"

	temp_image = get_free_image_number()
	get image temp_image, 0, 0, gScreen_width, gScreen_height 
	save image name$, temp_image
	delete image temp_image
	gScreenshot_number = gScreenshot_number + 1

ENDFUNCTION