'PULSE_3.BAS
'
'Dials telephone number.  Flashes LED on pin0 at 50 ms on, 50 ms off. 
'number of times in digit.  One second interdigit time.  
'
'P. H. Anderson, MSU, 15 Nov, '96

symbol num_pulses=b2
symbol n=b3
symbol offset=b4


	dirs=%00001111
	pins=%00001111
	
top:
    	for offset=0 to 9
           gosub pulse_digit
        next
	end
	
pulse_digit:
	lookup offset, (2,10,1,9,4,9,2,10,10,7), num_pulses	
        for n=1 to num_pulses
           debug num_pulses, n
           gosub pulse
	   
	next
	pause 1000
	return

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