home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / dnalib7a.zip / GETKEY.BAS < prev    next >
BASIC Source File  |  1994-05-14  |  779b  |  25 lines
  1. '┌─────────────────────────────────────────────────────────────────────┐
  2. '│ waits for keypress & returns ascii of key                           │░░
  3. '│ if extended key, returns negative of second byte of keypress        │░░
  4. '└─────────────────────────────────────────────────────────────────────┘░░
  5. '  ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  6.  
  7. FUNCTION GetKey% PUBLIC
  8.  
  9. $CODE SEG "DNASEG2"
  10.  
  11. LOCAL ky$, temp1%
  12.  
  13. DO: ky$ = INKEY$: LOOP UNTIL LEN(ky$)
  14.  
  15. IF LEN(ky$) = 1 THEN
  16.   temp1% = ASCII(ky$)
  17. ELSE
  18.   temp1% = -ASCII(RIGHT$(ky$,1))
  19. END IF
  20.  
  21. GetKey% = temp1%
  22. '-----------------------------------------------------------------------------
  23. END FUNCTION
  24. '-----------------------------------------------------------------------------
  25.