3660 GOSUB 4460