Lighthouse - 8M.Bas
'***************************************************************************** 
'	Sudo rotating Lighthouse Lamp - PICAXE 08M 
'Circuit raises voltage on Lamp, Flashes and Decays 
'***************************************************************************** 
' 
'           .---------------------.--5VREG--.------------.-------. 
'           |       PICAXE-08M    |         |            |       |               
'           |                    ===4u7T   === 47u      / \     |+|  
'           |       .---.---.     |         |          Light    | | 12V 
'           '------>| 1   8 |<----^---------{           \ /     |A|-----> 
'           .-/\/\->| 2   7 |               |            |      |C|-----> 
'           |  10K  | 3   6 |               |   |/-------'      | | Supply 
'           |-/\/\->| 4   5 |<---/\/\-------|---| FET           |-| 
'           |  10K  '-------'     330       |   |\>-.            | 
'           |                               |       |            | 
'           '-------------------------------^-------^------------' 
' 
'		 
' 
'***************************************************************************** 
'		45 bytes used of 256 		17 April 2006 
'***************************************************************************** 

symbol 	FET 		= 2			'FET         on pin 1 
symbol 	Ramp		= B1

'***************************************************************************** 
Main:
	for Ramp = 1 to 150 step 1		'Ramp up voltage 
		pause 10
		pwmout FET,250,Ramp
	next Ramp
	
	pwmout FET,0,0				'Turn off PWM 
	pulsout FET,10000			'100mS pulse 
	
	for Ramp = 150 to 1 step -1		'Ramp down voltage 
		pause 10
		pwmout FET,250,Ramp
	next Ramp
	
	pause 1500 				'** Delay between steps ** 
	goto Main

'*****************************************************************************