[REBOL] Re: Q: get key stroke in the console

From: tomc::darkwing::uoregon::edu at: 30-Jan-2003 23:24

Hi Greg

it is a good step in the right direction
but I will still need to figure out how
to make the key press not block
untill a return is entered

I want the script to carry on after each key as it it had been followed
with a return

this snip is sort of what I am trying for
bit there should not be the lowercase letters

con: open/no-wait [scheme: 'console]
alpha: "abcdef"
forever [
	d: first random alpha
	while [ c <> d][
		c: pick copy con 1
		if c [
			prin #"^H"
			if c = d [
				print [tab uppercase to-string c]
			]
			insert con "^/" ; this is not working as hoped
		]
		wait .25
	]
]

and thanks for pointing out the console as a port
I had no clue

On Thu, 30 Jan 2003, Gregg Irwin wrote:

1 · 2 · [3] · 4 · 5 · See whole thread