1638 GOSUB 555