1065 GOSUB 555