[ALLY] Re: Keystroke test Re:(3)
From: g:santilli:tiscalinet:it at: 7-Aug-2000 21:22
Hello [tim--johnsons-web--com]!
On 07-Ago-00, you wrote:
t> From rebol/core, I would like to run a program in
t> a forever loop that will process (something) until
t> any of a set of keystrokes are intercepted.
>> con: open/binary console:/
>> forever [
[ ; do-my-stuff
[ if ch: pick con 1 [
[ print ["broken with:" to-char ch "(" ch ")"]
[ break
[ ]
[ ]
broken with: b ( 98 )
Regards,
Gabriele.
--
Gabriele Santilli <[giesse--writeme--com]> - Amigan - REBOL programmer
Amiga Group Italia sez. L'Aquila -- http://www.amyresource.it/AGI/