Module: readkey      Library: Clipper 5.3


This module contains the following functions and procedures:



Note: Because this is raw decompiler output, the code is closer
to that seen in a .PPO file, rather than a .PRG file. In other
words, you must allow for the preprocessor conversions normally 
performed based on the contents of STD.CH and other .CH files
 
#include "common.ch"
#include "inkey.ch"

//---------------------------------------------------[top]-
//  READKEY
//
function READKEY

   do case
   case LastKey() == K_UP
      return 4 + iif( updated(), 256, 0 )
   case LastKey() == K_DOWN
      return 5 + iif( updated(), 256, 0 )
   case LastKey() == K_PGUP
      return 6 + iif( updated(), 256, 0 )
   case LastKey() == K_PGDN
      return 7 + iif( updated(), 256, 0 )
   case LastKey() == K_ESC
      return 12 + iif( updated(), 256, 0 )
   case LastKey() == K_CTRL_END
      return 14 + iif( updated(), 256, 0 )
   case LastKey() == K_ENTER
      return 15 + iif( updated(), 256, 0 )
   case LastKey() == K_CTRL_PGUP
      return 34 + iif( updated(), 256, 0 )
   case LastKey() == K_CTRL_PGDN
      return 35 + iif( updated(), 256, 0 )
   case LastKey() >= K_SPACE
      return 15 + iif( updated(), 256, 0 )
   otherwise
      return 0
   endcase
   return 0

//---EOF


Use your Browser's BACK button to return to Function Listings