5665 GOSUB 2600