6050 GOSUB 5480