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
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
