Really simple (and incomplete) asteroids implementation in Fortran