4825 GOSUB 5480