1637 JP=2 : ON ITP GOSUB 2415,2525,2640,2815,2935,3045