3380 GOSUB 555