Procedure in the while loop

Hi everybody,

I want to execute a procedure until the Escape key will be pressed.

Example:

continue = t
while( continue

        ....execute procedure

if (cancel or escape) then
continue = nil

);end while

How could I Do that?

Thanks