3650 GOSUB 1865