home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Mops 2.7 / Mops source / Toolbox classes / Keymap < prev    next >
Encoding:
Text File  |  1995-11-23  |  289 b   |  15 lines  |  [TEXT/MSET]
  1. \ KIM
  2. \ A simple utility for keyboard-oriented games
  3. \ ed-boy 951013
  4.  
  5. :class KeyMap super{ object }
  6. record
  7. {    16    bytes    theKeys
  8. }
  9.  
  10. :m Check: ^base call getKeys  ;m        \ takes a snapshot of the state of the keyboard
  11. :m Test: 0 ^base rot call BitTst  ;m    \ inspects the snapshot
  12.         
  13. ;class
  14.  
  15.