to tc
fd 3 
if pin12=1 then lt 5 fd 2 else rt 6 fd 3
tc
end
to tanceqi  ;重建探测器
ctc 12
tance 12,50,-59,63,0,0
end
to  huo
cs 
setpc 0 setw 30 fd 60 setpc 14 setw 40 fd 30 setpc 12 setw 50 fd 40 setpc 15 fd 20 setpc 0 setw 1 pu
sethuoyan
end

to huoyan  ;主程序
huo
tanceqi
tc
end