677 KE=0 : GOSUB 950