Espiral de Arquímedes optimizado

Optimizando con la simetria del algoritmo (por lo tanto de la figura) podemos reducir facilmente el tiempo consumido (reducirlo a la mitad):

Lo cual me recuerda el dicho: "premature optimization is the root of all evil."
http://c2.com/cgi/wiki?PrematureOptimization

Asi que está mi simple aporte y por la simetria del algoritmo/figura aun se puede hacer mejor:

    190 FOR XI=0 TO XL
    225 X11=-XI+ZI+160
    231 PLOT X11,Y1
    241 PLOT X11,Y1+1:DRAWTO X11,191