' "America the Beautiful" and "Star Spangled Banner" for PICAXE-08m
' Uses Radio Shack 276-0028 5mm common-anode RGB LED
' Use 3 1.5V batteries for supply
' Hook LED long lead to V+ 
' Hook Other pins to DIP pins 3, 4, and 5 each through a 330 ohm resistor.

symbol green = 1
symbol blue = 2
symbol red = 4

symbol i = b4
symbol aa = b2
symbol bb = b3


main:
	gosub alloff
	gosub rwb
	gosub rwb
	gosub rwb

	tune 2, 8,($67,$64,$20,$24,$27,$C0,$44,$42,$00,$24,$26,$E7,$27,$04,$42,$00,$EB,$69,$6B,$00,$00,$27,$24,$20)

	gosub rwb
	gosub rwb
	gosub rwb

	tune 2, 5,($25,$25,$27,$24,$65,$27,$29,$29,$2A,$29,$67,$25,$27,$25,$24,$E5,$00,$00,$00,$00,$6A,$29,$2A,$2A,$2A,$2A,$69,$27,$29,$6A,$69,$67,$65,$29,$6A,$00,$42,$6A,$29,$27,$E5)
	goto main

rwb:
	aa = red
	gosub oneled

	gosub white

	aa = blue
	gosub oneled
	return

oneled:
	gosub alloff
	low aa
	pause 600
        return


white:
	low red
	low blue
	low green
	pause 600
	return	

alloff:
	high red
	high blue
	high green
	return