while k$=""
k$ = inkey$
if k$><"" then print k$
wend