Simple Function a sreen shot. Press F12 to make Screen Shot

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem Project: SStest
Rem Created: Wednesday, November 18, 2009

Rem ***** Main Source File *****
sync on
sync rate 35

MAKE OBJECT CUBE 1,100

 
Do

YROTATE OBJECT 1,OBJECT ANGLE Y(1)+0.1


   if keystate(88)=1 
	MakeScreenShot()
   endif


text 10,10,str$(k)
text 10,20,"Press F12 to make Screen Shot "
text 10,30,"Timer test :" + str$(Timer#)
Timer# = Timer# + 0.1

sync
Loop

Function MakeScreenShot()
      k = k + 1
      
      If image exist(1)=1
      	Delete image 1
      EndIF
      
      nextShot:
      If file exist("ScreenShot_"+ Str$(k) + ".JPG") = 1 
      	k = k + 1
      	Goto nextShot
      EndIf
      
      Get image 1,0,0,Screen width(),Screen height(),1
      Save image "ScreenShot_"+ Str$(k) +".JPG",1
EndFunction