7525 GOSUB 555