Select not detecting key codes...

  while. type~:SDL_QUIT do.
    ret=. sdl_pollevent <event
    if. ret do.
      type=. etype event
      smoutput 'ev: ',(": type),' ',(": SDL_KEYDOWN),' or ',(": SDL_KEYUP)
      select. type
        case. 771 do.          smoutput 'Key Down'
        case. 769 do.          smoutput 'Key Up'
      end.
    end.
  end.

Output...

ev: 771 768 or 769
ev: 769 768 or 769
ev: 768 768 or 769
ev: 771 768 or 769
ev: 769 768 or 769
ev: 768 768 or 769
ev: 771 768 or 769
ev: 769 768 or 769