5220 GOSUB 555