2045 GOSUB 5825