20 GOSUB 1000