4150 N=NB : GOSUB 5730