%%HP: T(1)A(D)F(.);

  DO CLEAR
" VALOR INTERPOLADO  X"
"digite A,B,C,Y,D"
{
":A:    :C:
 ?     :Y:
:B:    :D:"
{ 1 0 } V } INPUT
OBJ 4 ROLL 1 DROPN
 A C Y B D '(A*D-A
*Y+B*Y-B*C)/(D-C)'
"X" TAG
"novo clculo ?" 2
LIST 2 CLLCD
CHOOSE
  UNTIL 0 ==
  END ENGENHARIA 2
MENU

