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