2940 GOSUB 555