1690 GOSUB 555