3490 GOSUB 555