Silly little question

I was screwing around with a small program this morning and had this rather noob problem... why doesn't the following code produce any output other than "Key > 0"? It also doesn't exit properly.

SuperStrict
FlushKeys
Repeat
   Delay 50
   Local a:Int = GetChar()
   If a = 27 End  'This should be ESC
   Print "Key > " + a
Forever

Need to set a graphics command for getchar

SuperStrict
Graphics 800,600
FlushKeys
Repeat
   Delay 50
   Local a:Int = GetChar()
   If a = 27 End  'This should be ESC
   Print "Key > " + a
Forever

Heh, yep that does it. :P

I need coffee...

Whens Eschalon due? I'm really keen to see it :-)

Hey, thanks for asking Grey! Hopefully this summer sometime.... it's been 2 years of full-time development so I am very anxious to get finished up.