(If they must, https://en.wikipedia.org/wiki/Fortran#Simple_FORTRAN_II_prog... is in error. It has label 601 follow label 799)
Of note is the statement
if(m-n1)32,33,37