'PULSE_1.BAS
'
'Flashes LED on pin0.  Continuous loop.  Fast is pin7 is at one.
'Slow if pin7 is at zero.
'
'P. H. Anderson, MSU, 15 Nov, '96


	dirs=%00001111
	pins=%00001111
top:
     	if pin7=1 then fast_pulse
	if pin7=0 then slow_pulse
	
fast_pulse:
	debug "!"	'print a !
	pin0=0
	pause 100	'pause may be 0-65535
	pin0=1
	pause 100
	goto top

slow_pulse:
	
	debug "."	'print a .
	pin0=0
	pause 200
	pin0=1
	pause 200
	goto top