please help me!!!!!!

["F" <phosphorus@libero.it>]

I want to "clean" the keyboard buffer after a user action, for example i
have a piece of a procedure such as
...
c:character; s:string(1..20); ind:integer:=1;
...
while not end_of_line loop
get(c);
s(i):=c;
i:=i+1;
end loop;

if a user writes "hello" and then press return i see that in my s string
there is the right information but now every time i recall the procedure the
function end_of_line starts with the true value and so the while loop is
skipped, i should try to clean the keyboard buffer after every user's press
of return.
I'm so sorry for my terrible english but i must understand in which way
solve this problem.
Thank you for your attenction
bye Phosphorus