' reading a FlexiForce Force Sensing Resistor (available from Parallax) with RCTIME

sensorPin CON 4		'input/output pin for RCTIME
rawForce VAR WORD		'raw reading from RCTIME
pressure VAR WORD		'conversion to range of 0-1000
pressurePrev VAR WORD	'previous value

measure:
	HIGH sensorPin					'set pin high
	PAUSE 2							'pause for 2ms
	RCTIME sensorPin,1,rawForce		'read the pin
	IF rawForce = 0 THEN				'a zero means no pressure
		pressure = 0
	ELSEIF pressure < 65535 THEN		'65535 = minimum pressure
		pressure = (1000-(rawForce/65))	'1 = maximum pressure
	ELSE
		pressure = 1000				'if value is > max word value
	ENDIF
	IF pressure <> pressurePrev THEN	'if value has changed
		pressurePrev = pressure		'record old value
		DEBUG "Pressure = ", DEC pressure
		DEBUG " Flexiforce raw output = ", DEC rawForce, CR
	ENDIF
GOTO measure							'return to beginning

'  CIRCUIT:
'
' +5v --- .01uF --- 220ohm -- INPUT_PIN
'                |
'            FLEXIFORCE
'                |
'              GROUND
'
'