REPEAT UNTIL INKEY(0)=-1