%%HP: T(1)A(G)F(,);
 "Punto de salida" {
":Xs:
:Ys:" { 1, 0, }
V } INPUT OBJ  xs
ys
   GRAD "PUNTOS" {
":N:" } INPUT OBJ
'N' STO 1, N
    START "" {
":Punto:
:Acimut:
:Distancia:"
{ 1, 0, } V } INPUT
OBJ 'D' STO 'AZ' STO
D AZ SIN * xs + EVAL
'X' TAG D AZ COS *
ys + EVAL 'Y' TAG
    NEXT { N D AZ }
PURGE
  
