to ex1
setpc 12
stampoval 50 50
pu rt 90 fd 150 lt 90 pd
setpc 14
stampoval 50 50
pu rt 90 fd 150 lt 90 pd
setpc 10
stampoval 50 50
pu home pd
end
to hld
ex1
setpc 12
fill
wait 300
pe (stampoval 48 48 "true)
pu rt 90 fd 150 lt 90 pd
setpc 14
fill
wait 100
pe (stampoval 48 48 "true)
pu rt 90 fd 150 lt 90 pd
setpc 10
fill
wait 300
pe (stampoval 48 48 "true)
pu lt 90 fd 150 rt 90 pd
setpc 14
fill
wait 100
pe (stampoval 48 48 "true)
pu home pd
hld
end
执行:hld
to ex1
setpc 12
stampoval 50 50
pu rt 90 fd 150 lt 90 pd
setpc 14
stampoval 50 50
pu rt 90 fd 150 lt 90 pd
setpc 10
stampoval 50 50
pu home pd
end
to hld
ex1
setpc 12
fill
wait 300
pe (stampoval 48 48 "true)
pu rt 90 fd 150 lt 90 pd
setpc 14
fill
wait 100
pe (stampoval 48 48 "true)
pu rt 90 fd 150 lt 90 pd
setpc 10
fill
wait 300
pe (stampoval 48 48 "true)
pu lt 90 fd 150 rt 90 pd
setpc 14
fill
wait 100
pe (stampoval 48 48 "true)
pu home pd
hld
end
执行:hld
TO HLD
LT 90 PU FD 100 RT 90
HONG
RT 90 PU FD 100 LT 90
HUANG
RT 90 PU FD 100 LT 90
LV
LT 90 PU FD 100 RT 90
HUANG
HLD
END
TO HONG
PD SETPC 12
(STAMPOVAL 60 60 "TRUE)
WAIT 300 PE
(STAMPOVAL 60 60 "TRUE)
PD
END
TO HUANG
PD SETPC 14
(STAMPOVAL 60 60 "TRUE)
WAIT 100 PE
(STAMPOVAL 60 60 "TRUE)
PD
END
TO LV
PD SETPC 10
(STAMPOVAL 60 60 "TRUE)
WAIT 300 PE
(STAMPOVAL 60 60 "TRUE)
PD
END