to light_on
clearbit 2 portb-ddr setbit 2 portb
flash
end
to light_off
 clearbit 2 portb
end
to blink
 light_on
 wait 1
 light_off
end
to potent
 setbit 0 porta-ddr wait 5  
 print read-ad 0
end
to startup 
clearbit 2 portb-ddr setbit 2 portb
loop [
 clearbit 2 portb 
 mwait (read-ad 0)
 setbit 2 portb 
 mwait (read-ad 0)]
end