to hua
setw 20 setpc 10 fd 200 rt 90 fd 220 rt 90 fd 180 bk 180 lt 90 fd 140 rt 90 fd 180 bk 180 lt 90 fd 140 rt 90 fd 150 pu fd 100  pd fd 150 rt 90 fd 150 rt 90 fd 120 bk 120 lt 90 fd 200 rt 90 fd 150 bk 150 lt 90 fd 150 rt 90  fd 400
end

to aa cc
fd 1
if pin2=0 and pin3=0 and pin4=0 then fd  8
if pin2=1 and pin3=1 and pin4=0 then fd  4
if pin2=1 and pin3=0 and pin4=0 then lt 2 
if pin2=0 and pin3=1 and pin4=0 then rt 2 
if pin2=1 and pin3=0 and pin4=1  then rt 2 
if pin2=0 and pin3=1 and pin4=1  then lt 2 
make cc cc+1
if cc>2000 then stop
aa cc
end
to tanceqi  ;Öؽ¨Ì½²âÆ÷
ctc 2
tance 2,50,130,23,-13,0
ctc 3
tance 3,50,1,19,14,0
ctc 4
tance 4,70,-127,37,1,0
end

to mg
hua
setzhang
tanceqi
setw 1 aa 1
end