%%HP: T(1)A(G)F(,);
 GRAD -19, SF
"Punto de salida" {
":Xs:
:Ys:" { 1, 0, }
V } INPUT OBJ 'Ys'
STO 'Xs' STO "Puntos"
{ ":N:" } INPUT OBJ
'N' STO 1, N
  START "" {
":Punto:
:Xf:
:Yf:" {
1, 0, } V } INPUT
OBJ 'Yf' STO 'Xf'
STO 'Xf-Xs' EVAL 'Yf-
Ys' EVAL V2 DUP ABS
'DISTANCIA' TAG SWAP
ARG 100, - NEG DUP
    IF 0, 
    THEN 400, +
    END 'ACIMUT' TAG
  NEXT { A Xf Yf Xs
Ys N } PURGE
