Fortran code to generate artificial QSO spectra