3340 GOSUB 390