5172 GOSUB 5226