1320 GOSUB 555