3035 GOSUB 500