Check the help. It is pretty good in this area.

I don't know the code to use with the onkey funtion but maybe this could help

*****  P = down, H = up, K = left, M = right  *****^

SkyFighter
skyfighta@hotmail.com
Get the fun out of life!

Programmers,
OK, the qbasic.hlp helped a lot.  Thank you. Now I have another problem when I continue to use the arrow keys I get an out of stack space error.  How can I supress this ?
Here is the code:

' Findkey.bas used to find what key is pressed

    DEFINT A-Z
CLS
start:
  KEY(11) ON
  KEY(12) ON
  KEY(13) ON
  KEY(14) ON

 ON KEY(11) GOSUB a
 ON KEY(12) GOSUB b
 ON KEY(13) GOSUB c
 ON KEY(14) GOSUB d
GOTO start
a:
PRINT "up"
GOTO start
b:
PRINT "left"
GOTO start
c:
PRINT "right"
GOTO start
d:
PRINT "down"
GOTO start

From a GOSUB, you have to use a RETURN statement.  That's what's causing the stack error.

Lee

lived's example is MUCH cleaner and more in line with modern coding style.  The old GOSUB is left over from pre-Q days and is included to make it compatible with older code.

Lee

Thank you, for all your help it was valuable, I guess the best way to learn is to get both feet in, and try.  The code is old, but hey it works !  Lee you hit the nail on the head !  Return of course !

gosub is still used a lot.

Rather than using on key, you might just capture the key and process it using inkey$ for example.

theloop:
a$=inkey$
if len(a$)=2 then gosub process.control.input:goto theloop
if a$=chr$(8) then 'backspace
.
.
end if
if a$=chr$(13) then '$CR
.
.
end if
process.control.input:
if left$(a$,1)=chr$(0) then
 select case right$(a$,1)
  case ...
 end select
end if
return

I don't know why you would use GOSUB instead of processing all the items into 1 select statement. As trollacious said, GOSUB are not used anymore, it is only left out for compatibility, since you can do better with SELECT and SUB statements, and it takes more memory than needed for something you could easily do another way. It's not because you use it a lot that it should be. Keep it simple and efficient.

SkyFighter
skyfighta@hotmail.com
Get the fun out of life!

you should investigate Inp(96) (aka Inp(&60))

you might want to look at...

Thread314-709202

or

Thread314-431683

>> seperate pad not numeric keys

*Note: the keys are actually mapped the same... the only difference is the NumLock key status...

both sets of keys return the following ScanCodes:
72 - Up
75 - Left
77 - Right
80 - Down

Have Fun, Be Young... Code BASIC
-Josh

http://cubee.topcities.com

PROGRAMMER: (n) Red-eyed, mumbling mammal capable of conversing with inanimate objects.