1210 GOSUB 555