2235 GOSUB 555