7685 IF LEN(A$)>1 THEN GOSUB 900 : RETURN