TO HILBERT :X FULLSCREEN HIDETURTLE MAKE "H :X MAKE "I 1 REPEAT 5 [MAKE "I :I + 1 MAKE "H :H / 2 MAKE "PUSK (400 - :H) / 2 PENUP SETPOS [:PUSK :PUSK] PENDOWN A :I] END TO B :K IF :K > 0 [] [STOP] C :K - 1 LINE 1 B :K - 1 LINE 0 B :K - 1 LINE 3 A :K - 1 END TO C :K IF :K > 0 [] [STOP] B :K - 1 LINE 0 C :K - 1 LINE 1 C :K - 1 LINE 2 D :K - 1 END TO A :K IF :K > 0 [] [STOP] D :K - 1 LINE 2 A :K - 1 LINE 3 A :K - 1 LINE 0 B :K - 1 END TO LINE :D SETHEADING :D * 90 FORWARD :H END TO D :K IF :K > 0 [] [STOP] A :K - 1 LINE 3 D :K - 1 LINE 2 D :K - 1 LINE 1 C :K - 1 END TO START_UP REMARK [* * * uתןע gילרגועפב * * *] SETBG 0 SETPC 7 SETSCRUNCH 0.65 HILBERT 196 END