to l :l :w if :l = 0 [stop] rt 90 r :l -1 :w fw :w lt 90 l :l -1 :w fw :w l :l-1 :w lt 90 fw :w r :l -1 :w rt 90 end to r :l :w if :l = 0 [stop] lt 90 l :l -1 :w fw :w rt 90 r :l -1 :w fw :w r :l -1 :w right 90 fw :w l :l -1 :w lt 90 end reset speed 9 setxy 30 192 penwidth 3 l 5 6
ausführen
