3800 GOSUB 5730