30 a$=INKEY$:IF a$<>" " THEN 30:IF a$=" " THEN |DIR
30 a$=INKEY$:IF a$<>" " THEN 30 ELSE IF a$=" " THEN |DIR