1260 GOSUB 2340