TO PIC
FS CS PU SETPOS [40 0]
STRING 50 2 2
END

TO STRING :SZ :OFFSET :HALVES
(LOCAL "N "O "P "Q)
MAKE "O PI / 108
CLEAN HT MAKE "P POS PU SETX XCOR + :SZ PD
REPEAT 360 [FD :SZ * :O LT 1]
PU SETPOS :P MAKE "N 1
REPEAT 36 * :HALVES [
 PU FD :SZ MAKE "Q POS 
 SETPOS :P SETH REMAINDER (5 * :N * :OFFSET) 360 
 FD :SZ PD SETPOS :Q PU 
 SETPOS :P SETH REMAINDER (5 * (:N - 1)) 360 
 MAKE "N :N + 1]
END

�:�F�Q�%V�+^�+iv+r�+{),��,��,��/�0�G(�y)�y*�j-�0�Q0��-��-�
�%