4320 GOSUB 500