'PULSE_2.BAS
'
'Flashes LED on pin0 at 50 ms on, 50 ms off.  Flashes the number of
'times set by switches on upper 4 bits.  
'
'P. H. Anderson, MSU, 15 Nov, '96

symbol num_pulses=b2
symbol n=b3

	dirs=%00001111
	pins=%00001111
	
top:

	num_pulses = pins / 16	'input and shift to right 4 places	
        for n=1 to num_pulses
           debug num_pulses, n
           gosub pulse
	next
	end

pulse:
	debug "!"	'print a !
	pin0=0
	pause 100	'pause may be 0-65535
	pin0=1
	pause 100
	return