2420 GOSUB 650