home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / TECLADO / KEYBOARD.ZIP / KEYBOARD.PF3 next >
Encoding:
Text File  |  1990-07-08  |  930 b   |  56 lines
  1. Public   CapsOn() CapsOff()
  2. Public   NumOn()  NumOff()
  3. Public   InsOn()  InsOff()
  4.  
  5. Global   KeyBit
  6. Global   _NumOn _CapsOn _InsOn
  7.  
  8. _NumOn = False
  9. _CapsOn = False
  10. _InsOn = False
  11.  
  12. KeyBit = 0
  13. Poke 0x00000 0x00417 "C" Keybit
  14.  
  15.  
  16. Function NumOn()
  17.   If Not(_NumOn)
  18.     KeyBit = KeyBit + 32
  19.     Poke 0x00000 0x00417 "C" Keybit
  20.     _NumOn = True
  21.   End If
  22. End Function
  23.  
  24. Function CapsOn()
  25.   If Not(_CapsOn)
  26.     KeyBit = KeyBit + 64
  27.     Poke 0x00000 0x00417 "C" Keybit
  28.     _CapsOn = True
  29.   End If
  30. End Function
  31.  
  32. Function InsOn()
  33.     SmartPoke $_ins 1
  34. End Function
  35.  
  36. Function NumOff()
  37.   If _NumOn
  38.     KeyBit = KeyBit - 32
  39.     Poke 0x00000 0x00417 "C" Keybit
  40.     _NumOn = False
  41.   End If
  42. End Function
  43.  
  44. Function CapsOff()
  45.   If _CapsOn
  46.     KeyBit = KeyBit - 64
  47.     Poke 0x00000 0x00417 "C" Keybit
  48.     _CapsOn = False
  49.   End If
  50. End Function
  51.  
  52. Function InsOff()
  53.     SmartPoke $_ins 0
  54. End Function
  55.  
  56.