That looks a bit longwinded, personally I'd use something like:
Vertmove=0
Horimove=0
If upkey()=1 then Vertmove=-1
If downkey()=1 then Vertmove=1
If leftkey()=1 then Horimove=-1
If rightkey()=1 then Horimove=1
If you want to use the scancode methods, run this little bit of code and take a note of all the scancodes from the keys you want to use.
Do
cls
Text 0,0,str$(scancode())
sync
Loop
The scancode will tell you the code of the key your pressing - but you don't use that to check the key, use keystate(keycode) to check the status of a key. For instance, say the return key used code 13 - when the return key is being pressed, the scancode would return 13, and keystate(13) would return 1 - but if you press another key at the same time, the scancode would change, but keystate(13) will return 1 as long as your pressing the return key. Try to avoid using Inkey$() for anything.
Van-B

The nature of Monkey was irrepressible!.