2070 GOSUB 5480