9224 GOSUB 8140 : Y=X