' Stamp Stick One Test Program

dirs = $FF		'Make All I/O Pins Outputs

start:
	b2 = 1			'Initialize Register
loop:	
	pins = b2		
	pause 200		'Pause for 200 mS
	b2 = b2 * 2 		'Perform Left Shift	
	if b2 = 0 then start
goto loop