'{$STAMP BS2}
'{$PBASIC 2.5}

' 2007 mlab.taik.fi/paja
' Experiencing with PWM command

' ---[ I/O Definitions ]---
pPot		PIN	10

' ---[ Variables ]---
wResult	VAR	WORD

' ---[ Initialization ]---
DEBUG CLS, "Photoresictor with PWM", CR

' ---[ Main Code ]---
Main:
	DO
		HIGH pPot				' charge the capacitor 
		PAUSE 1				' for 1 ms 
		RCTIME pPot, 1, wResult	' measure RC discharge time 
		DEBUG DEC wResult, CR	' display result
	LOOP
END