home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a013 / 1.ddi / SOURCE.EXE / F_KEYCOD.PRG < prev    next >
Encoding:
Text File  |  1991-01-25  |  498 b   |  18 lines
  1. *****************************************************************
  2. FUNCTION KEYCODE
  3. *****************************************************************
  4.  
  5. * Returns scan code and ASCII value for any key as a string
  6.  
  7. * Copyright(c) 1991 -- James Occhiogrosso
  8.  
  9. * Initialize variables
  10. PRIVATE scancode := ascii_val := 0
  11. ascii_val := LTRIM(STR(SCANKEY()))
  12.  
  13. * Return string to screen or debugger
  14. RETURN ('Scan Code = ' +  LTRIM(STR(scancode)) + ;
  15.         '    ASCII Value = ' + ascii_val)
  16.  
  17.  
  18.