2245 GOSUB 6140