;	steve_logo.txt
;
;	Fun with flashes

to verylongflash
	repeat 10 [flash]
end

to longflash
	repeat 5 [flash]
end

to runlightoff
	clearbit 0 portc
	clearbit 3 portc
end

to noflash
	repeat 10000 [runlightoff]
end

to flashpause
	repeat 100 [runlightoff]
end

to startup
	flash
	noflash
	flash
	noflash
	longflash
	noflash
	flash
end

to powerup
	flash
	flashpause
	flash
	flashpause
	flash
	flashpause
	flash
	noflash
	flash
	noflash
	flash
	wait 5
	flash
	flashpause
	flash
	noflash
	flash
	wait 5
	flash
	flashpause
	flash
	noflash
	wait 5
	flashpause
	wait 5
	flashpause
	wait 5
end