1140 GOSUB 555