Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- SUB GetKeyH INLINE
- $INLINE "getkeyh.com"
- END SUB
- CLS
- DO
- LOCATE 10, 10
- Call GetKeyH (scancode%)
- PRINT "Key = "; HEX$(scancode%); " "
- LOOP UNTIL INKEY$ = CHR$(27)
- END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
