4490 GOSUB 555