Re: TIB: easy getkey OOPS!


[Prev][Next][Index][Thread]

Re: TIB: easy getkey OOPS!




Duh!  I left out a line:

:5-->dimL P        ;for Pressed
:Fill(0,P          ;initialize to zero
:Repeat G==Enter   ;Enter being the value for enter key, 105?
:getKy-->G         ;NEW LINE
:{P(1) xor (G==k1),P(2) xor (G==k2),P(3) xor (G==k3),P(4) xor
(G==k4),P(5) xor (G==k5-->P
:End

ok the last line of code just changes the status of selection if pressed,
or leaves it alone if unpressed.  If display of selection status is
desired, insert code before End.



Sincerely,
The Unibomer

Jared Ivey
Unibomer@Juno.com
http://www.geocities.com/SiliconValley/Vista/7342

"Please don't lie to me, unless you're absolutely sure I'll never find
out the truth." -- Ashleigh Brilliant