This'll work...
Graphics 640,480,0 refreshTimer:TTimer = CreateTimer(60) Repeat WaitEvent() Select EventID() Case EVENT_TIMERTICK Select True Case KeyDown(KEY_UP) Cls DrawText "UP Pressed", 10, 10 Flip Case KeyDown(KEY_DOWN) Cls DrawText "DOWN Pressed", 10, 10 Flip Case KeyDown(KEY_LEFT) Cls DrawText "LEFT Pressed", 10, 10 Flip Case KeyDown(KEY_RIGHT) Cls DrawText "RIGHT Pressed", 10, 10 Flip Default Cls DrawText "Nothing Pressed", 10, 10 Flip EndSelect EndSelect Until KeyHit(KEY_ESCAPE) Or AppTerminate()