10-01-2022, 08:05 AM
(This post was last modified: 10-01-2022, 08:20 AM by PhilOfPerth.)
@Pete:
Yes, that does help. I'm starting to see the result I want now, but I'll need to fiddle around a bit.
I want to detect and act on any of the 8 combinations for the cursor-keys.
I think this can be extended to do that. Thanks both.
Late edit: Nearly got it!
getKeys:
ky = 0
Do
If _KeyHit < 1 Then GoTo getKeys
If _KeyDown(18432) Then ky = ky + 1
If _KeyDown(19200) Then ky = ky + 2
If _KeyDown(19712) Then ky = ky + 4
If _KeyDown(20480) Then ky = ky + 8
Print ky
_KeyClear
_Limit 30
Loop
Yes, that does help. I'm starting to see the result I want now, but I'll need to fiddle around a bit.
I want to detect and act on any of the 8 combinations for the cursor-keys.
I think this can be extended to do that. Thanks both.
Late edit: Nearly got it!
getKeys:
ky = 0
Do
If _KeyHit < 1 Then GoTo getKeys
If _KeyDown(18432) Then ky = ky + 1
If _KeyDown(19200) Then ky = ky + 2
If _KeyDown(19712) Then ky = ky + 4
If _KeyDown(20480) Then ky = ky + 8
Print ky
_KeyClear
_Limit 30
Loop
Of all the places on Earth, and all the planets in the Universe, I'd rather live here (Perth, W.A.) 