2190 GOSUB 390