to flower
athatway
cthatway
repeat 100
[aon con
waituntil [sensor1 > 750
]
beep beep beep beep
ard con
ard crd
aonfor 20 confor 20
aoff coff
athatway cthatway
aon con]
end

To touch
athatway
cthatway
repeat 100
[aon con
waituntil [switch3]
aon
ard coff
aonfor 10
aoff
ard
aon con
waituntil [switch1]
aon
ard coff
aonfor 10
ard
aon con]
end

to go
athatway
cthatway
aon con
loop [follow]
end
THE BIG LOOP
to follow
right
waituntil [onblack?]
waituntil [not onblack?]
left
waituntil [onblack?]
waituntil [not onblack?]
end

to right
aoff con
end

to left
coff aon
end

to onblack?
op reflect1
end

A basic program - goes forward 2 seconds

to program1

aon con wait 20 aoff coff
repeat 2 [aon wait 20 aoff
con wait 20 coff]
ard crd aon con wait 20
aoff coff

end

to startbot

aon con wait 20 aoff coff
repeat 2 [aon wait 20 aoff
con wait 20 coff]

ard crd aon con wait 20 beep
aoff coffard crd aon con
asetpower 3 csetpower 3
wait 20 aoff coff wait 5
asetpower 8 csetpower 8
aon con
wait 20 beep
aoff coff
end

to outbox
athatway cthatway
asetpower 3 csetpower 3
beep
aon con
waituntil [ switch3 ]
ard crd
aon con
wait 10
aoff coff ard crd
confor 5
coff
end

loop [outbox]

to lightcheck

aon con
waituntil
[sensor2 > 300]
ard crd
aon con
wait 20
aoff coff
end