%%HP: T(1)A(G)F(,);

  
"Otro vrtice?(1/0)"
"" INPUT OBJ
   'B' STO
   '(X1-X3)*(Y1+Y3)'
EVAL + 2, / ABS "Sup"
TAG
   'C' STO
" V E R T I C E S
( Hasta X= -100 )
X1 Y1 X2 Y2 X3 Y3"
"" INPUT OBJ 'Y3'
STO 100, + 'X3' STO
'Y2' STO 100, + 'X2'
STO 'Y1' STO 100, +
'X1' STO '(X2-X1)*(Y2
+Y1)+(X3-X2)*(Y3+Y2)'
EVAL B 'A' STO
  IF A 0, ==
  THEN C
  ELSE
    DO "Xn Yn" ""
INPUT OBJ 'Y4' STO
100, + 'X4' STO '(X4-
X3)*(Y4+Y3)' EVAL +
X4 'X3' STO Y4 'Y3'
STO B
    UNTIL 0, ==
    END C
  END { X1 Y1 X2 Y2
X3 Y3 X4 Y4 A B C }
PURGE
