1525 GOSUB 555