7940 GOSUB 555