2060 GOSUB 5974