4643 GOSUB 555