if ( GetRawKeyPressed(67) =1)    //  C KEY 
		          B=B+1 // New Clone number
		        	 		    
               CloneObject(B,ObjectID)                
    
            SetObjectImage(B,(Tex),1)
            SetObjectPosition(B,DZR,DZH,DZF)  //   Z direction   

          file =  OpenToWrite("raw:E:\AAAATemp\MyFolder\test.txt",1)
                 //  if B=1         then CloseFile(file)
                // for a = 1 to 5
					 
                   
                     writeline(file,(" ")+ str(B))   // clone number
                     writeline(file,("")+str (Tex) ) // Texture number
                     writeline(file,(" tex_")+str(1))  
                     writeline(file,(" ")+str(DZR))  // Right/Left direction
                     writeline(file,(" ")+str(DZH))   // Heigth of object
                     writeline(file,(" ")+str( DZF))     //  Up/Down direction
                //    next a
                  CloseFile(file) 
      endif