5080 GOSUB 650