Fortran code for interactively identifying absorption systems in a quasar spectrum