count! = 0
DO
  datain$ = INKEY$
  count! = count! + 1
LOOP UNTIL LEN(datain$) > 0

PRINT count!