FUNCTION ScreenShot()
   nume$ = "Screen"+Convert(numar)+".bmp"
   temp_image=256
   get image temp_image,0,0,640,480
   save image nume$,temp_image
   delete image temp_image
   numar=numar+1
ENDFUNCTION

FUNCTION Convert(numarg)
   rezult$=""
   while numarg<>0
      cifra=numarg-((numarg/10)*10)
      if cifra=1 then cifra$="1"
      if cifra=2 then cifra$="2"
      if cifra=3 then cifra$="3"
      if cifra=4 then cifra$="4"
      if cifra=5 then cifra$="5"
      if cifra=6 then cifra$="6"
      if cifra=7 then cifra$="7"
      if cifra=8 then cifra$="8"
      if cifra=9 then cifra$="9"
      if cifra=0 then cifra$="0"
      rezult$=cifra$+rezult$
      numarg=numarg/10
   endwhile
ENDFUNCTION rezult$