1740 IF LEN(A$)=0 THEN JP=0 : GOTO 1800