You can use something like this.
INPUT SYSTEM.14,-1
Ans = ''
FOR X = 1 TO SYSTEM.14
Ans := KEYIN()
NEXT X
begin case
case Ans = CHAR(27):"[A" ; crt 'Victory ' :
gosub Bottom.Prompt
case Ans = 'x' ; go The.End
case Ans = 'X' ; go The.End
case 1 ; crt '__' : Ans : '__'
gosub Bottom.Prompt
end case
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Brutzman, Bill
Sent: Thursday, February 07, 2008 5:00 PM
To: 'u2-users@listserver.u2ug.org'
Subject: [U2] [UB] Detecting KeyBoard Up Arrow
The following program needs help.
Using Dynamic Connect (+ wIntegrate) , I am trying to decode it when a
user
presses the UpArrow key.
Suggestions would be appreciated.
--Bill
________________________________________________________________________
____
____
prompt ''
*-----------------------------------------------------------------------
----
---
Top:
crt @(-1)
crt
crt
input Ans, 1
begin case
case Ans = '^[OA' ; crt 'Victory ' :
gosub Bottom.Prompt
case Ans = 'x' ; go The.End
case Ans = 'X' ; go The.End
case 1 ; crt '__' : Ans : '__'
gosub Bottom.Prompt
end case
go Top
*-----------------------------------------------------------------------
----
---
*-----------------------------------------------------------------------
----
---
Bottom.Prompt:
crt
crt ' [<] ' :
input Ans.2
return
*-----------------------------------------------------------------------
----
---
The.End:
crt @(-1)
END
________________________________________________________________________
____
_____
The program comes back with the following... The box looks like the pi
symbol (3.14) on the screen.
^[
____
[<] OA
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
