4500 GOSUB 390