F9.idi

PROCEDURE ButtonDown
	KeyActionHid(0x00,0x42,1)
RETURN
END

PROCEDURE ButtonUp
	KeyActionHid(0x00,0x42,0)
RETURN
END

THREAD Profile
	Start:
		WaitForButton(Button, ButtonMask)

		ButtonDown()

		DO
			DelayForMs(16)
		WHILE ((GetButtonState & ButtonMask) == Button)

		ButtonUp()

		GOTO Start
END