968 'IF LEN(A$)-LD>8 THEN GOSUB 900