Timing the pressing and releasing of a PushButton ?

[Melanie]

	ButtonPress var GPIO.3
	Time var Word

	Time=0
	While ButtonPress=0
	Time=Time+1
	Pause 10
	Wend

For as long as the Button remains pressed, variable Time will increment by one every ten milliseconds. On exit it will contain the value of how long the Button was held in 10mS steps. Time can be a BYTE instead of a WORD. Changing the PAUSE value will naturally change the period step count pro rata.