3260 GOSUB 555