3820 GOSUB 555