Espiral equiangular con una instrucción para terminar el programa

;----------------------------------------------------------
; Aquest programa dibuixa una espiral una corba espiral,
; i consta d'un "sensor" per tal que el programa s'aturi
; quan la tortuga surti 
; d'un marc rectangular de mida donada
;
;   © Joan Aranes Clua, 1998
; ----------------------------------------------------------

procediment Dibuixa.espiral :angle :costat 
av :costat gd :angle posa.a "costat :costat+1
si detecta 1 [acaba][Dibuixa.espiral :angle :costat]
fi

procediment Espiral :angle :costat
inicia.dibuix
fes.fons 52 fes.color 9
desapareix
sensor [-150 150 150 -150]
Dibuixa.espiral :angle :costat
fi
;-----------------------------------------------------------
% Espiral 112 1
% fes.lupa 1