1870 GOSUB 555