4665 GOSUB 500