You can use setkey with one parameter ( the inkey(0) return value) to check if a codeblock is associated and then invoke it with correct parameters...
something like this nCode := inkey( 0 ) (check nCode) cBlock := setkey ( nCode ) if cBlock Eval( cBlock, procfile(1), procname(1), procline(1) ) endif if you put the code in a function, like myInkey() 1 should became 2... or 3... _______________________________________________ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
