5250 GOSUB 500