F8.idi

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

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

THREAD Profile
	Start:
		WaitForButton(Button, ButtonMask)

		ButtonDown()

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

		ButtonUp()

		GOTO Start
END