2095 GOSUB 555