Trapping two keys

[bplus]

"I liked the "simple" version better"

Code: (Select All)

_Title "Use arrow keys to move our hero."
heroX = 40: heroY = 12 ' middle
Do
    Cls
    Locate heroY, heroX: Print Chr$(1);
    If _KeyDown(19200) Then heroX = heroX - 1
    If _KeyDown(19712) Then heroX = heroX + 1
    If _KeyDown(18432) Then heroY = heroY - 1
    If _KeyDown(20480) Then heroY = heroY + 1
    If heroX < 1 Then heroX = 1
    If heroX > _Width Then heroX = _Width
    If heroY < 1 Then heroY = 1
    If heroY > _Height Then heroY = _Height
    _Limit 10
Loop