to powerup
	write portb-ddr 0
end


to startup
	warble 3
end


to click-on
	setbit 0 portb
end

to click-off
	clearbit 0 portb
end

to beep
	repeat 2000 [click-on delay 2 click-off delay 2]
end

to delay :n
	repeat :n [no-op]
end


to note :period :duration
	repeat :duration [
		click-on
		delay :period
		click-off
		delay :period
	]
end

to warble :times
	repeat :times [
		note 2 200
		note 1 200
	]
end