just the simple function, allowing to load objects without numbers and returning numbers of objects thus.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    function load_object(object_filename$)
 object_number = 1

 while object exist(object_number)=1
  inc object_number
 endwhile

 load object object_filename$, object_number
endfunction object_number