1730 GOSUB 5825