Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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/