to 
end
to pao
tanceqi
luzhang
tc
end
to tc
fd 3
if pin3=1 then  repeat 10 [lt 12 wait 1]
if pin14=0 then  rt 8 
if pin15=0 then  lt  8
tc
end
to luzhang
setpc 12 setw 60 repeat  36  [fd 40  rt 10 ] setdaolu
setpc 14  rt 90 fd 50  bk 100 setzhang 
setw 1 
pu fd 50
lt 90  fd 50  setpc 0
end
to tanceqi  ;重建探测器
ctc 3
tance 3,22,-102,44,0,0
ctc 14
tance 14,-24,-149,9,-18,-5
ctc 15
tance 15,30,-48,9,17,-5
end