' This program controls the block signal at the bridge
' On startup it flashes the Green, Yellow and Red lamps.
' Then it flashes each lamp three times and lights it for 20 second,.
' It cycles through each lamp every 2o seconds until power is removed


symbol counter =b1   'Index
symbol flash = b2    'Index
symbol RED = B.4
symbol YEL = B.1
symbol GRN = B.2
symbol BELL= B.0
symbol ton= w3	'Startup on
symbol toff= w4	'Startup off
symbol flcyc=b6	'flash cycles
symbol thold =b0   'Wait time

let ton =1000  '2000
let toff =1000  '1000
let thold = 5  '20
let flcyc=3

main:
 low red
 low yel
 low grn
 low BELL


'gosub flashall3

gosub cycle

end


flashall3:



	for counter = 1 to 6    'b1
		gosub flashred
		
		gosub flashyel
		gosub flashgrn


	
	next counter
		


cycle:


flcyc = 3	'If I change ton and toff it
            ' it hangs  in fhe flashred sub   


	gosub flashred
		high red
		wait 20      'Cannot make varible
		low red

	gosub flashyel
		high yel
		wait 20
		low yel
		
	gosub flashgrn
		high grn
		wait 20
		LOW GRN
goto cycle		

'*******************************
flashred:
		high BELL
	
		for flash = 1 to flcyc   ' b2  
			high RED
			pause ton
			low  RED
			pause toff
		next flash
		
		low BELL
		
	return
	
'****************************
flashyel:
	high BELL
	for flash = 1 to flcyc
			high YEL
			pause ton
			low  YEL
			pause toff
		next flash
	low BELL		
	return
	
'*******************************	
	
flashgrn:
	high BELL
	for flash = 1 to flcyc
			high GRN
			pause ton
			low  GRN
			pause toff
		next flash
	low BELL
	return
'*******************************