%%HP: T(1)A(G)F(,);
 GRAD
"RECTA SEGUN....." {
PTO.AZ PTO.PEN
PTO.PTO } 1,
  IF CHOOSE
  THEN  R
    
      IF R PTO.AZ
SAME
      THEN "X Y AZ"
"" INPUT OBJ TAN INV
3, LIST
      ELSE
        IF R
'PTO.PEN' SAME
        THEN
"Xp Yp Pendiente" ""
INPUT OBJ 3, LIST
        ELSE
          IF R
PTO.PTO SAME
          THEN
"X1 Y1 X2 Y2" ""
INPUT OBJ 4, LIST
DUP OBJ DROP ROT -
SWAP ROT - / SWAP
OBJ DROP DROP DROP
ROT 3, LIST
          END
        END
      END
    
  END
