3610 GOSUB 555